9 9. Написать программу, которая 10 раз выводит на экран имя и фамилию.

program pz_3_99;

var

a:string;

i:integer;

begin

writeln('Vvedite imya i familyu: ');

readln(a);

for i:=1 to 10 do

writeln(a);

readln;

end.

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

program pz_3_100;

var

a,i,b:integer;

begin

a:=1;

writeln('Teblica kvadratov');

writeln('chislo kvadrat');

for i:=1 to 10 do

begin

b:=sqr(a);

writeln(a,' ',b);

a:=a+1;

end;

readln;

end.

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

program pz_3_101;

var

a,i,b:integer;

begin

a:=1;

writeln('Tablica kvadratov');

writeln('chislo kvadrat');

for i:=1 to 5 do

begin

b:=sqr(a);

writeln(a,' ',b);

a:=a+2;

end;

readln;

end.

102. Написать программу, которая вычисляет сумму первых п целых положительных целых чисел. Количество суммируемых чисел должно вводиться во время работы программы.

program pz_3_102;

var

n,i,s,a:integer;

begin

writeln('Enter n');

readln(n);

writeln('pervie ',n,' chisel');

a:=1;

s:=0;

for i:=1 to n do

begin

s:=s+a;

a:=a+1;

end;

writeln('Summa pervih ',n,' chisel ravno ',s);

readln;

end.

1 03. Написать программу, которая вычисляет сумму первых п целых положительных четных чисел. Количество суммируемых чисел должно вводиться во время работы программы.

program pz_3_103;

var

n,i,s,a:integer;

begin

writeln('Enter n');

readln(n);

writeln('pervie ',n,' chetnih chisel');

a:=2;

s:=0;

for i:=1 to n do

begin

writeln(a);

s:=s+a;

a:=a+2;

end;

writeln('Summa pervih ',n,' chetnih chisel ravno ',s);

readln;

end.

104. Написать программу, которая вычисляет сумму первых п членов ряда 1, 3, 5, 7, .... Количество суммируемых членов ряда задается во время работы программы.

program pz_3_104;

var

n,i,s,a:integer;

begin

writeln('Enter n');

readln(n);

writeln('pervie ',n,' chleni ryada');

a:=1;

s:=0;

for i:=1 to n do

begin

writeln(a);

s:=s+a;

a:=a+2;

end;

writeln('Summa pervih ',n,' chlenov ryada ravno ',s);

readln;

end.

105. Написать программу, которая вычисляет сумму первых п чле нов ряда

		1		1		1
1	+	----	+	----	+	----	....
		2		3		4

program pz_3_105;

var

k,i,n,x:integer;

l,s:real;

begin

writeln('Enter n');

readln(n);

k:=1;

x:=1;

s:=0;

for i:=1 to n do

begin

l:=x/k;

k:=k+1;

s:=s+l;

end;

writeln('Summa pervih ',n,' chlenov ryada ravna ',s:1:4);

readln;

end.

106. Написать программу, которая выводит таблицу степеней двойки (от нулевой до десятой).

program pz_3_106;

var

i,k:integer;

pow:byte;

x:real;

begin

writeln('Tablica stepeney dvoiki');

writeln('Stepen chislo');

k:=0;

for i:=1 to 11 do

begin

x:=exp(k*ln(2));

writeln(k,' ',x:1:0);

k:=k+1;

end;

readln;

end.

1 07. Написать программу, которая вычисляет факториал введенного с клавиатуры числа. (Факториалом числа п называется произведение целых чисел от 1 до п. Например, факториал 1 равен 1, 8 — 40320).

program pz_3_107;

var

k,s,i,n:integer;

begin

writeln('Vvedite chislo factoriala');

readln(n);

k:=1;

s:=1;

for i:=1 to n do

begin

s:=s*k;

k:=k+1;

end;

writeln('Factorial ',n,' raven ',s);

readln;

end.

108. Написать программу, которая выводит таблицу значений функции у = -2,4х²+5х-3 в диапазоне от -2 до 2 с шагом 0,5.

p rogram pz_3_108;

var

I:integer;

x,y:real;

begin

writeln('Tablica funkciy');

writeln('X Y');

x:=-2;

for i:=1 to 9 do

begin

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

writeln(x:1:1,' ',y:1:2);

x:=x+0.5;

end;

readln;

end.

1 09. Написать программу, которая вводит с клавиатуры 5 дробных чисел и вычисляет их среднее арифметическое.

program pz_3_109;

var

a,s:real;

I:integer;

begin

writeln('Vvedite 5 drobnih chisel');

s:=0;

for i:=1 to 5 do

begin

readln(a);

s:=s+a;

end;

s:=s/5;

writeln('Srednee arifmeticheskoe: ',s:1:1);

readln;

end.

110. Написать программу, которая вычисляет среднее арифметическое вводимой с клавиатуры последовательности дробных чисел. Количество чисел должно задаваться во время работы программы.

program pr_3_110;

var

a,i:integer;

b,c,d:real;

begin

writeln('vvedite kolitchestvo 4isel');

readln(a);

writeln('vvedite 4usla');

for i:=1 to a do

begin

readln(c);

b:=b+c;

end;

writeln('summa=',b:1:2);

d:=b/a;

writeln('srednee arifm.=',d:1:2);

readln;

end.

111. Написать программу, которая вводит с клавиатуры последовательность из пяти дробных чисел и после ввода каждого числа выводит среднее арифметическое полученной части последовательности.

program pr_3_111;

var

I:integer;

a,b,c,d:real;

begin

writeln('vvedite 4usla');

for i:=1 to 5 do

begin

readln(c);

a:=a+c;

d:=a/i;

writeln('vvedeno 4usel=',i,',

summa=',a:1:2,' srednee arifm=',d:1:2);

end;

readln;

end.

112. Написать программу, которая вычисляет среднее арифметическое последовательности дробных чисел, вводимых с клавиатуры. После того, как будет введено последнее число, программа должна вывести минимальное и максимальное число последовательности. Количество чисел должно задаваться во время работы программы.

program pr_3_112;

var

a,i:integer;

b,c,d,min,max:real;

begin

writeln('vvedite kolitchestvo 4isel');

readln(a);

writeln('vvedite 4usla');

for i:=1 to a do

begin

read(c);

b:=b+c;

if i=1 then

begin

max:=c;

min:=c;

end;

if c>max then

max:=c;

if c<min then

min:=c;

end;

d:=b/a;

writeln('koli4estvo 4isel=',a);

writeln('crednee arifm.=',d:1:2);

writeln('min=',min:1:2);

writeln('max=',max:1:2);

readln;

readln;

end.

113. Написать программу, которая генерирует 10 случайных чисел в диапазоне от 1 до 10, выводит эти числа на экран и вычисляет их среднее арифметическое.

Program pr3_113;

var

s:array [1..20] of Integer;

i,a:Integer;

d:Real;

begin

Randomize;

for a:=1 to 10 do

s[a]:=Random(10)+1;

for a:=1 to 10 do Write(s[a],' '); ;

for i:=1 to Length(s) do a:=a+s[i];

writeln('srednee arifm.= ',a/10:2:2);

readln;

end.

1 14. Написать программу, которая генерирует три последовательности из десяти случайных чисел в диапазоне от 1 до 10, выводит каждую последовательность на экран и вычисляет среднее арифметическое каждой последовательности.

Program pr3_114;

var

s:array [1..20] of Integer;

j,i,a:Integer;

begin

Randomize;

for j:=1 to 3 do begin

for a:=1 to 10 do

s[a]:=Random(10)+1;

for a:=1 to 10 do Write(s[a],' '); ;

for i:=1 to Length(s) do a:=a+s[i];

writeln('srednee arifm.= ',a/10:2:2); end;

readln;

end.

115. Написать программу, которая выводит на экран таблицу стоимости, например, яблок в диапазоне от 100 г до 1 кг с шагом 100.

Program pr3_115;

var

s:array [1..20,1..20] of integer;

j,i,a:Integer;

d:Real;

begin

Randomize;

Writeln('vvedite cenu za kg ');

readln(d);

for i:=1 to 10 do

begin s[i,1]:=i*100; Writeln(s[i,1],' ', d/10*i:5:2) ;end;

readln;

end.

1 16. Написать программу, которая выводит таблицу значений функции у = |х|. Диапазон изменения аргумента — от -4 до 4, шаг приращения аргумента — 0,5.

Program pr3_116;

var

y,x:Real;