Тема

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

Задание

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

Алгоритм

Океаны

% от мировой площади

Тихий

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.