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 x2 – 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 x2 – 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.