Program exp3; uses crt; const m = 5; n = 3; type matr = array [1 .. m, 1 .. n] of integer; var A: matr; b, i, j, k: integer; begin clrscr; randomize; for i := 1 to m do begin for j := 1 to n do begin A[i, j] := random(101); end; end; k := n div 2; for j := 1 to k do begin for i := 1 to m do begin b := A[i, j]; A[i, j] := A[i, n - j + 1]; A[i, n - j + 1] := b; end; end; for i := 1 to m do begin for j := 1 to n do begin write(A[i,j]: 5) ; end; writeln; end; readln; end.
Алгоритм: Объявляем 4 переменные вещественного типа и считываем их. Выводим математическую формулу, для вычисления стоимости. Количество бензина на 1 км пути * удвоенное расстояние до дачи * цена бензина.
Ниже приведена программа на языке Паскаль
var S, count, price, ans:real; Begin Writeln('Введите расстояние до дачи -> ');Readln(s); Writeln('Введите расход бензина на 100 км пути -> ');Readln(count); Writeln('Введите цену бензина -> ');Readln(price); ans:= ((count/100)* 2*s * price ); Writeln('Стоимость поездки: ', ans); end.
Пример: Введите расстояние до дачи -> 28.54 Введите расход бензина на 100 км пути -> 13.1 Введите цену бензина -> 45 Стоимость поездки: 336.4866
X = B*B – 4*A*C
Объяснение: