-
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!
- Amit látnod kell 80’ – 90’ évek, egész estét betöltő mozi filmjei.
- HiFi műszaki szemmel - sztereó hangrendszerek
- Samsung Galaxy S23 Ultra - non plus ultra
- One otthoni szolgáltatások (TV, internet, telefon)
- Milyen hagyományos (nem okos-) telefont vegyek?
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- Vicces képek
- OTP Bank topic
- További aktív témák...
- Apple iPhone 15 Pro 128GB, Kártyafüggetlen, 1 Év Garanciával
- í kilenc! AKCIÓS PRECÍZIÓS KÉSZÜLÉK! 7560 i9-11950H 64GB RAM 1TB SSD Nvidia RTX A3000 6GB 1 év gar
- 152 - Lenovo LOQ (15IRH8) - Intel Core i5-12450H, RTX 4060 (ELKELT)
- Apple iPhone 12 64GB, Kártyafüggetlen, 1 Év Garanciával
- Bomba ár! Lenovo ThinkPad X13 G1- i7-10610U I 16GB I 512SSD I 13,3" FHD Touch I Cam I W11 I Gari!
Állásajánlatok
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs
Cég: Laptopműhely Bt.
Város: Budapest



