Paskalis 10kl

Reikia pagalbos, mokausi paskalio ir nesuprantu kur vienoje užduoty padariau klaidą...

Užduotis tokia , kad įvedus 4 skaičius turi išrinkti didžiausią, esmė tame , kad vedu įvedus 3 man iškart rodo atsakymą, o man reikia lyginti 4 , kur klaida , kas ne taip ?

program maximumas;

var a, b, c, d, max, max1, maximum:integer;

begin

read (a,b,c,d);

if a>b

then max:=a

else max:=b;

if d>c

then max1:=d

else max1:=c;

if max>max1

then maximum:= max

else maximum:= max1;

writeln (maximum);

end.

Būsiu dėkinga už pagalbą...

Kas paaiškins ? ;/

Gale po writeln pridėk dar dvi readln eilutes, tik nežinau kodėl dvi :)

Gale po writeln pridėk dar viena readln() eilutę :)

Vistiek tas pats, esmė ta kad man vedant skaičius įsiveda tik 3, nors rašau 4 kintamuosius ;////

Man 4 isiveda.

Nesuprantu, man tik 3 leidžia įvest ir meta ats

bandyk per nauja fps pasileist

Viskas dabar gerai, viska isjungiau ijungiau , perrasiau is naujo ir veikia....

O tiek kankinaus :D

Prie to pačio, jei kam įdomu, pateikiu jums tą pačią programą tačiau užrašyta truputį kitaip :).

program didziausias_skaicius;
var x,y,z,d:real;
begin

readln(x,y,z,d);
if (x > y) and (x > z) then writeln('Didziausias skaicius', x:6:2)
else if(y > x) and (y > z) and ( y > d) then writeln('Didziausias skaicius', y:6:2)
else if (z > x) and (z > y) and ( z > d) then writeln('Didziausias skaicius', z:6:2)
else if (d > x) and (d > y) and (d > z) then writeln('Didziausias skaicius', d:6:2);
readln();

end.

P.s jei neveikia pakeiskite

readln

į

read

.

 program didziausias_skaicius;
var x,y,z,d:real;
begin
 writeln('Įveskite keturis skaičius');
 readln(x,y,z,d);
 if (x < y) x:=y;
 if (x < z) x:=z;
 if (x < d) x:=d;
 writeln('didžiausias skaičius', x:8:2);
 readln();
end.

Manau toks variantas būtų geriausias. :)

Manau toks variantas būtų geriausias. :)

Jei norėtumėm dar mandriau:

program didziausias_skaicius;
var a, b : real;
   i : integer;
begin
 b := -1E-323;
 WriteLn('Įveskite keturis skaičius');
 for i := 1 to 4 do 
   begin
     Read(a);
     if a > b then 
       b := a;
   end;
 WriteLn('didžiausias', b:8:2);
 ReadLn();
end.