X: integer;
Mes: integer;
Begin
X:=0;
Mes:=0;
While x<1000000 do
Begin
Randomize;
X:=x+random(100000);
writeln(x);
Mes:=mes+1;{inc(mes)}
End;
Writeln('mes', mes);
Readln;
End.
Листинг 4.
Даны вещественные числа a, b и c, причем a отлично от 0. Решить квадратное уравнение ax2 + bx + c = 0 или сообщить о том, что действительных решений нет.
Решение:
program Pr4;
var
a, b, c, d, x1, x2: real;
begin
readln(a, b, c);
d := b * b - 4 * a * c;
if d >= 0 then
begin
if d <> 0 then
begin
x1 := (-b + sqrt(d)) / 2 * a;
x2 := (-b - sqrt(d)) / 2 * a;
writeln('x1 = ', x1, ', x2 = ', x2)
end
else begin
x1 := -(b / 2 * a);
writeln('x = ', x1:4:2)
end
end
else begin
writeln('No real solutions!');
end
end.
Упражнение 4.1
Составить программу, позволяющую определить результат у =Х^3+3*X, если Х>0 и У=8*Х+8 при Х<=0.
Упражнение 4.2
Составить программу, определяющую, является ли введенное число решением неравенства х3+3 >0.
Листинг 5
Дано натуральное число. Вывести на экран все натуральные числа до заданного включительно.
program Pr5;
var
i, n: integer;
begin
readln(n);
for i:= 1 to n do
begin
write(i, ' ')
end
end.
Листинг 5.1 "Счастливые билеты"
Условие: Создать программу определения числа билетов с 6-значными номерами, у которых сумма первых 3 десятичных цифр равна сумме 3 последних десятичных цифр.
Program billet;
var a, b, c, d, e, f, k: integer;
i: integer;
begin
k:=0;
for a:=0 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
for d:=0 to 9 do
for e:=0 to 9 do
for f:=1 to 9 do
if (a+b+c)=(d+e+f) then k:=k+1;
writeln(k);
end.
Листинг 5.2
Вычислить сумму ряда чисел 1/12 + 1/22 + 1/32 + … + 1/n2, где n определяется пользователем.
var
n, i: Integer;
sum: real;
begin
write ('n = '); readln (n);
sum := 0;
for i := 1 to n do
sum := sum + 1/(i*i);
writeln (sum:6:5);
{ 6 знакомест, из них 5 под дробную часть}
readln
end.
Упражнение 5.1
Вычислить сумму ряда чисел 1 + 2 + 3 + … + n, где n определяется пользователем.
Program ypr5_1;
Var
Sum:real;
I, n:integer;
Begin
Writeln('введите n'); readln(n);
Sum:=0;
For i:=1 to n do
Sum:=sum+i;
Writeln(sum);
Readln;
End.
Упражнение 5.2
Вычислить сумму ряда чисел 1 + 1/2 + 1/3 + … + 1/n, где n определяется пользователем.
Program ypr5_2;
Var
I,n:integer;
Sum:real;
Begin
Writeln('введите n'); readln(n);
Sum:=0;
For i:=1 to n do
Sum:=sum+1/I;
Writeln(sum);
Readln;
End.
Листинг 6.
Составить программу подсчета количества букв «в» в строке.
Program podchet;
Var
s:string;
n,i:integer;
begin
Writeln('Введите текст');
readln(s);
n:=0;
for i:=1 to length (s) do
if s[i]='в' then n:=n+1;
writeln('число букв в =',n);
end.
Упражнение 6.1
Составить программу подсчета количества слов в тексте?
Program ypr6_1;
Var
S:string;
N, i:integer;
Begin
N:=0;
Writeln('Введите текст'); readln(s);
For i:=1 to length (s) do
If s[i]= ' ' then n:=n+1;
Writeln('Число слов', n+1);
Readln;
End.
Упражнение 6.2
Составить программу замены буквы и на i в тексте?
Program ypr6_2;
Var
S:string;