Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Закрытая тема
 
Опции темы Опции просмотра
Старый 21.05.2009, 22:37   #41 (permalink)
Xploit
Member
 
Аватар для Xploit
 
Регистрация: 03.07.2008
Сообщений: 588
Записей в дневнике: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1300
По умолчанию

Здравствуйте! Задачи на паскале. Выручите пожалста.
1. Вычислить частичную сумму числового ряда с задаваемой пользователем точностью. Вывести на экран найденное значение частичной суммы и номер последнего рассмотренного члена ряда.

S=1-1/2+1/4-1/8+⋯+〖(-1)〗^n 1/2^n +… Ссылка удалена точность : 0,5∙10⁻⁴



2. Работа с одномерными массивами. можно взять массивы состоящие из пяти, шести элементов.

Дано натуральное число n, целые числа A₁, A₂, … A_n . Найти наибольшее из нечетных и количество четных чисел.

Последний раз редактировалось Fenix; 11.06.2013 в 11:19 Причина: Ссылка мертва
Xploit вне форума  
Старый 22.05.2009, 10:38   #42 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,809
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 112676
По умолчанию

Цитата:
Сообщение от Xploit Посмотреть сообщение
Здравствуйте! Задачи на паскале. Выручите пожалста.
1. Вычислить частичную сумму числового ряда с задаваемой пользователем точностью. Вывести на экран найденное значение частичной суммы и номер последнего рассмотренного члена ряда.
S=1-1/2+1/4-1/8+⋯+〖(-1)〗^n 1/2^n +… Ссылка удалена точность : 0,5∙10⁻⁴

Подобные задачи рассмотрены в #11 и #33. Попробуйте поменять вид ряда самостоятельно. Функцию X2np (возведение в целую положительную степень) рекомендую сохранить.


Цитата:
2. Работа с одномерными массивами. можно взять массивы состоящие из пяти, шести элементов.

Дано натуральное число n, целые числа A₁, A₂, … A_n . Найти наибольшее из нечетных и количество четных чисел.
CONST
N=6;
VAR
A:ARRAY[1..N] of INTEGER;
Max_Odd, Num_Even, i:INTEGER;
BEGIN
Randomize;
Max_Odd:=0;
Num_Even:=0;
FOR i:=1 TO N DO
BEGIN
A[i]:=Random(99);
IF ((A[i] mod 2)=1) AND (A[i]>Max_Odd) THEN Max_Odd:=A[i];
IF (A[i] mod 2)=0 THEN INC(Num_Even);
Write(A[i]:4);
END;
WriteLn;
WriteLn('Maximum odd value is ', Max_Odd);
WriteLn('Number of even values is ', Num_Even);
ReadLn;
END.
Vladimir_S вне форума  
Старый 23.05.2009, 15:00   #43 (permalink)
Fine
Новичок
 
Регистрация: 15.02.2009
Сообщений: 4
Записей в дневнике: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Помогите пожалуйста с задачкой на Delphi!
Создать очередь, основанную на динамических структурах, состоящую из N элементов. Все элементы очереди должны содержать числа. В соответствии с условиями, приведенными ниже выполнить операции над элементами очереди. Виде результата вывести строку показывающую все действия, которые были произведены над числами, затем «ровно» и результат данных операций.
Условия:
x>-3 => - sin(x)
x=9 => *2cos(x)
иначе => + ctg(x)
Fine вне форума  
Старый 29.05.2009, 12:30   #44 (permalink)
Tranzistor
Специалист
 
Аватар для Tranzistor
 
Регистрация: 17.07.2007
Адрес: Мордовия
Сообщений: 874
Сказал(а) спасибо: 17
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 4825
По умолчанию

Цитата:
Сообщение от Vladimir_S Посмотреть сообщение
CONST
ACC=3;
VAR
x1,x2,Step,x,y:REAL;
Nt:INTEGER;

FUNCTION X2np(X:Extended; n:INTEGER):Extended;
Var i:INTEGER;
Y:Extended;
BEGIN
IF n=0 THEN X2np:=1 ELSE
IF n=1 THEN X2np:=X ELSE
BEGIN
Y:=X;
FOR i:=2 TO n DO Y:=Y*X;
X2np:=Y;
END;
END;

PROCEDURE ATG(Xa:REAL; VAR AT:REAL; VAR AN:INTEGER);
VAR
SUM, a:REAL;
i:INTEGER;
BEGIN
SUM:=Pi/2;
i:=-1;
REPEAT
INC(i);
a:=X2np(-1,i+1)/(2*i+1)/X2np(Xa,(2*i+1));
SUM:=SUM+a;
UNTIL ABS(a)<1/X2np(10,ACC+1);
AT:=SUM;
AN:=i+1;
END;

BEGIN
Write('x1 = ');
ReadLn(x1);
Write('x2 = ');
ReadLn(x2);
Write('Step = ');
ReadLn(Step);
Writeln('Argument',' Result ', 'Number of terms ', ' Arctan ');
x:=x1-Step;
REPEAT
x:=x+Step;
ATG(x,y,Nt);
Writeln(x:7:4,y:8:4,Nt:12,Arctan(x):12:4);
UNTIL x>x2;
ReadLn;
END.

Константа АСС - количество значащих цифр после запятой. В последней колонке для сравнения выводится точное значение функции арктангенс.

Компилятор ругается на слова: "UNTIL x>x2;", стоящие в конце, другие ошибки пока не проверил ..
Tranzistor вне форума  
Старый 29.05.2009, 12:32   #45 (permalink)
Tranzistor
Специалист
 
Аватар для Tranzistor
 
Регистрация: 17.07.2007
Адрес: Мордовия
Сообщений: 874
Сказал(а) спасибо: 17
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 4825
По умолчанию

Компилятор ругается на слова: "UNTIL x>x2;", стоящие в конце, другие ошибки пока не проверил ..
это 8 задача..
Tranzistor вне форума  
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 29.05.2009, 14:13   #46 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,809
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 112676
По умолчанию

Цитата:
Сообщение от Kosmos Посмотреть сообщение
Компилятор ругается на слова: "UNTIL x>x2;", стоящие в конце, другие ошибки пока не проверил ..
это 8 задача..
Даже не знаю, чем могу помочь... Программа полностью отлажена, у меня транслируется и идет - на всякий случай сейчас еще раз проверил. Это уже закидоны реализации транслятора. Условие "UNTIL x>x2;" вполне нормальное. Ну попробуйте, например, так: "UNTIL (x>x2);" - вдруг ему скобки нужны? Хотя вряд ли.
Vladimir_S вне форума  
Старый 29.05.2009, 14:23   #47 (permalink)
amarilis
Новичок
 
Регистрация: 29.05.2009
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Здравствуйте! Помогите пожалуйста с задачей на Паскале!
Нужно создать файл, содержащий названия всех месяцев года. Вывести сначала летние, а затем зимние месяцы.
amarilis вне форума  
Старый 29.05.2009, 15:44   #48 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,809
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 112676
По умолчанию

Цитата:
Сообщение от amarilis Посмотреть сообщение
Здравствуйте! Помогите пожалуйста с задачей на Паскале!
Нужно создать файл, содержащий названия всех месяцев года. Вывести сначала летние, а затем зимние месяцы.
Подробнее, пожалуйста. Что требуется от Паскаля (ведь можно в файле просто перечислить названия месяцев - безо всякого Паскаля)? Куда деть весенние и осенние месяцы?

И вообще, господа школьники и студенты, мы, конечно постараемся помочь, только уж пожалуйста потрудитесь избавить нас от разгадывания шарад типа "что имел в виду спрашивающий"? А то совсем, я смотрю, обленились - лишних пару строк не написать!
Vladimir_S вне форума  
Старый 29.05.2009, 21:01   #49 (permalink)
Tranzistor
Специалист
 
Аватар для Tranzistor
 
Регистрация: 17.07.2007
Адрес: Мордовия
Сообщений: 874
Сказал(а) спасибо: 17
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 4825
По умолчанию

Vladimir_S, мой паскаль при компиляции скидывает курсор на UNTIL и пишет:
"Error 113: Statement"
Tranzistor вне форума  
Старый 29.05.2009, 21:09   #50 (permalink)
Tranzistor
Специалист
 
Аватар для Tranzistor
 
Регистрация: 17.07.2007
Адрес: Мордовия
Сообщений: 874
Сказал(а) спасибо: 17
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 4825
По умолчанию

Модераторы, можете удалить мои последние 3 поста. Мой косяк

Vladimir_S, извиняюсь чт онапряг Вас лишний раз..

Все отлично работает..
Tranzistor вне форума  
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Закрытая тема

Метки
задачи по информатике, помощь, решение задач, студент

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 23:26.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.