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:= (a0) 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 xy 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

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 x0 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 mma 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 (k1);

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. { Конец программы }


7388881595911639.html
7388910281100796.html
    PR.RU™