Выполнение задания по программированию в TURBO PASCAL

textcolor(0);

writeln('                             Используемые цвета ');

textcolor(4);

writeln(' - черный(0),красный(4), светло-зеленый(10), желтый(14)');

textcolor(14);

gotoxy(18,24);

writeln('Для продолжения  работы программы нажмите ENTER');

 readln;

clrscr;

assign(a,'kurs.dat');

rewrite(a);

textcolor(0);

for i:=1 to 7 do

  begin

   write('Введите  код ',i,'-го города: ');

   readln(tel.kod);

   write('Введите общее время разговора с городом ',tel.kod,' за 1-й месяц: ');

   readln(tel.tpm1);

   write('Введите стоимость одной минуты разговора с городом ',tel.kod,' в 1-м месяце: ');

   readln(tel.price1);

   write('Введите общее время разговора с городом ',tel.kod,' за 2-й месяц: ');

   readln(tel.tpm2);

   write('Введите стоимость одной минуты разговора с городом ',tel.kod,' в 2-м месяце: ');

   readln(tel.price2);

   write('Введите общее время разговора с городом ',tel.kod,' за 3-й месяц: ');

   readln(tel.tpm3);

   write('Введите стоимость одной минуты разговора с городом ',tel.kod,' в 3-м месяце: ');

   readln(tel.price3);

   write(a,tel);

  end;

close(a);reset(a);

s:=1;

while not eof(a) do begin

                      read(a,tel);

                      res[s].kod:=tel.kod;

                      res[s].tpm:=tel.tpm1+tel.tpm2+tel.tpm3;

                      res[s].pr1:=tel.tpm1*tel.price1;

                      res[s].pr2:=tel.tpm2*tel.price2;

                      res[s].pr3:=tel.tpm3*tel.price3;

                      res[s].ob:=res[s].pr1+res[s].pr2+res[s].pr3;

                      s:=s+1;

                     end;close(a);

 clrscr;

writeln('Код города   Общее время разговора за каждый  месяц    Стоимость минуты  разговора');

 reset(a);

while not eof(a) do

  begin

   read(a,tel);

   writeln('                        ',tel.tpm1,'                                    ',tel.price1);

   writeln(' ',tel.kod,'                      ',tel.tpm2,'                                    ',tel.price2);

   writeln('                        ',tel.tpm3,'                                    ',tel.price3);

  end;

textcolor(14);

gotoxy(18,24);

 writeln('Для продолжения работы программы нажмите ENTER');

 readln;

clrscr;

textcolor(0);

 writeln('Код города   Общее время разговора за квартал    Плата за месяц    Общая плата');

 for i:=1 to 7 do

  begin

  aa:=res[i].kod;

  writeln('                                                        ',res[i].pr1);

  writeln('  ',aa,'                        ',res[i].tpm,'                            ',res[i].pr2,'               ',res[i].ob);

  writeln('                                                        ',res[i].pr3);

  end;

  max:=res[1].ob;

  for i:=1 to 6 do begin

                    if res[i+1].ob>max then

                                        begin

                                         max:=res[i+1].ob;

                                         j:=i+1;

                                        end; 

                   end;

writeln('Город с  наибольшей платой: ',res[j].kod);

textcolor(14);

gotoxy(18,24);

writeln('Для завершения  работы программы нажмите ENTER');

readln;

end. 
 
 
 
 
 
 

Результат. 

          Результатом выполнения программы  является вывод на экран информации  о студенте и о задании, ввод  исходных данных с клавиатуры  в диалоговом режиме,  вывод  исходных и расчетных данных в виде таблицы. Программа выполнена с учетом всех требований, указанных в задании.