Kód:
program Vzorce;
uses crt;
var jednotka1, jednotka2, jednotka3: string;
hodnota1, hodnota2, hodnota3: integer;
cislo: integer;
procedure vypocet;
begin
begin
if hodnota1 = 0 then
begin
writeln(jednotka1, ' = ', jednotka2, ' : ', jednotka3);
writeln(jednotka1, ' = ', hodnota2, ' : ', hodnota3);
writeln(jednotka1, ' = ', hodnota2/hodnota3:5:2);
writeln('Rýchlosť je ', hodnota2/hodnota3:5:2);
end;
if hodnota2 = 0 then
begin
writeln(jednotka2, ' = ', jednotka1, ' . ', jednotka3);
writeln(jednotka2, ' = ', hodnota1, ' . ', hodnota3);
writeln(jednotka2, ' = ', hodnota1*hodnota3);
writeln('Dráha je ', hodnota1*hodnota3);
end;
if hodnota3 = 0 then
begin
writeln(jednotka3, ' = ', jednotka2, ' : ', jednotka1);
writeln(jednotka3, ' = ', hodnota2, ' : ', hodnota1);
writeln(jednotka3, ' = ', hodnota2/hodnota1:5:2);
writeln('Čas je ', hodnota2/hodnota1:5:2);
end;
end;
readln;
end;
begin
begin
clrscr;
writeln('Vyberte, s ktorým zo vzorcov chcete pracovať (stlačením príslušného čisla.');
writeln('1. vzorec pre rýchlosť');
writeln('2. vzorec pre tiaž telesa');
readln(cislo);
end;
begin
jednotka1:='v';
jednotka2:='s';
jednotka3:='t';
if cislo = 1 then
begin
clrscr;
writeln('Zadajte hodnoty (za hodnotu, ktorú nepoznáme zadáme 0):');
write('v = ');
readln(hodnota1);
write('s = ');
readln(hodnota2);
write('t = ');
readln(hodnota3);
writeln('----------------');
end;
end;
begin
vypocet;
end;
begin
jednotka1:='m';
jednotka2:='G';
jednotka3:='g';
if cislo = 2 then
begin
clrscr;
writeln('Zadajte hodnoty: ');
write('m = ');
readln(hodnota1);
write('G = ');
readln(hodnota2);
write('g = ');
readln(hodnota3);
writeln('---------------');
end;
end;
begin
vypocet;
end;
readln;
end.
co sa tyka inych veci ako co som cel tak nevsimaj som zaciatocnik a dufam ze si pochopil co som cel
Skusim si ho spustit a hadam ten problem najdem(lebo v tom popise som ho akosi nenasiel 
Choď na stránku: 