pomooc s pascalom
Prosim vas neviete mi pomoct s tymto: Zostavte program pre výpočet a tlač hodnôt funkcie y=(3-1,8x)/x, ak hodnoty x sú ukončené číslom 0.
Pre pridávanie komentárov sa musíte prihlásiť.
O Linuxe
Portál
Odporúčame
Podporte nás
Ak sa vám táto stránka páči, môžete nás podporiť tak, že si na vaše stránky umiestnite tento banner.
Náš Twitter tag je #LinuxOSsk
program PocitajNieco; uses crt; var x,y:real; begin while(true) do begin write('Zadaj X: '); readln(x); if(x=0) then break; y:=(3-1.8*x)/x; writeln('Y = ',y:2:4); end; end.a potom ked sa budes nudit pre realne :) lebo nejako tusim riesenie len neviem jak to napisat v pascale:)
program PocitajNieco; uses crt; var y:real; x:integer; begin while(true) do begin write('Zadaj X (0 ukonci program): '); readln(x); if(x=0) then break; if(x mod 10=0) then begin y:=(3-1.8*x)/x; writeln('Y = ',y:2:4); end else begin writeln('X sa nekonci nulou, takze smola.'); end; end; end.{tlac vystupov}
assign (subor,'vystupy.txt');
rewrite (subor);
uses crt;
var
y:real;
x:integer;
subor:text;
begin
assign(subor,'C:\tp7\blablabla');
rewrite(subor);
while(true) do begin
write('Zadaj X (0 ukonci program): ');
readln(x);
if(x=0) then break;
if(x mod 10=0) then begin
y:=(3-1.8*x)/x;
writeln('Y = ',y:2:4);
end else begin
writeln('X sa nekonci nulou, takze smola.');writeln(subor,y:2:4);
end;
end;
end.
takto by to mohlo byt nie?
program PocitajNieco;uses crt;
var
y:real;
x:integer;
subor:text;
begin
assign(subor,'C:\tp7\blablabla');
rewrite(subor);
while(true) do begin
write('Zadaj X (0 ukonci program): ');
readln(x);
if(x=0) then break;
if(x mod 10=0) then begin
y:=(3-1.8*x)/x;
writeln('Y = ',y:2:4);writeln(subor,y:2:4);
end else begin
writeln('X sa nekonci nulou, takze smola.');
end;
end;
end.
uses crt;
var
y:real;
x:integer;
subor:text;
begin
assign(subor,'C:\tp7\blablabla');
rewrite(subor);
while(true) do begin
write('Zadaj X (0 ukonci program): ');
readln(x);
if(x=0) then break;
if(x mod 10=0) then begin
y:=(3-1.8*x)/x;
writeln('Y = ',y:2:4);
end else begin
writeln('X sa nekonci nulou, takze smola.');writeln(subor,y:2:4);
end;
end;
end. Takto to ma bit je to uz tu ale len potvrzujem :P
close(subor);program PocitajNieco; uses crt; {$I-} var y:real; x:integer; subor:text; begin assign(subor,'vystup.txt'); rewrite(subor); if(IOresult<>0) then begin writeln('Nemozem zapisovat do pozadovaneho suboru!'); halt; end; while(true) do begin write('Zadaj X (0 ukonci program): '); readln(x); if(IOresult<>0) then begin writeln('Zapisuj cele cisla, ty hulvat.'); end else begin if(x=0) then break; if(x mod 10=0) then begin y:=(3-1.8*x)/x; writeln(subor,'X = ',x,' a Y = ',y:2:4); end else begin writeln(subor,'X = ',x,' a nekonci sa nulou, takze smola.'); end; flush(subor); if(IOresult<>0) then begin writeln('Nieco nie je dobre, preto radsej skoncim.'); break; end else begin writeln('Vysledok som zapisal do suboru, pokracuj.'); end; end; end; close(subor); end.program PocitajNieco; uses crt; {$I-} procedure cakaj; var a: char; begin writeln; writeln('Program sa skoncil, uz len cakam na stlacenie klavesy...'); a:=readkey; end; var y:real; x:integer; subor:text; begin assign(subor,'vystup.txt'); rewrite(subor); if(IOresult<>0) then begin writeln('Nemozem zapisovat do pozadovaneho suboru!'); cakaj; halt; end; while(true) do begin write('Zadaj X (0 ukonci program): '); readln(x); if(IOresult<>0) then begin writeln('Zapisuj cele cisla, ty hulvat.'); end else begin if(x=0) then break; if(x mod 10=0) then begin y:=(3-1.8*x)/x; writeln(subor,'X = ',x,' a Y = ',y:2:4); end else begin writeln(subor,'X = ',x,' a nekonci sa nulou, takze smola.'); end; flush(subor); if(IOresult<>0) then begin writeln('Nieco nie je dobre, preto radsej skoncim.'); break; end else begin writeln('Vysledok som zapisal do suboru, pokracuj.'); end; end; end; close(subor); cakaj; end.end.vpis naprikladreadln;a program ukoncit stlacenim enteru.vsakze ty s linuxom nemas nic spolocne ;)
skusila som tam dat to readln; a nic to nerobi..inac som robila toto:
program PocitajNieco;
uses crt;
var
y:real;
x:integer;
subor:text;
begin
assign(subor,'C:\tp7\blablabla');
rewrite(subor);
while(true) do begin
write('Zadaj X (0 ukonci program): ');
readln(x);
if(x=0) then break;
if(x mod 10=0) then begin
y:=(3-1.8*x)/x;
writeln('Y = ',y:2:4);writeln(subor,y:2:4);
end else begin
writeln('X sa nekonci nulou, takze smola.');
end;
end;
end.
exited with
exitcode = 3