14 napig figyeljük a hőmérsékletet ami 10-25°C os hőmérsékletet vehet fel. Az a feladat, hogy hányszor van az, hogy nagyobb az aznapi hőmérséklet, mint az átlag. Ez pascalba kell. Hogyan kell ezt megcsinálni?
válasza:akkor elölről:
mi lesz a bemenet és mi legyen a kimenet
válasza:1. tárolod a hőmérsékleteket egy tömbben
2. végigmész a tömbön, és kiszámolod az átlagot
3. végigmész a tömbön, és megszámolod hány elem nagyobb mint az átlag
program Project1;
uses crt;
const n=14;
var
a:array[1..14] of byte;
atlag,gy:byte;
i,h:byte;
begin
clrscr;
randomize;
for i:=1 to 14 do
a[i]:=random(16)+10;
writeln('A kulunbozo napon mert homerseklet:');
for i:=1 to n do
writeln(a[i]:3);
gy:=1;
for i:=1 to n do
begin
gy:=gy+a[i];
atlag:=gy div n;
end;
writeln('homersekletatlag: ',atlag);
for i:=1 to n do
if a[i]>atlag(1,i-1) then
h:=h+1;
writeln(' a atlagnal nagyobb homersekletu napok: ',h:3);
readln;
end.
válasza:Elsírom magam :(
program homerseklet;
var i, atlag, nagyobb: integer;
napok: array[1..14] of byte;
begin
atlag := 0;
nagyobb := 0;
Randomize;
for i := 1 to 14 do
begin
napok[i] := Random(11) + 15;
atlag := atlag + napok[i];
WriteLn('A(z) ', i:2, '.nap homerseklete: ', napok[i], ' fok');
end;
atlag := atlag div 14;
WriteLn('Az atlaghomerleklet: ', atlag, ' fok');
for i := 1 to 14 do
if napok[i] > atlag then Inc(nagyobb);
WriteLn('Az atlaghomersekletnel magasabb homersekletu napok szama: ', nagyobb);
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!