Реферат: Программирование в Turbo Pascal

Нет

Да

Нет Да

Вывод на экран таблицы результата расчетов

Да

Нет Нет

Нет Да

Да

Да

program kursovik;

uses crt;

type

telef=record

kod:integer;

tpm1,tpm2,tpm3,price1,price2,price3:integer;

end;

telef1=record

kod,tpm,ob:integer;

pr1,pr2,pr3:integer;

end;

var

a:file of telef;

tel:telef;

res:array[1..7] of telef1;

i,j,s,aa,max:integer;

begin;

textbackground(10);