- Windows 11
- HBO Max & OD topic
- Otthoni hálózat és internet megosztás
- Microsoft Excel topic
- Microsoft Office és Office 365 topic
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- A pápa egyre jobban tart a romlott AI veszélyeitől
- Crypto Trade
- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
- Proxmox VE
Új hozzászólás Aktív témák
-
Keitaro
addikt
válasz Darth_Revan #42 üzenetére
Nézd meg a TextColor és TextBackground parancsokat kezdetnek. Kép beszúrása húzósabb
-
b14
senior tag
válasz Darth_Revan #596 üzenetére
1. osztály, de régen volt: 1234: egy darab eezreees, két daraaab szááázas, háárooom daraaaab tííízes és nééégy daraab eeegyees. Legabááis mi igy tanultuk annak idején.
Ha valaki megírja helyetted, akkor sose tudsz majd progzani, de ha segítséget kérsz, akkor szívesen segít bárki (szerintem), ha megíros, az a legjobb, és ha sok benne továbbra is a hiba, akkor ki fogja valaki neked javítani.
Mondhatod, hogy egy nagy hülye vagyok, de ez a tapasztalat (már amennyi van), merő jó szándélkból mondtam ezt.
Na és most megírom.
Szerk: ha meguntad a próbálkozást, akkor ide is berakom a progit.
[Szerkesztve]''...de a konfigjából kiindulva, nem hiszem, hogy 40 éves családos ember lenne...'' -- by Slax
-
VladimirR
nagyúr
válasz Darth_Revan #599 üzenetére
valami olyasmi kell neked, hogy egy tombbe felveszed a cimleteket (20 000, 10 000, 5 000, 2 000, 1 000, 500, 200, 100, 50, 20, 10, 5, 2, 1), meg van egy masik tomb, amiben azt szamolod, hogy az adott cimletekbol mennyi kell, aztan bekered a szamot
ezutan van egy hatultesztelo ciklusod, ami azt nezi., hogy a szam mikor lesz nulla (ekkor kilep belole), ezen belul pedig egy eloltesztelo (belepesi feltetel: az input szambol megmaradt resz, nagyobb, mint az aktualis cimlet), ami az adott cimlettel csokkenti az input szamot, es felir egy darabot az aktualis cimlethez
ehhez az kell, hogy van egy valtozod, ami azt mutatja, hogy epp melyik cimletrol van szo (ennek megfeleloen vonsz le a belso ciklusban az input szambol, s ez alapjan irsz fel 1-1 darabot az eppen aktualis cimlethez), ezt a belso cillusbol valo kilepes (vagy bele sem lepes) utan noveled egyel
ha vege a kulso ciklusnak (vagyis kileptel belole), akkor a ket tombnek megfeleloen ki tudod iratni, hogy mely cimletekbol mennyi szukseges -- ha gondolod leirom az algoritmust es programot is szivesen, de inkabb ez alajan probald meg magad elkesziteni -
b14
senior tag
válasz Darth_Revan #774 üzenetére
Középső karakter?
Az hanyadik?''...de a konfigjából kiindulva, nem hiszem, hogy 40 éves családos ember lenne...'' -- by Slax
-
Diskcopy
tag
válasz Darth_Revan #774 üzenetére
hi!
Uses crt;
var st : string;
hossz: string;
begin
clrscr;
Writeln('Kérem a szöveget:');Readln(st);
Delete(st,round(length(st)/2),1);
Str(length(st),hossz);
st:=Concat(st,hossz);
writeln(st);
end.
(Nem csak 20 karakterre jó, bármennyire)
[Szerkesztve] -
c4-eXp
aktív tag
válasz Darth_Revan #847 üzenetére
program valami;
uses crt;
const n=valamennyi, m=valamennyi, l=valamennyi;
var matrix : array[1..n,1..m] of integer;
i, osszeg : integer;
begin
osszeg:=0;
matrix_feltoltese;
for i:=1 to n do
osszeg:=osszeg+matrix[i,l];
writeln(osszeg);
readln;
end.
Jó régen pascaloztam már, de asszem valahogy így lesz.while (state(Korso) != _BROKEN) go(Korso, &Kut);
-
c4-eXp
aktív tag
válasz Darth_Revan #875 üzenetére
Nincs mit. Természetesen a matrix_feltoltese helyére még be kell írni valami kódot, ami feltölti a mátrixot. Pl.:
randomize;
for i:=1 to n do
for j:=1 to m do
matrix[i,j]:=random(100);
Na ez így elvileg jó.while (state(Korso) != _BROKEN) go(Korso, &Kut);
-
Lortech
addikt
válasz Darth_Revan #1076 üzenetére
PieSlice-szal rajzolod a 4 körcikket, SetFillStyle-lal változtatva a kitöltés színét, mondjuk egy repeat ciklusban, aminek kilépési feltétele a ''keypressed''. Néhány sor az egész.
Thank you to god for making me an atheist
-
Lortech
addikt
válasz Darth_Revan #1078 üzenetére
Súgóóó, ctrl-f1-et nyomjál, mikor a pieslice- on van a szöveges kurzor.
Fejből nem tudom, de gondolom hasonló, mint az arc: kp, r, szögek, setfillstyle-ban meg a szín+minta.
[Szerkesztve]Thank you to god for making me an atheist
Új hozzászólás Aktív témák
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- gban: Ingyen kellene, de tegnapra
- Windows 11
- Xbox Game Pass [2024] - A májusi lista
- Autós topik látogatók beszélgetős, offolós topikja
- Parkside szerszám kibeszélő
- iPad topik
- Filmgyűjtés
- Amlogic S905, S912 processzoros készülékek
- Ford topik
- További aktív témák...