Ez így jó?
Most kezdtem programozást tanulni, és kéne valaki aki leellenőrzi.
Két feladat volt. Egyik hogy olvassunk be HM-eket(nem tudjuk mennyit) és írjuk ki a legnagyobbat és a legkisebbet.
A másik hogy kérjünk be egy számot és írjuk ki hogy osztható-e 3-al vagy sem a matematikai szabály szerint(számjegyek összege osztható 3-al)
Első:
DB=0
Be:HM
Ciklus amíg DB<= MAXDB és HM<>100
HMEK[I]=HM
I=I+1
Be:HM
Ciklus vége
Felt. DB=MAXDB
Ki:Nincs elég hely
Felt. vége
MIN=HMEK[0]
Ciklus I=1 től DB-1 ig
Felt. MIN>HMEK[I]
akkor MIN=HMEK[I]
Felt. vége
Ciklus vége
Ki:MIN
MAX=HMEK[0]
Ciklus I=1 től DB-1 ig
Felt. MAX<HMEK[I]
akkor MAX=HMEK[I]
Ciklus vége
Ki:MAX
A másik
Be:Szam
DB=0 : Ossz=0
Ciklus amíg Szam>0
Szam=Szam div 0
DB=DB+1
Ossz=Ossz+Szam
Ciklus vége
Felt. Ossz mod 3=0
akkor Ki: Osztható 3-al.
különben KI: Nem osztható 3-al.
Felt. Vége.
Légyszíves írjátok le ha valamit elrontottam :D
válasza:A második teljesen sz@ar.
Itt egy Pascal program remélem megérted miért.
program oszthato;
var szam, ossz, marad : integer;
begin
ossz := 0;
ReadLn(szam);
while szam > 0 do
begin
marad := szam mod 10;
szam := szam div 10;
ossz := ossz + marad;
end;
if ossz mod 3 = 0 then Write('Oszthato 3-mal')
else
Write('Nem oszthato 3-mal');
end.
válasza:Akkor sem jó :) és az első sem. Értelmezd a programot amit írtam div és mod !!!!! Először mod hogy megtudd az utolsó helyiértéket utána div 10, hogy a tizedére csökkentsd.
Mindjárt írok az elsőre is egy mintát :)
válasza:Ok akkor nem írok mintát hanem elmagyarázom :) - bár a Pascal nyelv sokkal beszédesebb mint a C -.
Az első programodban lévő hibák:
Ciklus amíg DB<= MAXDB és HM<>100
MAXDB-nek nincs értéke és az és kapcsolat nem jó. A DB értékét nem növeled. Gondolom az akartad, hogy a ciklus addig tartson amíg a DB el nem éri a MAXDB értékét !! vagy !! HM = 100-al, de javíts ki a ha tévedek.
Akkor: Ciklus amig DB <= MAXDB vagy HM = 100
var szam, ossz, marad : integer;
Readln
Ha megmondod itt var meg integer meg readln mit jelent akkor akár még meg is értem :D
További kérdések:
Minden jog fenntartva © 2025, 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!