Dziękuję bardzo, że się mną zainteresowałeś
Wiesz co takie zamienianie wszystkiego na jedną stałą jednostkę to nie wiem czy mi to coś więcej da niż już mam.
Oto co mam
program cos;
uses crt;
var
ab,ba:string;
a,b,c,d,e,f,g:string;
a1:real;
z,x,wynik:real;
petla:integer;
procedure dlugosc;
begin
petla:=1;
repeat
clrscr;
writeln ('a-kilometry, b-metry, c-centymetry, d-mile, e-jard, f-stopa, g-cale');
writeln ('podaj jednostke poczatkowo');
readln (ab);
writeln ('podaj jednostke koncowa');
readln(ba);
writeln('podaj dlugosc');
readln(a1);
if (ab='a') and (ba='a') then
begin
z:=1;
wynik:=z*a1;
writeln (a1:2:3,' kilometrow to ',wynik:2:3,' kilometrow');
end;
if (ab='a') and (ba='b') then
begin
z:=1000;
wynik:=z*a1;
writeln (a1:2:3,' kilometrow to ',wynik:2:3,' metrow');
end;
if (ab='a') and (ba='c') then
begin
z:=10000;
wynik:=z*a1;
writeln (a1:2:3,' kilometrow to ',wynik:2:3,' centymetrow');
end;
if (ab='a') and (ba='d') then
begin
z:=0.621371192;
wynik:=z*a1;
writeln (a1:2:3,' kilometrow to ',wynik:2:3,' mil');
end;
if (ab='a') and (ba='e') then
begin
z:=1093.61;
wynik:=z*a1;
writeln (a1:2:3,' kilometrow to ',wynik:2:3,' jardow');
end;
if (ab='a') and (ba='f') then
begin
z:=3280.83;
wynik:=z*a1;
writeln (a1:2:3,' kilometrow to ',wynik:2:3,' stop');
end;
if (ab='a') and (ba='g') then
begin
z:=39370.07;
wynik:=z*a1;
writeln (a1:2:3,' kilometrow to ',wynik:2:3,' cali');
end;
{if (ab='b') and (ba='a') then
begin
z:=3280.83;
wynik:=z*a1;
writeln (a1:2:3,' kilometrow to ',wynik:2:3,' stop');
end;}
readln;
writeln ('czy chcesz zakonczyc? 1-TAK 2-NIE');
readln(petla);
until petla=1;
end;
BEGIN
clrscr;
dlugosc;
END.
Co ty na to?
PS to który plik to jest w końcu właściwy plik programu ten z .bak czy pas. skoro mój pas się w notatniku otwiera?
– Dodane 23.05.2009 (So) 17:31 –
Bo ja bym chciał żeby to użytkownik mógł sobie wybrać z jakich na jakie jednostki
Muszę na chwilę wyjść wracam za godzinę