Информационный вес символа при алфавитном подходе считается, что каждый символ текста имеет определенный информационный вес, информационный вес символа зависит от мощности алфавита. а каким может быть наименьшее число символов в алфавите? оно равно двум! скоро вы узнаете, что такой алфавит используется в компьютере. он содержит всего 2 символа, которые обозначаются цифрами «0» и «1». его называют двоичным алфавитом. изучая устройство и работу компьютера, вы узнаете, как с всего двух символов можно представить любую информацию. информационный вес символа двоичного алфавита принят за единицу информации и называется 1 бит.
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).
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).