FPS greitai pagelbekit 10min. iki pam liko

Kontrolis uzduotis tokia

parasykite programa kuri apskaiciuotu klases plota ilgis ir plotis ivedama klaviatura

10min. liko jeigu kas galit pagelbekit busiu dekingas.

Gali būti sintaksės klaidų, nes paskubomis rašiau ir nekompiliavau.

Program Plotas;

var ilgis, plotis, plotas : real;

begin

Writeln ('Iveskite klasės ilgį');

Readln (ilgis);

Writeln ('Iveskite klasės ploti');

Readln (plotis);

plotas := ilgis * plotis;

writeln ('Klases plotas yra ', plotas:4:2);

readln;

end.

ReadLn(plotis);

ReadLn(ilgis);

WriteLn('Klases plotas: ', (ilgis*plotis):6:2);

Gerai paskalio sintaksės nepamenu, bet kažkas panašaus. :D

ilgis ir plotis kintamieji real tipo.

Kontrolis uzduotis tokia

 

parasykite programa kuri apskaiciuotu klases plota ilgis ir plotis ivedama klaviatura

 

10min. liko jeigu kas galit pagelbekit busiu dekingas.

cia jau retarded reikia but, kad neisprest. sintakse pascalio paprasta, bent jau tokiem uzdaviniam. o ploto formule berods 5 klasej vaikai jau moka.