Основы программирования на языке Паскаль: операторы циклов

 

В ходе этой работы необходимо освоить основные понятия циклических алгоритмических структур.

Задание 02

Составить блок-схему алгоритма и текст программы для решения следующих задач.

1. Задано целое положительное число N>. Вычислить сумму четных целых чисел в диапазоне 1… N. Для решения задачи использовать цикл с предусловием.

 

var i, n, sum:integer;

begin

sum=0, i=2

readln(n);

i:=2;

sum:=0;

while i<=n do begin

sum:=sum+i;                                                                   

sum=sum+i

i:=i+2;

i=i+2

end;

writeln(sum);

readln

end.

 

 

2. Задано целое число N.

Если N>5, найти сумму целых чисел в диапазоне 6. N.

Если N<5, найти сумму целых чисел в диапазоне N..4

Если N=5, вывести на экран соответствующее сообщение.

Для решения задачи использовать счетный цикл

 

var i, n, sum:integer;

begin

sum=0

readln(n);

sum:=0;

if n>5 then begin

for i:=6 to n do sum:=sum+i;

writeln(sum);

end

else if n<5 then begin

sum= sum+i

for i:=n to 4 do sum:=sum+i;

writeln(sum);

end

else if n=5 then writeln ('N=5!');

sum= sum+i

readln

end.

 

 

3. Задано два целых числа N1 и N2.

Если N1> N2, найти сумму целых чисел в диапазоне N1. N2

Если N1< N2, найти сумму целых чисел в диапазоне N2. N1

Если N1= N2, вывести на экран соответствующее сообщение.

Для решения задачи использовать цикл с постусловием.

var i, n1, n2, sum:integer;

begin

readln (n1, n2);

sum:=0;

if n1<n2 then begin

for i:=n1 to n2 do sum:=sum+i;

writeln(sum);

end

else if n2<n1 then begin

for i:=n2 to n1 do sum:=sum+i;

writeln(sum);

end

else if n1=n2 then writeln ('N1=N2!');

sum=0

readln

end.

 

4. Дана функция

2x, x<0

y = 0, x=0

0,5x, x>0

Найти значения функции для всех целых значений х из диапазона -3..8.

Для решения использовать цикл

с постусловием.

Program funct;

Var

Y:real;

x:integer;

Begin

Writeln (‘znachenie ot -3 do 8’);

X:=-3;

reapet

If x<0 then y=2*x;

If x=0 then y=0;

If x<0 then y=0,5*x;

Writeln (‘x=’, x, ’ y=’, y);

X:=x+1;

Until x=8;

Readln();

End.