A program számolja ki egy téglalap kerületét, területét. Valaki segítene?
Holnap írunk belőle de a gépemen bárhogy is írom be mindig talál valami hibát találtam a neten olyat hogy :program Pelda11;
var a,b:integer;
begin
writeln('Kerem a teglalap mereteit.');
write('a = ');
readln(a);
write('b = ');
readln(b);
writeln('A teglalap kerulete, k = ',2*a+2*b);
writeln('A teglalap terulete, T = ',a*b);
end.
de nem ilyen kell a tánárnak hanem olyan amibe Gotoxy meg ilyenek is szerepelnek.
válasza:A változók deklarációja elé nem ártana egy Uses Crt;
GoToXY minek bele? Meg még milyenek kellenek?... Pontos feladatleírás nélkül segíteni sem tudunk...
Mert a tanár is diktált a füzetbe csak az egy négyzet volt és abból kell következtetnünk hogy ezt hogy is kell akkor csinálni abba meg így volt hogy:
Program negyzet;
Uses Crt;
Var:a,K,T:word;
Begin
ClrScr;
Gotoxy(15,2);
Write('A negyzet kerulet,terulet szamitasa');
Gotoxy(15,3);
Write('-----------------------------------');
Gotoxy(2,10);
Write('Kerem a negyzet oldalainak hosszat cm-ben: cm');
Read Ln(a);
K:=4*a;
T:=a*a;
Gotoxy(2,20);
Write('A kerulete:',K,'cm2');
Gotoxy(2,22);
Write('A terulete:',T,'cm2');
Gotoxy(15.30);
Write('Enterre vege!');
Read Ln;
End.
válasza: válasza:Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!