Hirdetés
- Fele annyit ér az iPhone Air, mint amennyibe pár hete került
- Megérkezett a Fairphone szerelhető fejhallgatójának új generációja
- Apple iPhone 14 - tavalyi termésből főzve
- Hat év támogatást csomagolt fém házba a OnePlus Nord 4
- Apple Watch
- Megbüntették, ezért feloszlatná az EU-t Elon Musk
- Samsung Galaxy S24 - nos, Exynos
- Samsung Galaxy Watch6 Classic - tekerd!
- Csak egy ország kap Exynos 2600-as Galaxy S26 telefonokat?
- Samsung Galaxy Watch4 és Watch4 Classic - próbawearzió
Új hozzászólás Aktív témák
-
zvaragabor
senior tag
válasz
RoyalFlush
#2178
üzenetére
Jah értem. Megnézem akkor a kódokat. Köszi.
-
zvaragabor
senior tag
válasz
RoyalFlush
#2176
üzenetére
Erre gondolsz?
"Mondjuk illett volna, ha már azt találta ki, hogy 0 megadását követően lépjen ki a program"Mert még nem vettünk olyat, hogy kilép egy adott valaminél.

-
[HUN]Zolee
őstag
válasz
RoyalFlush
#2162
üzenetére
Kicsit sok az elágazás a programodba

Olyan excel-esen oldottad meg, ott kell mindig foglalkozni azzal hogy ha csak 1 érték van az adott tartományba
program szamok;
uses crt;
var n,osszeg,db,legkisebb,legkisebb_db,sorszam:real;
begin
clrscr;
osszeg:=0;
atlag:=0;
db:=0;
legkissebb:=0;
repeat
writeln('Kérem a számot: ');
read(n);
if n<>0 then
begin
osszeg:=osszeg+n;
db:=db+1;
if legkisebb>n then
begin
legkisebb=n ;
legkisebb_db=db;
end;
end;
until n=0;
if db>0 then
begin
writeln('A számok összege: ',osszeg);
writeln('A számok átlaga: ',osszeg/db);
writeln('A legkisebb szám a(z) ',legkissebb);
write('és a bekérés sorszáma: ',sorszam);
end;
end. -
Clairvoyance
csendes tag
válasz
RoyalFlush
#2096
üzenetére
Annyira nem fontos, csak szebben nézne ki a program... tudsz rá megoldást?
Ui.: tudom, h grafikusba sokkal szebb egy program, viszont nem akarnám teljes képernyőssé tenni a progimat, grafikus mód meg tudtommal így müxik
Új hozzászólás Aktív témák
- urandom0: Száműztem az AI-t az életemből
- World of Warships
- AMD Navi Radeon™ RX 9xxx sorozat
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Fogyjunk le!
- Fele annyit ér az iPhone Air, mint amennyibe pár hete került
- Milyen TV-t vegyek?
- Windows 11
- Mennyibe fog kerülni a Steam Machine?
- Nintendo Switch
- További aktív témák...
- Eladó Lenovo laptop adapter
- AKCIÓ!!! ASUS TUF Gaming F17 , RTX 4070 , i7 13620H , 16GB DDR5 , 1.2TB SSD , gamer laptop
- 27% - ÚJ G.SKILL Trident Z5 RGB 64GB (2x32GB) DDR5 6000MHz F5-6000J3040G32GX2-TZ5RK
- HP 15s eq1905nz 15.6" FHD IPS Ryzen 7 4700U 16GB 512GB NVMe ujjlolv gar
- Apple iPhone 12 Pro 512GB,Újszerű,Dobozával,12 hónap garanciával
- Gamer PC-Számítógép! Csere-Beszámítás! R5 4500 / 16GB DDR4 / RX 6600 8GB / 500GB Nvme
- PlayStation 5 FAT Lemezes + kontroller 6 hó garancia, számlával!
- ÁRGARANCIA!Épített KomPhone Ultra 7 265KF 32/64GB RAM RTX 5090 32GB GAMER PC termékbeszámítással
- HIBÁTLAN iPhone 12 Pro 256GB Graphite - 1 ÉV GARANCIA - Kártyafüggetlen, MS3283
- magyar billentyűzet - 172 - Lenovo Legion Pro 7 (16IAX10H) - Intel Core U9 275HX, RTX 5080
Állásajánlatok
Cég: ATW Internet Kft.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi



