Hogyan lehetne megcsinálni ezt a Pascal programot FOR ciklussal? (bővebben lent)
Suliban pascalozunk és a feladat az volt hogy csinálni kell egy programocskát aminek ha megadunk hét értéket (hőmérsékletet), akkor a végén kiírja hogy hány szám volt negatív (hányszor volt fagypont alatt a hőmérséklet). Ezt csináltam:
program homerseklet;
uses crt;
var a,b,c,d,e,f,g,i:integer;
begin
clrscr;
write('Add meg a het homersekleteket ');
read(a);read(b);read(c);read(d);read(e);read(f);readln(g);
writeln;
write('A nulla fok alatti homersekletu napok szama: ');
i:=0;
if (a<0) then i:=i+1;
if (b<0) then i:=i+1;
if (c<0) then i:=i+1;
if (d<0) then i:=i+1;
if (e<0) then i:=i+1;
if (f<0) then i:=i+1;
if (g<0) then i:=i+1;
write(i);
end.
Na és a tanár azt mondta hogy FOR ciklussal sokkal rövidebb lenne. Akárhogy törtem a fejem nem tudtam rájönni hogy hogy kéne. Segítsetek!
program homerseklet;
uses crt;
var h:array[1..7] of integer;
i,n:integer;
begin
clrscr;
n:=0;
for i:=1 to 7 do
begin
write('Add meg a(z) ', i ,'homersekleteket ');
readln(h[i]);
end;
for i:=1 to 7 do if h[i]<0 then n:=n+1;
write('A nulla fok alatti homersekletu napok szama: ',n);
readkey;
end.
bocsi,nincs is szükség két for cilusra és tömbre sem
program homerseklet;
uses crt;
var i,n,a:integer;
begin
clrscr;
n:=0;
for i:=1 to 7 do
begin
write('Add meg a(z) ', i ,'. homersekleteket ');
readln(a);
if a<0 then n:=n+1;
end;
write('A nulla fok alatti homersekletu napok szama: ',n);
readkey;
end.
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!