RFpro.ru: Программирование на языке Pascal
Хостинг портала RFpro.ru: РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты данной рассылки
/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Pascal (Паскаль)
Вопрос № 183417: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: Как на Pascal ABC вычислить S=(2-1)/ctg2-(4+3)/ctg4+(6-5)/ctg6-...-(20+19)/ctg20. Спасибо.... Вопрос № 183418: Здравствуйте! Прошу помощи в следующем вопросе:Вычислить максимальную сумму кубов натуральных чисел, кратных 3 (3, 6, 9, …), меньшую 7000 Замечание: Провести решение двумя способами – используя цикл с предусловием WHILE_DO и цикл с постусловием RE... Вопрос № 183417:
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Отправлен: 30.05.2011, 01:55 Отвечает Роман Селиверстов (Академик) : Здравствуйте, Посетитель - 376257! program a; var i,j:integer; s:real; begin s:=0; j:=1; for i:=1 to 10 do begin s:=s+j*(2*i-j*(2*i-1))*cos(2*i)/sin(2*i); j:=-j; end; writeln(s); end.
Ответ отправил: Роман Селиверстов (Академик)
Отвечает lamed (Академик) : Здравствуйте, Посетитель - 376257! Использование While и функции. Код : program b;
{ Вычислить S=(2-1)/ctg2-(4+3)/ctg4+(6-5)/ctg6-...-(20+19)/ctg20. }
const
n=10;
var
i,k:integer;
s :real;
function ctg(x: real): real;
{ возвращает значение котангенса }
begin
ctg := cos(x)/sin(x);
end;
begin
s:=0;
i:= 1;
while (i<=n) do
begin
if odd(i) then
k:= 1
else
k:= -4*i+1;
s:=s+k*ctg(2*i); { или ctg(2.0*i) }
i:= i+1;
end;
writeln('s=', s);
end.Пример паботы Код : s=-91.3100927575937 Удачи!
Ответ отправил: lamed (Академик)
Вопрос № 183418:
Здравствуйте! Прошу помощи в следующем вопросе:Вычислить максимальную сумму кубов натуральных чисел, кратных 3 (3, 6, 9, …), меньшую 7000
Отправлен: 30.05.2011, 07:41 Отвечает lamed (Академик) : Здравствуйте, Посетитель - 376257! Код : { Вычислить максимальную сумму кубов натуральных чисел,
кратных 3 (3, 6, 9, …), меньшую 7000
Замечание: Провести решение двумя способами – используя цикл с
предусловием WHILE_DO и цикл с постусловием REPEAT_UNTIL. }
{ Проверено ABC }
const
n=7000;
var
i, sum, a: integer;
begin
sum := 0;
i:= 3;
a:= i*i*i;
while sum +a <= n do
begin
sum := sum+a;
write(sum, ' ');
i:= i+3;
a:= i*i*i;
end;
writeln('WHILE_DO. Максимальная сумма ', sum);
sum := 0;
i:=3;
{ a:=i*i*i; }
repeat
a:= i*i*i;
sum := sum+a;
i:=i+3;
until sum>n;
sum := sum-a;
writeln('REPEAT_UNTIL. Максимальная сумма ', sum);
readln; { Для Turbo-Pascal }
end.Удачи!
Ответ отправил: lamed (Академик)
Оценить выпуск »
Задать вопрос экспертам этой рассылки »Скажите "спасибо" эксперту, который помог Вам!Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТАна короткий номер 1151 (Россия) Номер ответа и конкретный текст СМС указан внизу каждого ответа.
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов) © 2001-2011, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про" Калашников О.А. | Гладенюк А.Г. Хостинг: Компания "Московский хостер" Версия системы: 2011.6.31 от 07.05.2011 |
| В избранное | ||
