Referat Programe Pascal
Mai jos puteti citi fragmente din
Referat Programe Pascal si de asemenea puteti face
Download Referat Programe PascalCiteste fragmente din Referat Programe Pascal
PROGRAME PASCAL
PROGRAM suma; PROGRAM suma; PROGRAM
vect;
VAR VAR VAR
S,n,I: integer; S,A,B:real; x:array[1..10]
ofinteger
BEGIN BEGIN n,i:integer;
READ(n); READ(n); BEGIN
S:=0; READ(n); read(n)
For I:=1 to n do S:=(A+1)*1/n; for i:=1 to n do
S:=S+I WRITE(S); read(x[i]);
WRITE(S); END. for i:=1 to n do
END. WRITE en (x[i]);
END.
PROGRAM calcul arie; PROGRAM calcul arie;
const pi=3.1415926; const pi=3.1415926;
VAR raza,aria:Real; VAR raza, aria: real;
BEGIN BEGIN
READLn(raza); READLn(raza);
if raza<=0 then aria:=pi*Sqr(raza);
WRITELn(`imposibil`) WRITELn(aria)
else END.
BEGIN
aria:=pi*Sqr(raza);
WRITELn(`aria este: ` , aria)
END
END.
ì¥Â@
