-
Fototrend

Új hozzászólás Aktív témák
-
timo92
csendes tag
program lottosz;
uses crt;
var
a,x,i,j,w : integer;
szam : array[1..5] of integer;
begin
clrscr;
writeln('Kerem az 52. heti nyeroszamokat: ');
for x:=1 to 5 do
begin
read(szam[j]);
write(' ');
end;
for i:=1 to 5 do
for j:=1 to i+1 do
if(szam[j] > szam[j+1] )then
begin
w := szam[j];
szam[j] := szam[j+1];
szam[j+1] := w;
end;
for i:=1 to 5 do
begin
write(szam[j]);
i:=i+1;
j:=j+1;
end;
end.a lottósnál eddig jutottam.... a másik az semmi...

-
timo92
csendes tag
Van még egy programom

A kihúzott heti számok soronként vannak megadva, egy héten belüli számok pedig szóközzel vannak elválasztva.
Például: 37 42 44 61 62
18 42 54 83 89
... 9 20 21 59 68A lottószámok minden sorban rendezve szerepelnek. Az állományból kimaradtak az 52. hét lottószámai. Ezek a következők voltak: 90 42 43 11 23.
Készítsen programot a következő feladatok megoldására!
1. Kérje be a felhasználótól az 52. hét megadott lottószámait!
2. A program rendezze a bekért lottószámokat emelkedő sorrendbe! A rendezett számokat írja ki az állomány végére!
3. Kérjen be a felhasználótól egy egész számot 1-51 között! A bekért adatot nem kell ellenőrizni!
4. Írja ki a képernyőre a bekért számnak megfelelő sorszámú hét lottószámait, a lottosz.txt állományban lévő adatok alapján!
5. A lottosz.txt állományból beolvasott adatok alapján döntse el, hogy volt-e olyan szám, amit egyszer sem húztak ki az 51 hét alatt! A döntés eredményét (Van/Nincs) írja ki a képernyőre!
-
timo92
csendes tag
Sziasztok!
Segítséget szeretnék kérni
Van egy program amelyet nem tudok megcsinálni(pascalban)
Adott az eredmeny.txt állomány (12
1 2 3 1
3 4 1 1
1 4 2 0
2 3 3 2
1 3 2 2
2 4 0 4
2 1 1 1
4 3 3 3
4 1 3 4
3 2 1 2
3 1 1 0
4 2 3 3) Az állomány első sorában található, hogy ezután mennyi mérkőzés eredménye található meg. Az egyes sorokban szóközökkel elválasztva az első, illetve második csapat sorszáma, majd az első csapat által lőtt gólok száma, végül a második csapat által lőtt gólok száma látható. PL: 1 2 2 0 (1: Első csapat) (2: Második csapat) (2: Első csapat 2 gólt lőtt) (0: Második csapat 0 gólt lőtt) határozd meg a bajnoki tabellát, azaz melyik csapat lett az első, ha a nyertes mérkőzésért 3 pont jár, a döntetlenért pedig 1. A végeredmény táblázatos formában jelenjen meg, amelynek a felépítése a következő: 1. Csapat sorszáma, Győzelmek száma, Döntetlenek száma, Vereségek száma, Adott gól-Kapott gól, Pontszám Pl: Hely Ssz. Gy. D. V. AG-KG P 1. 3 3 1 2 12-8 10pTud nekem valaki segíteni???Megköszönném

Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- Gigabyte RTX 4070 Super Windforce OC 12 GB (2 év garanciával)
- Sok garis asztali gép! ( 7950X3D, Nito+ 9070XT, 32 GB , 1 TB, 850 80+Platinum ) + LG OLED monitor
- IPhone 12 Pro 128GB gyári független Silver új akku
- Apple watch Series 9 45mm stainless steel bontatlan! 1 év Apple jótállás
- Apple watch Series 10 46mm cellular jet black bontatlan 1 év Apple JÓTÁLLÁS AKCIÓ!
- Kolink SFX 350W tápegység /BONTATLAN/Számlával/
- HIBÁTLAN iPhone 12 mini 64GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3818
- HIBÁTLAN iPhone 14 Pro Max 256GB Purple -1 ÉV GARANCIA -Kártyafüggetlen, MS3932
- ÚJÉVI AKCIÓK / MICROSOFT WINDOWS 10,11 / OFFICE 16,19,21,24 / VÍRUS,VPN VÉDELEM / SZÁMLA / 0-24
- GYÖNYÖRŰ iPhone 14 Pro Max 256GB Space Black - 1 ÉV GARANCIA, Kártyafüggetlen,MS3489
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest




