II. Прокомментировать каждую строку программы.

Program Massivl;

uses Crt;

const N=10;

Var A: array [1..N] of integer;

і: іnteger;

Begin

Randomize;

for і: =1 to N do

A[i]: =Random(100);

ClrScr;

for i: =l to N do

write(A[i]: 4);

writeln;

Readln

end.

=====================================================================

Program Fibon;

var n, k, a: longint;

Begin

n: =0;

Repeat

writeln ('Введите число');

readln (a);

n: =n+1;

if a< 0 then k: =n;

until a=0;

writeln(k);

Readln

end.

=====================================================================

Program N1;

var M: Array [1..100] of Integer;

A: Real; I: Byte;

begin

Randomize;

For I: = 1 to 100 do

M[I]: = Random(500);

For I: = 1 to 100 do

A: = A + M[I];

A: = A / 100;

Write('Среднее арифметическое всех чисел массива: ', A);

end.

=====================================================================

program pr3;

uses crt;

var x, y, r: real;

var l: boolean;

begin

clrscr;

write ('Введите радиус ');

readln (r);

write ('Введите координаты точки ');

readln (x, y);

l: =(abs(x)> r) or (abs(y)> r);

writeln ('l= ', l)

end.

=====================================================================

Program N2;

var M: Array [1..10] of Integer;

Max: Integer; I: Byte;

begin

Writeln('Введите 10 чисел: ');

For I: = 1 to 10 do

begin

Write('N', i, ': ');

Readln(M[i]);

end;

Max: = M[1];

For I: = 1 to 10 do

if Max < M[i] then Max: = M[i];

Write('Максимальное число: ', Max);

Readln;

end.

=====================================================================

program pr2;

uses crt;

var a, b, c, d: real;

var l: boolean;

begin

clrscr;

readln (a, b, c);

d: =sqr(b)-4*a*c;

l: = (a< > 0) and (d> =0);

writeln ('d= ', d: 9: 7);

writeln ('l= ', l)

end.

=====================================================================

Program ist;

var x: 1..12;

begin

writeln('Введите число');

readln(x);

Case x of

3..5: writeln('Весна');

6..8: writeln('лето');

9..11: writeln('осень');

1, 2, 12: writeln('зима');

end;

Case x of

1: writeln('Январь');

2: writeln('февраль');

3: writeln('март');

4: writeln('апрель');

5: writeln('май');

6: writeln('июнь');

7: writeln('июль');

8: writeln('август');

9: writeln('сентябрь');

10: writeln('октябрь');

11: writeln('ноябрь');

12: writeln('декабрь');

else writeln('Нет такого месяца');

end;

readln

end.

=====================================================================

Program chislo;

uses crt;

var a, b, c, d, n: integer;

begin

clrscr;

for n: = 1000 to 9999 do

if (n mod 7=0) and (n mod 2=0) and (n mod 11=0) then

begin

a: =n div 1000;

b: =(n mod 1000) div 100;

c: =((n mod 1000) mod 100) div 10;

d: =((n mod 1000) mod 100) mod 10;

if (a+b+c+d)=30 then

begin

if a=b then if c=d then writeln(n, ' ');

if a=c then if b=d then writeln(n, ' ');

if a=d then if b=c then writeln(n, ' ');

end;

end;

readln

end.

=====================================================================

Program game;

var a, n, x: integer;

begin

writeln ('Введите количество очков');

readln(x);

a: =0;

n: =0;

repeat

if n mod 2=0 then a: =a+2

else a: =a+1;

n: =n+1;

until a> =x;

writeln (n);

readln

end.

=====================================================================

Program NoK;

var y, m, n, x, z: word;

{var x: real; }

begin

writeln('Введите 2 числа');

readln(x, y);

{ y: =m;

z: =n; }

While x< > y do

if x> =y then x: =x-y

else y: =y-x;

writeln('НОД равно', x);

readln

end.

Program Bakteria;

var i, n: integer;

var s: real;

begin

Writeln ('Введите количество минут');

readln (n);

s: =0;

for i: =1 to n do

s: =s+1/i;

writeln('s=', s: 10: 5);

readln

end.

Program Form;

var i, n, a, b: integer;

var h, x, y: real;

begin

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

readln (a, b, n);

x: =a;

h: =(b-a)/n;

for i: =1 to n+1 do

begin

y: =-2.4*sqr(x)+5*x-3;

writeln(x: 5: 3, y: 5: 3);

x: =x+h;

end;

readln

end.

=====================================================================

Program Form;

var i, n, a, b: integer;

var h, x, y: real;

begin

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

readln (a, b, n);

x: =a;

h: =(b-a)/n;

for i: =1 to n+1 do

begin

y: =-2.4*sqr(x)+5*x-3;

writeln(x: 5: 3, y: 5: 3);

x: =x+h;

end;

readln

end.

=====================================================================

Program school;

var a, b: integer;

procedure change(var x, y: integer);

begin

x: =x+y;

y: =x-y;

x: =x-y;

end;

begin

writeln('Введите 2 числа');

readln(a, b);

change(a, b);

writeln(a, ' ', b);

readln

end.

=====================================================================

program fact;

var i, g, l, z: integer;

function factor (a: integer): integer;

var n, k: integer;

begin

n: =0;

for k: =1 to a do

if a mod k=0 then n: =n+k;

factor: =n;

end;

begin

l: =0;

for i: =1 to 10000 do

begin

z: =factor(i);

if l< z then begin l: =z;

g: =i;

end;

end;

writeln(g);

readln

end.

=====================================================================

program gt;

var i, z, t: integer;

function factor (a: integer): integer;

var n, k: integer;

begin

n: =0;

for k: =1 to a do

if a mod k=0 then n: =n+k;

factor: =n-a;

end;

begin

{readln(t); }

for i: =1 to 10000 do

begin

z: =factor(i);

if i=z then writeln(i);

end;

{ writeln(factor(t)); }

readln

end.

=====================================================================

program san;

const g=-9.8;

const y=0;

var x, h: real;

begin

writeln('Введите начальную скорость тела');

readln(x);

h: =(sqr(y)-sqr(x))/(2*g);

writeln('Ввысота равна ', h: 8: 8);

readln

end.

=====================================================================

Program Para;

Var p, s, i, j, n: longint;

begin

WriteLn('Введите число n ');

ReadLn(n);

p: =1;

s: =0;

For i: =1 to n Do

begin

for j: =1 to i do

p: =p*i;

s: =s+p;

p: =1;

end;

writeln(s);

readln

end.

=====================================================================

Program ouo;

type mas=array[1..10, 1..10] of string;

var a, st: string;

var x: mas;

var k1: char;

var j, c, i, k, m, n, p: integer;

begin

writeln('Введите строку');

readln (a);

k: =0;

m: =1;

n: =0;

for i: =1 to length(a) do

begin

k: =k+1;

if a[i]=' ' then begin

{ n: =n+1 }

st: =copy(a, m, k-1);

m: =i+1;

k: =0;

for p: =1 to length(st) do

x[i, p]: =st[p];

end;

end;

writeln(x);

readln

end.

=====================================================================

Program nom;

var x, n, m, z, y, s, a: longint;

begin

writeln ('Введите число');

readln(x);

n: =0;

m: =10;

z: =x;

y: =x;

s: =0;

while x< > 0 do

begin

n: =n+1;

m: =m*10;

x: =x div 10;

a: =z mod 10;

z: =z div 10;

s: =s+a;

end;

y: =y*10+m*2+2;

writeln ('количество значущих цифр в числе', n);

writeln('s=', s);

writeln('y=', y);

readln

end.

=====================================================================

Program list;

{const ma=E-24; }

{const ma=12.5E-2; }

var x: integer;

var m, ma: real;

begin

ma: =0.1e-24;

m: =1;

x: =0;

while m< > ma do

begin

x: =x+1;

m: =m/2;

end;

writeln('x=', x);

readln

end.

=====================================================================

Program Posl;

uses crt;

var n, y, x: integer;

begin

clrscr;

n: =0;

writeln('Введите эл-т');

readln(x);

repeat

y: =x;

writeln('Введите эл-т');

readln(x);

if(x*y< 0) then

begin

n: =n+1;

end;

until x=0;

writeln (n);

readln

end.

=====================================================================

Program Sover;

var i, x, s: integer;

var y: real;

begin

writeln ('введите число');

readln(x);

i: =1;

s: =0;

y: =x;

repeat

if x mod i =0 then

begin

s: =s+i;

y: =y/i;

end;

i: =i+1;

until y=1;

if x=s then writeln('Число совершенное')

else writeln('Число несовершенное');

readln

end.

=====================================================================

Program L1_06;

Uses Crt;

Var a, b, c: integer;

Begin

Clrscr;

Write(' ЧЕРЕЗ ПРОБЕЛ ВВЕДИТЕ ТРИ ЧИСЛА ');

Readln (a, b, c);

Writeln('Остаток от деления числа ', a, ' на з равен ', a mod 3);

Writeln('Остаток от деления числа ', b, ' на з равен ', b mod 3);

Writeln('Остаток от деления числа ', c, ' на з равен ', c mod 3);

Write('Остаток от деления суммы трех чисел: ');

Writeln (a, ', ', b, ' и ', c, ' на 3 равен ', (a+b+c) mod 3);

End.

=====================================================================

program yt;

var a, b, c: real;

var d: boolean;

begin

writeln ('Введите числа b, a, c');

readln (b, a, c);

d: =(b> =a) and (b< =c);

writeln('d=', d);

readln

end.

=====================================================================

program proiz;

var n, a: integer;

var p: real;

begin

writeln ('Введите число');

readln(p);

a: =3;

n: =0;

repeat

p: =p/a;

n: =n+1;

a: =a+2;

until p=1;

writeln ('n=', n);

readln

end.

Пример программы с комментариями

program L2_06; { Заголовок программы }

uses crt; { Подключение библиотеки }

Var x, y, a, b, dx: real; { Описание переменных }

begin { }

clrscr; { Очистка экрана }

writeln(' Программа табуляции функции: y=(x-5)^2/(x-2).');

writeln; { Переход на стоку ниже }

write('Введите интервал изменения аргумента (через пробел два числа) ');

readln(a, b); { Ввод данных }

write('Введите приращение аргумента '); { Печать на экане подсказки }

readln(dx); { Ввод приращения }

writeln; { Пустая строка }

writeln(' X | Y'); { Заголовок таблицы }

writeln('__________|____________'); { Заголовок таблицы }

x: =a; { Оператор присваивания }

Repeat { Начало цикла }

If x=2 then { Проверка условия, когда функция не определена }

writeln(x: 6: 2, ' | функция не определена')

else begin y: =(sqr(x-5))/(x-2); { Иначе функция определена, расчет ее значения}

writeln(x: 6: 2, ' |', y: 10: 2); { Выдача на экран строк таблицы }

end; { Конец оператора ветвления}

x: =x+dx; { Наращивание значения аргумента }

Until x> b; { Проверка условия, в конеце цикла }

Readln; { Задержка программы для просмотра экрана }

end. { Конец программы }

======================

program L4_06; { Заголовок программы }

uses crt; { Подключение бтблиотеки }

Const n=100; { Объявление константы }

Var k, i, s0, so, sp: integer; { Объявление переменных }

Var m: array[1..N] of real; { Резервировать память для одномерного массива }

Procedure InputN; { Процедура для определения размера вектора }

Begin

Repeat

Write('Введите размер одномерного массив N =====> ');

Readln(k);

Until (k< =N) and (k> 1);

End;

begin { Начало основного блока }

clrscr; { Очистка экрана }

InputN; { Вызов процедуры }

writeln(' Введите через пробел значения ', k, ' элементов одномерного массива, ');

writeln(' включая нулевые и отрицательные числа ');

for i: = 1 to k Do { Начало цикла для ввода элементов массива }

read(m[i]); { Тело цикла для ввода элементов массива }

s0: =0; { Занулить переменную для накопления суммы }

so: =0; { Занулить переменную для накопления суммы }

sp: =0; { Занулить переменную для накопления суммы }

for i: = 1 to k Do { Начало цикла для накопления сумм }

begin { Начало тела цикла }

If m[i] = 0 then s0: =s0+1; { Суммирование нулевых элементов }

If m[i] < 0 then so: =so+1; { Суммирование отрицательных элементов }

If m[i] > 0 then sp: =sp+1; { Суммирование положительных элементов }

end; { Конец тела цикла }

Readln;

writeln('Число нулевых элементов массива = ', s0); { Выдача на экран результата }

writeln('Число отрицательных элементов массива = ', so); { Выдача на экран результата }

writeln('Число положительных элементов массива = ', sp); { Выдача на экран результата }

Readln; { Задержка программы для просмотра экрана }

End. { Конец программы }