Составьте программу двумя способами: с использованием операторов цикла с предусловием и постусловием

@rikairo · Регистрация: 26.12.2014

Author24 — интернет-сервис помощи студентам

Составьте программу на Турбо Паскале двумя способами: с использованием операторов
цикла с предусловием и постусловием. Вычислить: y=sin1+sin1.1+sin1.2+…+sin2

@CodeR · 27.12.2014, 08:51

Предусловием

Pascal

Var y,x:real;
Begin
    x:=1;
    While x<=2 do
    Begin
      y:=y+sin(x);
      x:=x+0.1;
    End;
    writeln('y = ',y:0:4);
    readln;
End.

Постусловием

Pascal

Var y,x:real;
Begin
    x:=1;
    Repeat
      y:=y+sin(x);
      x:=x+0.1;
    Until x>2;
    writeln('y = ',y:0:4);
    readln;
End.

@rikairo 0 / 0 / 0 Регистрация: 26.12.2014 Сообщений: 14
		1
	Составьте программу двумя способами: с использованием операторов цикла с предусловием и постусловием 26.12.2014, 14:59. Показов 4206. Ответов 1 Метки нет (Все метки) Составьте программу на Турбо Паскале двумя способами: с использованием операторов цикла с предусловием и постусловием. Вычислить: y=sin1+sin1.1+sin1.2+…+sin2 0

	27.12.2014, 08:51

Составьте программу двумя способами: с использованием операторов цикла с предусловием и постусловием

Решение