Тема

Составление и отладка программы обработки структур.

Задание

По индивидуальному заданию составить и отладить программу обработки структуры. В программе предусмотреть ввод структуры в виде таблицы с «шапкой». Для вывода линий таблицы использовать нестандартные функции.

Алгоритм

Океаны	% от мировой площади
Тихий	50
Атлантический	25
Индийский	21
Сев. – Ледовитый	4

Вывести названия океанов и их площади, если общая площадь океанов 261 млн. кв. км.

Контрольный пример

Проведем контрольный пример использования программы. Входные и выходные данные указаны ниже.

После ручной перепроверки видно, что программа работает согласно поставленному перед ней алгоритму.

Распечатка программы

program Project1;

{$APPTYPE CONSOLE}

uses

  SysUtils;

type ocean=

  record

    name:string;

    percent:integer;

    s:real;

  end;

var ar:array[1..4] of ocean;

var all,n:integer;

begin

  all:=261;

  ar[1].name:='Tihiy';

  ar[1].percent:=50;

  ar[2].name:='Atlanticheskiy';

  ar[2].percent:=25;

  ar[3].name:='Indiyskiy';

  ar[3].percent:=21;

  ar[4].name:='Severniy-Ledovitiy';

  ar[4].percent:=4;

  for n:=1 to 4 do

  begin

    ar[n].s:=all/100*ar[n].percent;

    writeln('Square of ',ar[n].name,' ocean = ',ar[n].s:5:2,' mln. kv. km.');

  end;

  read(n);

end.

Распечатка исходных данных

  all:=261;

  ar[1].name:='Tihiy';

  ar[1].percent:=50;

  ar[2].name:='Atlanticheskiy';

  ar[2].percent:=25;

  ar[3].name:='Indiyskiy';

  ar[3].percent:=21;

  ar[4].name:='Severniy-Ledovitiy';

  ar[4].percent:=4;

Распечатка результатов

Square of Tihiy ocean = 130.50 mln. kv. km.

Square of Atlanticheskiy ocean = 65.25 mln. kv. km.

Square of Indiyskiy ocean = 54.81 mln. kv. km.

Square of Severniy-Ledovitiy ocean = 10.44 mln. kv. km.