DIAGNOSE
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
uses crt;
type
mas=array[1..20] of string;
mas2=array[1..20] of real;
var
s:mas;
r:mas2;
i,n:integer;
g1,g2,g3,g4,g5,g6,pass:string;
d1,d2,d3,d4,d5,d6,x1,x2,x3:real;
{--------------------------------------------------------}
procedure vvod;
begin
for i:=1 to n do
begin
writeln('пункт ',i,'= '); readln(s[i]);
writeln('расстояние до него = '); readln(r[i]);
end;
end;
{--------------------------------------------------------}
procedure poisk;
begin
for i:=1 to n do
begin
if s[i]='тула' then
begin
g1:=s[i];
d1:=r[i];
end;
if s[i]='орёл' then
begin
g2:=s[i];
d2:=r[i];
end;
if s[i]='курск' then
begin
g3:=s[i];
d3:=r[i];
end;
if s[i]='белгород' then
begin
g4:=s[i];
d4:=r[i];
end;
if s[i]='харьков' then
begin
g5:=s[i];
d5:=r[i];
end;
if s[i]='запорожье' then
begin
g6:=s[i];
d6:=r[i];
end;
end;
end;
{-----------------------------------------------------------}
procedure raschet;
begin
x1:=d2-d1;
x2:=d4-d3;
x3:=d6-d5;
end;
{-----------------------------------------------------------}
procedure vivod;
begin
writeln('расстояние между городами',g2,' i ',g1,'=',x1:5:2 );
writeln('расстояние между городами',g4,' i ',g3,'=',x2:5:2 );
writeln('расстояние между городами',g6,' i ',g5,'=',x3:5:2 );
end;
{-----------------------------------------------------------}
begin
repeat
n:=20;
clrscr;
vvod;
poisk;
raschet;
vivod;
writeln('exit? y/n'); read(pass);
until pass='y';
end. |
