Pascal(циклические процессы)

[nice757]

Помогите написать программу( Вроде всё сделала, но ответ выводит разный по 3 вариантам. Нужно написать 1) цикл с параметром 2)цикл с предусловием и 3) цикл с постусловием

[GetMax]

Ну показывай что уже сделала

[nice757]

1) с параметром

program lab3(1);
var x,y,s:real;
n:longint;
begin
writeln('vvesti x ot -1 do 1');
readln(x);
y:=1/2-pi/4*abs(sin(x));
s:=0;
n:=1705000
s:=s+cos(2*n*x)/(4+sqr(n)-1);
writeln('sum=',s);
writeln('y=',y);
end.

2)c предусловием

program lab3(2);
var x,y,s:real;
n:longint;
begin
readln(x);
y:=1/2-pi/4*abs(sin(x));
s:=0;
n:=1
while n<=50 do
begin
s:=s+cos(2*n*x)/(4+sqr(n)-1);
n:=n+1;
end;
writeln('x=',x:5:2);
writeln('function=',y:5:2);
writeln('sum=',s:5:2);
end.

3)c постусловием

program lab3(3);
var x,y,s:real;
n:longint;
begin
writeln('vvesti x');
readln(x);
y:=1/2-pi/4*abs(sin(x));
s:=0;
n:=1;
repeat
s:=s:=s+cos(2*n*x)/(4+sqr(n)-1);
n:=n+1;
untiln n>50;writeln('x=',x:5:2);
writeln('function=',y:5:2);
writeln('sum=',s:5:2);
end.

Ну вот как-то так.

[GetMax]

1. Где в параметрах цикл?
2.

n:=1705000

А почему не 1705001 или не 1704999?

[min@y™]

Школота совсем обленилась. Вместо того, чтобы нормально скопипастить задание с бумаги в текст, фоткают на ойфон где-то в подвале и без обработки вываливают в интернеты. Расшифровывайте, добрые дяди!

Чо сделать-то надо?

[Stilet]

Ну вот как-то так.

А задание какое?

[nice757]

Сообщение от min@y™

Школота совсем обленилась. Вместо того, чтобы нормально скопипастить задание с бумаги в текст, фоткают на ойфон где-то в подвале и без обработки вываливают в интернеты. Расшифровывайте, добрые дяди!

Чо сделать-то надо?

Ну уточню что не школота, а студент мед вуза 2 курса) в информатике не понимаю ничего,поэтому и лениться не чему.

[nice757]

Сообщение от nice757

Ну уточню что не школота, а студент мед вуза 2 курса) в информатике не понимаю ничего,поэтому и лениться не чему.

Давали задание на паре, записала на листок, поэтому по-другому скинуть никак. Нужно написать к примеру цикл с параметром, цикл с предусловием и постусловием.

[Stilet]

поэтому и лениться не чему.

А задание вписать печатным? Думаешь у всех глаза глазастые?

[min@y™]

Давали задание на паре, записала на листок, поэтому по-другому скинуть никак.

Пипец, блин! А на клаве набрать - пальцы переломаны?