Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Циклы

Автор: HORSE 23.12.2006 3:22

Помогите написать программу......вот что у меня получилось....

Program Formula;{ЛР5}
{Вычисление выражений
Входные данные: A,B,n,m,X - переменные
Выходные данные: S-значение выражения}
Var A,B,n,m,X,S,Z,i: Integer;
Begin
WriteLn ('Введите значение переменной A:');
ReadLn (A);
WriteLn ('Введите значение переменной B:');
ReadLn (B);
WriteLn ('Введите значение переменной m:');
ReadLn (m);
WriteLn ('Введите значение переменной n:');
ReadLn (n);
WriteLn ('Введите значение переменной X:');
ReadLn (X);
For i:=m To n Do
S:=Sqr(X+Round(B/i));
WriteLn('Значение выражения:',S+A);
End.

М
Не забывай пользоваться тегами
мисс_граффити




а картинка это задание....


Эскизы прикрепленных изображений
Прикрепленное изображение

Автор: мисс_граффити 23.12.2006 3:27

тебе же надо посчитать сумму, а не одно слагаемое...
вот так надо:


...
S:=A;
For i:=m To n Do
S:=S+Sqr(X+Round(B/i));

Автор: HORSE 23.12.2006 3:29

Цитата(мисс_граффити @ 22.12.2006 23:27) *

тебе же надо посчитать сумму, а не одно слагаемое...
вот так надо:

...
S:=A;
For i:=m To n Do
S:=S+Sqr(X+Round(B/i));



Хорошо с этим я разобрался....а со вторым пунктом что делать?!