Оператор цикла с параметром

11. Вывести на экран первые N натуральных чисел. N ввести с клавиатуры.

В порядке возрастания

program name;

uses CRT;

var i,n:Integer;

BEGIN

clrscr;

writeln('Введите верхнюю границу интервала');

readln(n);

for i:=1 to n do

Write(i,' ');

readln;

END.

В порядке убывания

program name;

uses CRT;

var i,n:Integer;

BEGIN

clrscr;

writeln('Введите нижнюю границу интервала');

readln(n);

for i:=n downto 1 do

Write(i,' ');

readln;

END.

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

program jkh;

uses CRT;

var i,n,y:Integer;

BEGIN

clrscr;

writeln('Введите N');

readln(n);

for i:=1 to n do

begin

y:=sqr(i);

Writeln('Квадрат ',i,' = ',y);

end;

readln;

END.

13. Вывести сумму первых N целых положительных чисел. N ввести с клавиатуры.

program jkh;

uses CRT;

var i,n,s:Integer;

BEGIN

clrscr;

writeln('Введите N');

readln(n);

for i:=1 to n do

begin

s:=s+i;

end;

Writeln('Сумма ',' = ',s);

readln;

END.

14. Вывести на экран таблицу значения функции y = 5 x² – 4 x + 7 в диапазоне от –8 до 8 с шагом 0,5

program tabl;

uses crt;

var a,b,i,k:integer;

y,h:real;

BEGIN

clrscr;

a:=-8; b:=8; h:=a; k:=(-a+b)*2+1;

For i:=1 to k do

begin

Y:=5 * Sqr(h) - 4*h + 7;

writeln(' ',h:2:1,' - ',y:3:2);

h:=h+0.5;

end;

{ y:=5 * Sqr(b) - 4*b + 7;

writeln(' ',b,' - ',y:3:2);}

readln;

END.

Оператор цикла с предусловием

15. Вывести на экран первые N натуральных чисел в порядке возрастания. N ввести с клавиатуры.

program ss;

uses crt;

var i,n:integer;

BEGIN

clrscr;

writeln('Введите n');

readln(n);

i:=1;

While (i<=n) do

begin

writeln('i=',i);

i:=i+1;

end;

readln;

END.

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

program ss;

uses crt;

var i,n:integer;

BEGIN

clrscr;

writeln('Введите n');

readln(n);

i:=1;

While (i<=n) do

begin

writeln('Для i=',i,' квадрат=',sqr(i));

i:=i+1;

end;

readln;

END.

17. Вывести сумму первых N целых положительных чисел. N ввести с клавиатуры.

program ss;

uses crt;

var s,i,n:integer;

BEGIN

clrscr;

writeln('Введите n');

readln(n);

i:=1;

While (i<=n) do

begin

s:=s+i;

i:=i+1;

end;

writeln('Сумма чисел от 1 до ',i-1,' = ',s);

readln;

END.

18. Вывести на экран таблицу значения функции y = 5 x² – 4 x + 7 в диапазоне от –8 до 8 с шагом 0,5

program tabl;

uses crt;

var b,i:integer;

r,a,y,h:real;

BEGIN

clrscr;

a:=-8; b:=8; r:=a;

While (r<>b) do

begin

Y:=5 * Sqr(r) - 4*r + 7;

writeln(' ',r:2:1,' - ',y:3:2,' ');

r:=r+0.5;

end;

y:=5 * Sqr(b) - 4*b + 7;

writeln(' ',b,' - ',y:3:2);

readln;

END.