Nekem így nem tetszik a programom valaki segítsen kijavítani?
Itt a programom a lényeg az volt hogy ezek benne legyenek:-feltöltés-randommal
.kiír-egymás mellé
-összegzés,átlagszámítás
-párosak összegzése,átlaga
-3-mal osztható számok összege
program tomb;
uses crt;
var t:array[1..100] of integer;
i,j,osz:integer;
at:real;
begin
clrscr;
randomize;
textcolor(blue);
j:=0;
osz:=3;
at:=0;
for i:=1 to 5 do
begin
t[j]:=random(9)+1;
write(t[j]:5);
if t[i] mod 3=0 then
write(t[i]);
end;
osz:=osz+t[j];
writeln;
writeln('3-al oszthato szamok osszege: ',osz);
writeln('Osszeg ',osz);
writeln('Atlag ',at:0:2);
readln;
end.
válasza:Mi a kérdés?
Azt írod, neked nem tetszik. De nem írod le, hogyan tetszene.
válasza:#1 vagyok, najó, belenézve a kódba, leírom nekem mi "nem tetszik" :D
- az 'at' változónak nem adtál értéket, de bőszen kiírod a végén
- az összegzést (osz:=osz+t[j]) sikerült a cikluson kívülre írnod
Meg hé... nem is a 'j' a ciklusváltozód, hanem az 'i', a 'j' egész szimplán csak 0, és mégis mindenhol a t[j]-t módosítgatod...
Én azt mondom, kezd elölről nulláról, és NE vonogasd össze a ciklusokat.
1. Legyen egy ciklus, ami feltölt.
2. Legyen egy ciklus, ami kiír. Itt, ezen a ponton állj meg, teszteld le a programodat, mit csinál, mit ír ki.
3. Legyen egy ciklus ami összegez.
4. Az átlagszámítás az utána triviálisan egy sor ugye.
5. Utána foglalkozz a 3-mal oszthatókkal, stb.
válasza: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!