Нужна даю 40 болов
{Программа - диалог с компьютером.}
Program P1;
var Name:string;
Age:integer;
begin
write('Укажите Ваше имя: ');
readln(Name);
writeln('Здравствуйте, ',Name);
write('Укажите Ваш возраст: ');
readln(Age);
write('Через два года Вам будет: ',Age+2);
end.
Задание1:
1)Самостоятельно создать такую программу по образцу
2) ответить на во Что будет, если вместо имени ввести цифры?
Что будет, если на во о возрасте ввести букву?
3) Программа-диалог(Написать самостоятельно).
1)С у пользователя, в какой стране он планирует провести отпуск (завести переменную типа string, так как название страны – это слово. Например, Country:string;).
2)С какую сумму денег планируется потратить (завести переменную типа integer, так как сумма денег выражается числом. Например, Summa:integer;).
3)С сколько бонусных имеет клиент (здесь тоже нужна будет числовая переменная. Например, Bonus:integer;).
4)Вывести сообщение: «Страна – такая-то. Стоимость тура – такая-то.»
Стоимость тура можно рассчитать как
Summa–2*Bonus.Или как-нибудь по-другому использовать бонусы, на ваше усмотрение.
4)Рассчитать стоимость тура с учетом бонусных и вывести сообщение на экран.
{Вычислить периметр прямоугольника}
Program P2;
uses crt;
var a,b:integer;
begin
write('Укажите через пробел длины сторон прямоугольника: ');
readln(a,b);
writeln('P=',2*(a+b))
end.
Задание 2:
1)Самостоятельно написать программу, которая вычисляет площадь прямоугольника с заданными длинами сторон.
Задание 3:
Читать §3.2 учебника.
begin
var a:=MatrixRandom(3,2,-99,99);
Writeln('Массив А');
for var i:=0 to 2 do begin
for var j:=0 to 1 do Write(a[i,j]:4);
Writeln
end;
var b:=MatrixRandom(3,2,-99,99);
Writeln('Массив B');
for var i:=0 to 2 do begin
for var j:=0 to 1 do Write(b[i,j]:4);
Writeln
end;
var c:array[0..2,0..1] of real;
Writeln('Результирующий массив');
for var i:=0 to 2 do begin
for var j:=0 to 1 do begin
c[i,j]:=a[i,j]*b[i,j]/10; Write(c[i,j]:7:1)
end;
Writeln
end
end.
Тестовое решение
Массив А
-91 -93
-62 9
-97 6
Массив B
-64 18
57 -34
-65 -30
Результирующий массив
582.4 -167.4
-353.4 -30.6
630.5 -18.0
n: integer;
min, max: 0..9;
begin
Write('введите натуральное число: ');
Readln(n);
{инициализация начальных значений минимума и максимума}
min := 9;
max := 0;
{разбиение числа на отдельные цифры и поиск их минимума и максимума}
while n <> 0 do
begin
if n mod 10 < min then min := n mod 10;
if n mod 10 > max then max := n mod 10;
n := n div 10
end;
{Вычисление и вывод среднего геометрического минимума и максимума}
writeln('Среднее геометрическое: ', sqrt(max * min));
end.
Собственно сначала программа ищет минимальную и максимальную цифру в числе, а потом считает среднее геометрическое или среднее пропорциональное этих двух цифр.