-
Fototrend

Új hozzászólás Aktív témák
-
b05styp
tag
emberek kéne egy kis segítség. ha valaki ezt meg tudná nekem írni nekem akkor küldje el ide legyen szíves sürgős lenne: stipike@gmail.com,zsuzsanna.wenczl@gmail.com
GYAKORLÓ FELADAT
Kötelezo valamilyen saját készítésu függvényt használni! (Ha nincs függvény, a vizsga elégtelen.)
A feladat során számtömb létrehozása és használata javasolt.
Készítsen C nyelvu programot, amely képernyotörlés után megkérdezi a csoportlétszámot, mely egy 5 és 20 közé eso szám. A felhasználó beírja (Enter). Ha 5-nél kisebb, vagy 20-nál nagyobb számot ad meg, vagy betuket, a program írja ki: "Hiba!" és kérje be újra és újra. A "q" betu megadásakor viszont a program azonnal érjen véget.
Ezután kérje be egyenként az egyes emberek születési évét, "sorszámozott módon" (1. születési dátum, 2. születési dátum stb.). A felhasználó beírja (Enter). Ha 2010-nél nagyobb, vagy 1950-nél kisebb számot ad meg, vagy betuket, a program írja ki: "Hiba!" és kérje be újra és újra. A "q" betu megadásakor viszont a program azonnal érjen véget.
A program ezek után írja ki a csoport tagjainak átlagéletkorát (életkor=2010 mínusz a születési év). Az átlagéletkor törtszám, melyet 2 tizedesjeggyel írassunk ki.
Végül írja ki, hogy hány fo fiatalabb az átlagéletkornál és hány fo idosebb.
köszii
-
b05styp
tag
Üdv!
tegnap kaptam infó házit de nem bírok vele

a lényeg hogy beírok egy mondatot amiben 2 "jaj" szó van, és javítsa ki csak az első-t hajaj-ra.
eddigi kísérlezesésem:
program jaj;
{$APPTYPE CONSOLE}
var volt:boolean;
szo:string;
i:byte;begin
{ TODO -oUser -cConsole Main : Insert code here }
volt:=1>2;
writeln('írj egy mondatot!');
readln(szo);
for i:=1 to length(szo) do
if szo[i]='j' then
if szo[i+1]='a' then
if szo[i+2]='j' then
if szo[i+3]=' 'then
begin
szo[i]:=****nemtom mit kéne
volt:=1<2;
end;
end.
Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- PS5 Slim Digital (CFI-2016) Karcmentes, 1 kontroller
- ASUS ROG Zephyrus G14 Ryzen 9 / RTX 4070 / 32GB / 1 TB SSD 2K 165Hz PRÉMIUM
- Dobozod ÚJ Lenovo LOQ i7 / RTX 4050 / 144Hz / GARANCIA 2027.03.
- Ultra Rampage Mobile Gamer Csomag: Lenovo Legion Duel 2 + egyedi kiegészítők! 512GB EU verziós!
- Asus TUF RX 6900 XT
- AKCIÓ! MSI Cyborg 15 A12VF FHD GAMER notebook - i5 12450H 16GB DDR5 512GB SSD RTX 4060 8GB
- BESZÁMÍTÁS! Gigabyte B450M R5 3600 16GB DDR4 512GB SSD GTX 1070 8GB Zalman S3 Chieftec 700W
- 27% - MSI MPG A1000G PCIE5 / ATX 3.0 1000W 80 PLUS Gold Tápegység!
- GAMING PC! Ryzen 9 3900X / RX 6700 XT / B450 / 16GB 4000MHz / 500GB NVMe / 750w Gold! BezsámítOK
- 27% - NIPOGI Mini PC! AMD Ryzen 7 5700U / 16 GB DDR4 / 512 GB SSD
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


