Ученик УВК "Гимназия-школа" №27 начал заниматься тренировкой. Он в день пробегал 5 км. Каждый день увеличивал нагрузку на 15% от пробега предыдущего дня. Путь пробежит ученик за 8 дней. Создать программу.
// PascalABC.NET 3.1, сборка 1198 от 11.03.2016 begin var n:=5; var z:=MatrixRandom(n,n,10,99); for var i:=0 to n-1 do begin for var j:=0 to n-1 do Print(z[i,j]); Writeln end; var imin:=0; var jmin:=n-1; for var i:=1 to n-1 do if z[i,n-i-1]<z[imin,jmin] then begin imin:=i; jmin:=n-i-1 end; Writeln('Zmin=Z[',imin+1,',',jmin+1,']=',z[imin,jmin]) end.
Задача 1
var
y, x: integer;// Объявляем переменные типа Integer
begin// Начало блока
writeln('Введите X: '); //Выводим текст на экран
read(x); //Читаем значение введеное с кливиатуры и записываем его в переменную
y := 7 * x * 2 - 3 * x + 6; //Выолняем выражение
writeln('Результат: ', y);// Выводим результат
end. // конец блока
Задача 2:
var
a, b, c: integer;//Объявление переменных
begin
write('Введите длину ребра куба '); //Вывод текста на экран
read(a); //Читаем значение введеное с клавиатуры
b := a * a * a; //Вычисляем объем куба
c := 6 * sqr(a); //Sqr - квадрат числа
{Далее опять же вывод результата}
writeln('Объём куба равен ', b);
writeln('Площадь боковой поверхности куба равна ', c);
end.
Задача 3
var
k: integer;//Объявление переменных
begin
write('Введите число: '); //Вывод текста на экран
read(k); //Читаем значение введное с клавиатуры
if Odd(k) then //Odd - возвращает True - если значение нечетно и False если четно
writeln('Нечетное')
else
writeln('Четное');
end.
Задача 4:
var
a, b: integer;
begin
writeln('Введите a и b через пробел:');
readln(a, b);
if (b mod a = 0) then writeln('Число ', a, ' является делителем числа ', b)
else writeln('Число ', a, ' НЕ является делителем числа ', b);
end.
Задача 5:
var
a, b: real;
begin
writeln('Через пробел введите 2 числа: ');
read(a, b);
if a > b then //Условие если А больше Б
begin
a := a / 2; //Делим число А на 2 и выводим результат
writeln('A:= ', a, ' B:= ', b);
end
else //Иначе оставляем все как и было
writeln('A:= ', a, ' B:= ', b);
end.
begin
var n:=5;
var z:=MatrixRandom(n,n,10,99);
for var i:=0 to n-1 do begin
for var j:=0 to n-1 do Print(z[i,j]);
Writeln
end;
var imin:=0;
var jmin:=n-1;
for var i:=1 to n-1 do
if z[i,n-i-1]<z[imin,jmin] then begin
imin:=i; jmin:=n-i-1
end;
Writeln('Zmin=Z[',imin+1,',',jmin+1,']=',z[imin,jmin])
end.
Тестовое решение:
26 62 62 90 76
21 67 69 43 37
18 19 35 88 91
60 91 87 46 27
49 71 16 77 81
Zmin=Z[3,3]=35
Замечание:
В массиве элементы нумеруются от 0 до 4, а при выводе номера индексов указаны для нумерации от 1 до 5 (так привычнее смотрится).