Aktív témák
-
czibie
csendes tag
válasz
VladimirR
#11
üzenetére
nem csak középsuli, de nem érdekel maga ez a téma, és ha ez a vizsga megvan, nem kell vele többet foglalkoznom. Alapszinten értek hozzá, de ez már nekem sok. És nem szívom el a lehetőséget senkitől, mert alig vagyunk már a csoportban, mindenki hullik ki. Én nem a programozás miatt választottam a szakot, hanem ezernyi más tárgy miatt. Aki meg nagyon ért hozzá menjen el programozónak.
-
skera
tag
Minimum és maximum kiszámoló függvények
const N=5000;
{Minimum; bemenet egy tomb}
function min(var be: Array [0..N-1] of Integer)
var i,minszam: Integer;
begin
minszam:=N;
for i:=1 to N do
begin
if minszam < be then
begin
minszam:=be;
end;
end;
return minszam;
end;
{Maximum; bemenet egy tomb}
function max(var be: Array [0..N-1] of Integer)
var i,maxszam: Integer;
begin
maxszam:=0;
for i:=1 to N do
begin
if maxszam > be then
begin
maxszam:=be;
end;
end;
return maxszam;
end;
NEM GARANTÁLOM, HOGY JÓ. LEHET, SŐT BIZTOS, HOGY VAN BENNE HIBA!!!!
Főleg a :=-vel vagyok mindig gondba, hiszen régen pascaloztam már. Remélem hasznát veszed valamennyire...
-
czibie
csendes tag
2. írjon programot, amely tetszőleges számú kört rajzol a képernyőre. A középpontok koordinátáit(2 dimenzióban) és sugár nagyságát valamint színkódót bill. segítségével vigye fel egy tömbbe. Az adatmegadás végének jelzését szabadon választhatja meg. Az adatbevitel befejezése után rajzolja ki a képernyőre az ábrákat.Az adatbevitelt és rajzolást függvény vagy eljárás segítségével oldja meg.
-
czibie
csendes tag
1. feladat írjon programot amellyel egy tömböt(vektort) feltölt tetszőleges számú egész számmal(pl. nulla végjeléig). Számítsuk ki a tömbben tárolt értékek átlagát és írjuk ki azt.
Majd olvasson be valós számokat egy tömbbe a 0 végjelig függvény segítségével. A függvényérték a beolvasott adatok száma legyen. Függvények segítségével keresse meg a legkisebb és legnagyobb értéket. A főprogram írja ki a megtalált értékeket és a beolvasott adatok számát.
u.i. aki elküldi a megoldást,annak valahogy meghálálom ezn múlik a félévem
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Aktív témák
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- PCI bővítőhelyet elfoglaló Icy Dock mobilrack M.2-es SSD-knek
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- TCL LCD és LED TV-k
- Windows 10
- Energiaital topic
- GeForce RTX 5060: Ezt kapjuk 150 ezerért
- Formula-1
- Trollok komolyan
- Sweet.tv - internetes TV
- További aktív témák...
- iKing.Hu - Apple iPhone 13 mini Kompakt erőgép, megbízható teljesítmény 256 GB
- Honor Magic V5 Ultravékony hajlítható, 120 Hz LTPO kijelzők 16/512 GB Garancia 2028. 08. 25-ig
- Bomba ár! Acer Aspire ES1 - AMD A8 I 8GB I 180GB SSD I 15,6" HD I HDMI I Cam I W10 I Garancia!
- Acer Predator Helios 300 - PH315-51
- Bomba Ár! Fujitsu LifeBook S762 - i5-3GEN I 8GB I 320GB I DVDRW I 13,3" HD I DP I W10 I Garancia!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Samsung Galaxy S23 Ultra // 512GB // Számla + Garancia //
- BESZÁMÍTÁS! 16GB (2x8) Kingston HyperX Fury 1600MHz DDR3 memória garanciával hibátlan működéssel
- Dell G5 15 5587 - 15.6"FHD IPS - i7-8750H - 16GB - 1TB SSD - 1TB HDD - GTX 1060 6GB - Win11 - MAGYAR
- HIBÁTLAN iPhone 14 Pro Max 128GB Space Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3523
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest