dev pascal

[nitrix]

vie tu niekto programovat v dev pascale??..ak hej nech sa ozve..potrebujem surne pomoct s domacou ulohou..je to surne

[Fester182]

VITAJ na fore

no ked uz tak v "pascale", devpascal je len program v IDE pod widlami.

a co vam dala sudruzka ucitelka na ulohu ?

[nitrix]

no chcel by som len to aby pre mna niekto spravil len program
zadanie je tu


moc by mi to pomohlo..ostatok spravim ja..a mam to spravit do utorka

[galen]

Kód: Vybrať všetko

program funkcia;
uses crt;

var x: real;

procedure menejakominusdva;
begin
 repeat 
  writeln( (-2)*x -2);
  x:= x + 0.1;
 until x >=2;
end;

procedure odminusdvadoosem;
begin
 repeat 
  writeln(x + 4);
  x:= x + 0.1;
 until x >=8;
end;

procedure odosemdodevat;
begin
 repeat 
  writeln((-2) * x + 28);
  x:= x + 0.1;
 until x >9;
end;

begin
 x:=-9;
 TextColor(11);
 menejakominusdva;
 TextColor(12);
 odminusdvadoosem;
 TextColor(13);
 odosemdodevat;

 readln();
end.

PS: mozno to bude fungovat, pascal som uz 10 rokov nevidel
PPS: mas to v "prehladnej" tabulke o 1 stlpci, a 180tich riadkoch