Pascalban programozás?

Sajnos csak a másodikra tudok válaszolni, mivel nagyon rég Pascaloztam, úgyhogy, ha nem baj, a deklarálást ki is hagynám, csak a kozepét írnám le.

println(`Az elso szam?`);

readln(elso);

println(`A masodik szam?`);

readln(masodik);

if elso < masodik then println(masodik)

else if elso > masodik then println(elso)

else println(`egyenloek`);

Azért próbáld ki, hogy mukodik-e, nem akarok hulyeségeket írni.

Az első kérdésedre valami ilyesmi programot kellene összedobni:

(A program csökkenő sorrendbe írja ki a számokat, nem pedig úgy, ahogy te szeretéd. Azonban lehet úgy módosítani, hogy azt tegye amire szükséged van)

Kód:

program beker;

uses crt; {a képernyőtörlés miatt használjuk a crt unitot}

procedure cserel(var x,y : integer); {ez az eljárás felcserél két számot}

var

tmp : integer;

begin

if x<y then

begin

tmp:=x;

x:=y;

y:=tmp;

end;

end;

const

maxn = 3; {ennyi számot kérünk be}

var

szamok : array [1..maxn] of integer; {ebben a tömbben tároljuk majd a számokat}

i,j : integer; {Két változó a ciklusokhoz}

begin

for i:=1 to maxn do {nullázzuk a tömb elemeit}

szamok[i]:=0;

i:=1;

repeat {bekérjük a számokat}

clrscr; {töröljük a képernyőt}

write('Kérem az ',i,'. pozitív egész számot (0-',MaxInt,') : ');

readln(szamok[i]);

if (szamok[i]>=0) and (szamok[i]<=MaxInt) then inc(i);

until i=maxn+1;

for j:=1 to maxn do {rendezzük a tömb elemeit csökkenő sorrendbe}

for i:=1 to maxn-1 do

cserel(szamok[i],szamok[i+1]);

clrscr;

writeln('A számok nagyság szerinti sorrendben : ');

for i:=1 to maxn do {kiírjuk az eredményt a képernyőre}

writeln(szamok[i]);

end.

Remélem tudod használni, bár ha még csak a feltételes utasításokat tanuljátok, akkor lehet, hogy lesz benne olyan ami ismeretlen a számodra.

Második feladat:

uses crt;

var a,b : integer;

begin

clrscr;

write('a= ');readln(a);

write('b= ');readln(b);

if a>b then write('az A szam nagyobb')

else write('a B szam nagyobb');

readln;

end.