Free Pascal HELP?
22. Készítsél algoritmust, amely kiírja az egész számokat 0-tól 200-ig! (mindhárom ciklussal)
23. Készítsél algoritmust, amely bekér a billentyűzetről egy számot az N változóba, azután a képernyőre írja 1-től N-ig a számokat.
24. Készítsél algoritmust, amely bekér a billentyűzetről egy számot, azután a gép kiírja a számtól visszafelé 0-ig az egészeket! (mindhárom ciklussal)
25. Készítsél algoritmust, amely bekér a billentyűzetről egy kezdő-, egy végértéket és egy lépésközt, azután kiírja a kezdőértéktől a számokat lépésközönként a végértékig.
26. Készítsél algoritmust, amely billentyűzetről bekér két számot x és y változókba, azután egy segédváltozó (jelöljük sv-vel) segítségével megcseréli a két változó tartalmát!
27. Készítsél algoritmust, amely benzinköltséget számol. Billentyűzetről adjuk meg a megtett út hosszát, a kocsi fogyasztását, és a benzin árát! Az eredményt jelenítsük meg a monitoron!
28. Készítsél algoritmust, amely billentyűzetről bekéri a pontos időt (külön változóba az órát és percet), azután kiszámítja és a képernyőre írja, hogy a napnak ez hányadik perce! Ha ez az érték kisebb mint 600, akkor a „Jó reggelt!”, ha 600 és 1000 közötti akkor „Jó napot!”, ha 1000 feletti akkor a„Jó estét!” szöveg jelenjen meg!
29. Kérjük be billentyűzetről, hogy hány másodperc telt el a mai napból! Jelenítsük meg a megadott időt óra, perc, másodperc alakban (pl 12:23:54)!
30. Készítsél algoritmust, amely egy darab hátul-tesztelős ciklussal a képernyőre írja a számokat 1-től 10-ig, és 21-tól 30-ig.
31. Készítsél algoritmust, amely a képernyőre írja a számokat 1-től 100-ig egymás alá. A számok mellett jelenjenek meg az adott számok 10-szeres értékei.
válasza:Kezdetnek:
for ..
while .. do ..
repeat .. until .. :)
Legalább kezdj bele
válasza:Mivel mikulás van, volt :)
program mikulas_22;
uses crt;
var i : integer;
begin
WriteLn;
for i := 0 to 200 do Write(i:3,' ');
i := 0;
WriteLn;
while i <= 200 do
begin
Write(i:3,' ');
Inc(i);
end;
i := 0;
WriteLn;
repeat
Write(i:3,' ');
Inc(i);
until i > 200;
end.
válasza:Akkor Isten éltessen :)
program mikulas_23;
var i, k, hiba : integer;
s: string;
begin
hiba :=1;
while hiba <> 0 do
begin
Write('kerem a szamot: ');
ReadLn(s);
Val(s, i, hiba);
end;
for k := 1 to i do Write(k, ' ');
end.
program mikulas_24;
var i, k, hiba : integer;
s: string;
begin
hiba :=1;
while hiba <> 0 do
begin
Write('kerem a szamot: ');
ReadLn(s);
Val(s, i, hiba);
end;
for k := i downto 1 do Write(k, ' ');
WriteLn;
k := i;
while k > 0 do
begin
Write(k, ' ');
Dec(k);
end;
WriteLn;
k := i;
repeat
Write(k, ' ');
Dec(k);
until k < 1;
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!