[Pascal] Комбинированные типы

[Рамик]

Задача:
Дано 3 прямоугольника, о каждом известном его имя, ширина и высота.
вывести имя прямоугольника с наименьшей площадью.


ПОДСКАЖИТЕ АЛГОРИТМ ПОЖАЛУЙСТА(если можно в программном виде)

[Sazary]

Объявляете тип:

type pryam = record
name : string;
a : integer;
b : integer;
end;

и массив из 3-х прямоугольников:

var P : array[1..3] of pryam;

Вводите данные:

for i:=1 to 3 do
 begin
 readln(P[i].name);
 readln(P[i].a);
 readln(P[i].b);
 end;

Затем находите площади, сравниваете и выводите имя меньшего.

[Рамик]

спасибо!
.

как правельно условие поставить?

program p1;
uses crt;
type pryam=record
name:string;
a:integer;
b:integer;
end;
var p:array[1..3] of pryam;
    i:byte;
    s1,s2,s3:integer;
begin
clrscr;
writeln('vvedite dannie:');
for i:=1 to 3 do begin
readln(p[i].name);
readln(p[i].a);
readln(p[i].b);
end;
s1:=(p[1].a)*(p[1].b);
s2:=(p[2].a)*(p[2].b);
s3:=(p[3].a)*(p[3].b);
if s1<s2 then
if s1<s3 then begin
writeln(p[1].name); end
else
if s2<s1 then
if s2<s3 then begin
writeln(p[2].name); end
else
if s3<s2 then
if s3<s1 then begin
writeln(p[3].name); end;
end.

[Sazary]

Так, например:

if (s1<s2) and (s1<s3) then writeln(p[1].name)
else if (s2<s1) and (s2<s3) then writeln(p[2].name)
else if (s3<s1) and (s3<s2) then writeln(p[3].name);

[Рамик]

спасибо большое!