Підпрограми
Підпрограми
Маємо 6 задач, які будуть звертатись до одного dll файлу. Щоб побудувати цю програму звичайно нам треба користуватись методом функцій .
Для початку розглянемо умови цих задач.
Задача №1. Дано правильний трикутник стороною а. Знайти його площу.
Задача №2. Дано коло радіусом r. Знайти його площу.
Задача №3. Дано квадрат стороною а. Знайти його площу.
Задача №4.Дано правильну піраміду стороною а. Знайти її об’єм.
Задача №5.Дано куб стороною а. Знайти його об’єм..
Задача №6.Дано сферу радіусом r. Знайти її об’єм..
Напишемо програму для цих задач та dll файла .
{$reference pidprogramma.dll}
var a:integer;
begin
writeln ('Знайти площу правильного трикутника зi стороною а');
write ('а = ');
readln(a);
write(TrikToString);
writeln(Trik(a));
readln;
end.
{$reference pidprogramma.dll}
var a:integer;
begin
writeln ('Знайти площу кола з радiусом а');
write ('а = ');
readln(a);
write(KolToString);
writeln(Kol(a));
readln;
end.
{$reference pidprogramma.dll}
var a:integer;
begin
writeln ('Знайти площу квадрата зi стороною а');
write ('а = ');
readln(a);
write(KwadToString);
writeln(Kwad(a));
readln;
end.
{$reference pidprogramma.dll}
var a:integer;
begin
writeln ('Знайти обєм правильної пiрамiди зi стороною а');
write ('а = ');
readln(a);
write(Trik2ToString);
writeln(Trik2(a));
readln;
end.
{$reference pidprogramma.dll}
var a:integer;
begin
writeln ('Знайти обєм куба зi стороною а');
write ('а = ');
readln(a);
write(Kwad2ToString);
writeln(Kwad2(a));
readln;
end.
{$reference pidprogramma.dll}
var a:integer;
begin
writeln ('Знайти обєм сфери з радіусом а');
write ('а = ');
readln(a);
write(Kol2ToString);
writeln(Kol2(a));
readln;
end.
library pidprogramma;
function TrikToString: string;
begin
Result := 'Площа трикутника = ';
end;
function Trik(a: real): real;
begin
Result := round(sqrt(3)/4*a*a*100)/100;
end;
function KwadToString: string;
begin
Result := 'Площа квадрата = ';
end;
function Kwad(a: real): real;
begin
Result := a*a;
end;
function KolToString: string;
begin
Result := 'Площа кола = ';
end;
function Kol(a: real): real;
begin
Result := round(2*pi*a*a*100)/100;
end;
function Trik2ToString: string;
begin
Result := 'Обєм пiрамiди= ';
end;
function Trik2(a: real): real;
begin
Result := round(sqrt(2)/12*a*a*a*100)/100;
end;
function Kwad2ToString: string;
begin
Result := 'Обєм куба = ';
end;
function Kwad2(a: real): real;
begin
Result := a*a*a;
end;
function Kol2ToString: string;
begin
Result := 'Обєм сфери = ';
end;
function Kol2(a: real): real;
begin
Result := round(4/3*pi*a*a*a*100)/100;
end;
end.