Генератор случайных чисел (Ввод данных случайным образом).
Randomize – изменение базы генератора случайных чисел.
Random – генерирует значение случайного числа
из диапазона 0..0.99 - [0;1)
Random(x) - генерирует значение случайного числа
из диапазона [0..х-1]
n:=random(x)+1; - для натуральных чисел
d:=random(90)+10; - для двузначных чисел
r:=random(21)-10; - из [-10;10]
o:=random(5)+1; - для оценок
Задача №1: Вычислить площадь круга и длину
окружности, радиус которых задан случайным образом.
Program Circle;
Uses Crt;
Var r:byte;
S, l:real;
Begin
Randomize;
r:=random(9)+1;
Writeln(‘R=’,r);
S:=pi*sqr(r);
L :=2*pi*r;
Writeln(‘s=’,s:5:3);
Writeln(‘l=’,l:5:3);
End.
Задача №2: Вычислить сумму цифр четырёхзначного
числа, заданного случайным образом.
Program SumCifr;
Uses Crt;
Var x:integer;
a, b,c, d,s:byte;
Begin
x:=random(9000)+1000;
Writeln(‘x=’,x);
a:=x div 1000;
x:=x mod 1000;
b:=x div 100;
x:=x mod 100;
c:=x div 10;
d:=x mod 10;
s:=a+b+c+d;
Writeln(‘Сумма цифр=’,s);
End.
Задача №3: Получить для четырёхзначного числа,
заданного случайным образом, число перевёртыш.
Program Perewert;
Uses Crt;
Var x, y:integer;
a, b,c, d:byte;
Begin
x:=random(9000)+1000;
Writeln(‘x=’,x);
a:=x div 1000;
x:=x mod 1000;
b:=x div 100;
x:=x mod 100;
c:=x div 10;
d:=x mod 10;
y:=a+b*10+c*100+d*1000;
Writeln(‘Перевёртыш = ’,y);
End.
Задача №4: Вычислить а4 и а10 ,
используя 4 раза операцию умножения.
Program Stepen;
Uses Crt;
Const a=2;
Var b, c,d, e:integer;
Begin
b:=a*a; {2}
c:=b*b; {4}
d:=c*a; {5}
e:=d*d; {10}
Writeln(‘2^4=’,c); Writeln(‘2^4=’,power(2,4));
Writeln(‘2^10=’,e); Writeln(‘2^10=’, power(2,10));
Еnd.
Целочисленная арифметика.
Линейные программы с разными единицами измерений.
Повторение:
Операции над целыми числами: +, -, *, /, div, mod. Какие из них относятся к универсальным? Какие к специфическим? Указать назначение специфических операций. Что является результатом выполнения операторов: Writeln(40 div 3); Writeln(40 mod 3); Имеется большое количество грамм - Х. Как вычислить Y - целое количество кг? Как вычислить Z - целое количество г?Задание 1. Три барана влюбились в одну и ту же овцу.
Первый баран признавался в любви Х часов Y минут, второй
H часов M минут, а третий говорил о своих чувствах F часов
и N минут. Сколько часов и минут слушала влюблённых
баранов счастливая овца?
Program Happy;
uses crt;
var x, y,h, m,f, n,a, b,c, d:byte;
begin
writeln (' Время объяснения в любви 1 барана '); readln(x, y);
writeln (' Время объяснения в любви 2 барана '); readln(h, m);
writeln (' Время объяснения в любви 3 барана '); readln(f, n);
a:=x+h+f;
b:=y+m+n;
c:=b div 60;
d:=b mod 60;
c:=c+a;
writeln(c,' часов и ',d,' минут слушала влюблённых баранов
счастливая овца.');
end.
Задание 2. Расстояние до школы S метров, за сколько
минут и секунд преодолеет это расстояние ученик,
идущий со скоростью 5 км/ч.
Program School;
uses crt;
var c, m:byte;
s, tc:integer;
v, t:real;
begin
writeln (' Введите расстояние до школы в метрах');
readln(s);
v:=5*1000/3600; { м/с}
t:=s/v; { с}
tc:=round(t);
m:=tc div 60;
c:=tc mod 60;
writeln(‘За ‘,m,' минут и ',c,' секунд ученик
дойдёт до школы.');
end.
Законспектировать в тетради.
