Pascal przelicznik rozmiaru monitora na cale

Napisz program przeliczający rozmiar monitoru z cm na cale.
Podajesz długość i szerokość ekranu, a on wyświetli ci w calach rozmiar przekątnej ekranu.

program licze;
var a,b,przek:real;
const cal=2.5;
begin
    write('Podaj dˆługo˜ść monitora(cm): ');
    readln(a);
    write('Podaj szeroko˜ść monitora(cm): ');
    readln(b);
    przek:=sqrt(a*a*b*b)/ 1000;
    przek:=przek/cal;
    writeln('Przękątna twojego monitora wynosi ',przek:0:2,' cala.');
    readln;
end.

Użycie stałej.

Program liczący liczbę płyt

125 m chodnik składamy z 4 metrowych gotowych płyt ile płyt potrzeba na zbudowanie chodnika. Napisz program, który na podstawie podanych długości chodnika podaje ilość płyt.

program plyty;
uses crt;
const plyta=4;
var dlugosc:word;l_plyt:byte;
begin
write('Podaj dlugosc chodnika(w metrach):' );
readln(dlugosc);
l_plyt:= dlugosc div plyta;
if (dlugosc mod plyta) > 0 then
l_plyt:= l_plyt+1;
write('Musisz kupić ',l_plyt);
if(l_plyt=1) then write(' pˆłyte!')
else if(l_plyt<5) then  write(' płˆyty!')
else write(' płˆyt');
readln;
end.

const - stała, ustawiamy jaka jest stała długość płyty chodnikowej.

Strona wyszukana na takie tagi:

  • archiwum pascala