-
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!
- Gamer PC-Számítógép! Csere-Beszámítás! I7 7700K / RTX 2080 / 16GB DDR4 / 480GB SSD
- iPhone 15 128GB - fekete 2 év garancia (felbontott)
- Apple iPhone 15 256GB, Kártyafüggetlen, 1 Év Garanciával
- Apple iPhone 11 Pro 64GB, Kártyafüggetlen, 1 Év Garanciával
- Eladó EDIFIER ES prémium hangszórók ES300 / ES60 / ES20
- Bomba ár! HP Zbook 15u G5 - i7-8GEN I 16GB I 256-512SSD I 15,6" FHD I Cam I W11 I Garancia!
- Dell Latitude 5420 14" Touchscreen i5-1135G7 16GB 512GB 1 év garancia
- LG 27GX790A - 27" OLED evo / 2K QHD / 480Hz & 0.03ms / NVIDIA G-Sync / FreeSync / DP 2.1 / 1300 Nits
- Dell XPS 9720 - i7 12th gen 27% ÁFÁS!
- BESZÁMÍTÁS! ASUS ROG B760 i9 14900K 32GB DDR5 1TB SSD Asus ROG RTX 3090 24GB Zalman Z1 1000W
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest



