uses SysUtils; var a, b, h, s:real; begin writeln('Enter a, b and h'); readln(a, b, h); s:=(0.5*(a+b))*h; writeln('Area of the trapezoid=', s); readln; end.
Программа №2.
program НАЗВАНИЕ ПРОГРАММЫ;
{$APPTYPE CONSOLE}
uses SysUtils; var a, b, s:integer; begin writeln('Enter the price and quantity'); readln(a, b); s:=a*b; writeln('Cost of purchase=', s); readln; end.
Программа №3.
program НАЗВАНИЕ ПРОГРАММЫ;
{$APPTYPE CONSOLE}
uses SysUtils; var a, b, w:real; begin writeln('Enter the speed and time'); readln(a, b); w:=a*b; writeln('Way=', w); readln; end.
Вместо "НАЗВАНИЯ ПРОГРАММЫ" напишите название Вашей программы. Так как в некоторых задачах не оговорено, что числа целые или нет, я выбрал на всякий случай вещественный(real).
Смотри, надо запомнить несколько операторов в Pascal. Trunc(x) - выводит ближайшее целое, не превышающее x по модулю. Например, вместо 6.66666666667, оператор выведет 6. Важно, чтобы число x было вещественным. Ну а при выводе - целым. Round(x) - округляет число. Например, вместо 6.66666667, оператор выведет 7. Важно, чтобы число x было вещественным. Ну, а при выводе - целым. Int(x) - выводит целую часть числа x. Например, 6.66666667, оператор выведет 6. Число x должно быть целым или вещественным, но при выводе - вещественным.
program НАЗВАНИЕ ПРОГРАММЫ;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a, b, h, s:real;
begin
writeln('Enter a, b and h');
readln(a, b, h);
s:=(0.5*(a+b))*h;
writeln('Area of the trapezoid=', s);
readln;
end.
Программа №2.
program НАЗВАНИЕ ПРОГРАММЫ;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a, b, s:integer;
begin
writeln('Enter the price and quantity');
readln(a, b);
s:=a*b;
writeln('Cost of purchase=', s);
readln;
end.
Программа №3.
program НАЗВАНИЕ ПРОГРАММЫ;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a, b, w:real;
begin
writeln('Enter the speed and time');
readln(a, b);
w:=a*b;
writeln('Way=', w);
readln;
end.
Вместо "НАЗВАНИЯ ПРОГРАММЫ" напишите название Вашей программы.
Так как в некоторых задачах не оговорено, что числа целые или нет, я выбрал на всякий случай вещественный(real).