- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- Windows 11
- HBO Max & OD topic
- Az USA nem akarja visszafogni Kína növekedését
- Crypto Trade
- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
- Augusztustól nagyot változik a Shein élete
- 3 évig még biztosan nem rendelhetünk Xiaomi EV-t
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Ki hozhat AI-funkciókat az iPhone-ra?
Új hozzászólás Aktív témák
-
berkine
csendes tag
Na eljött az idő, hogy nevet váltsak.
Psszt...a többieknek egy szot se.... -
berkine
csendes tag
ahh, dehogy. Mindenestere tanultam az esetből. Legközelebb a dátumot nézem meg először
-
metaldog
aktív tag
Hi van egy kis gondom 3 hét múlva lesz egy programozás szigorlatom és csak turbó pascal van benne hogy kéne arra gyorsan felkészülni mert ez a pascal valahogy nem fekszik nekem.
-
metaldog
aktív tag
Na meg még annyi hogy flash oktatásából írom a diploma munkám és nincs valakinek 50 oldalnyi anyaga hozzá? Vagy valami ilyesmi?
-
c4-eXp
aktív tag
Ja, szerintem is jók a Computerbooks könyvek, elég érthetőek. Nekem ebből a pascalosból még egy ősrégi kiadás van meg, jó sokat olvasgattam. Szóval alapszintű tanuláshoz teljesen jók ezek a könyvek, viszont ha valaki mesterszinten akarja elsajátítani pl. a c++-t, akkor már érdemes valami Kiskapu kiadványt megvenni.
while (state(Korso) != _BROKEN) go(Korso, &Kut);
-
metaldog
aktív tag
Na meg még annyi hogy flash oktatásából írom a diploma munkám és nincs valakinek 50 oldalnyi anyaga hozzá? Vagy valami ilyesmi?
-
Lali87
csendes tag
Sziasztok!
Egy proginak kellene sűrgősen a megoldása! Probáltuk már megcsinálni,de nem akar működni, és nagyon sürgős lenne...itt a feladat:
Adott egy N*N -es mátrix határozuk meg az átlók legkisebb elemét!
Nagyon fontos lenne, ezért aki tud segíteni az segítsen.. -
mager
csendes tag
1, Papíron felvázolod a matematikai megoldás lényegét
2, Elindítod a szövegszerkesztőt
3, Megírod a programot
4, Lefuttatod
5, Ha jó, beadod, ha nem, akkor a 3, ponthoz vissza
viccen kívül, mire gondolsz? arra, hogy mi a szukcesszív aproximáció? Szerintem az benne van a jegyzetedben. -
Turmoil
senior tag
uses math; //Asszem ebben van a min függvény
const
N : integer = 20;
var
matrix: array[1..N,1..N] of integer;
i, min1, min2, reslt: integer;
begin
min1:=matrix[1,1];
min2:=matrix[1,N];
for i:= 2 to N do
begin
min1:=min(min1,matrix[i,i]);
min2:=min(min2,matrix[i,N-i+1]);
end;
reslt:=min(min1,min2);
end;
Szóval az átlókban tálálható legkisebb szám pl. így jöhet ki.
Értéke a reslt változóban. Ha csak az egyik átlóé kell, akkor a min1 (\), vagy min2 (/) értéke kell.
De mint ismeretes, minden problémára legalább 10 féle megoldás létezik...Aki tud, és tudja hogy tud, az veszélyes. Tőle féljetek. Aki tud, és nem tudja hogy tud, az bölcs. Tőle tanuljatok. Aki nem tud, és tudja hogy nem tud, az okos. Őt tanítsátok. Aki nem tud, és nem tudja hogy nem tud, az hülye. Őt hagyjátok ..
-
berkine
csendes tag
hali!
itt az átlós program. Igaz, hogy csak a főátló, de az is jobb,. mint a semmi. Remélem.
ja igen ez a*a-s mátrix de a betük nem olyan fontosak
program matrixatlo;
uses crt;
var a,i,j,k,minindex:integer;
Type Mtomb=array[1..10,1..10] of integer;
var x :Mtomb;
z:array[1..10]of integer;
begin
clrscr;
writeln('mekkora matrix?'); readln(a);
For i:= 1 to a do
for j:=1 to a do
begin
writeln('k‚rem az ',i,'. sor',j,'. elemet!');
readln(x[i,j]);
end;
for i:=1 to a do
begin
for j:=1 to a do
write(x[i,j]:10);
writeln;
end;
for i:=1 to a do
for j:=1 to a do
if i=j then
begin
z:=x[i,j];
writeln(z);
end;
minindex:=i;
for i:= 1 to a do
begin
if z < z[minindex] then minindex:=i;
end;
writeln('az atlo legkisebb eleme:', z[minindex]);
repeat
until keypressed;
end.[Szerkesztve]
-
berkine
csendes tag
if z<z[minindex] sorbol kimaradt az elso z utan [ i ] nem tudom, miert nem latszik..
-
nixor
csendes tag
Hej!
Valaki megmondaná nekem miért nem olvas be a Versenyzo tömbe semmit!
ELőre is kösz!
program verseny;
uses crt{,newdelay};
const MaxN=100; {resztvevok max szama}
MaxM=10; {versenyek maximalis szama}
type Nevek=Array[1..MaxN] of String[25];
Valtozo=Array[1..MaxN,1..MaxM] of String[2];
var Resztvev:Nevek;
Versenyzo:Valtozo;
N:Integer;
M:Integer;
procedure beolvasas(var Resztvev:Nevek;
Versenyzo:Valtozo;
N:Integer;
M:Integer);
var
i:Integer;
j:Integer;
k:Integer;
fnev:String;
fajl:text;
be:String;
benev:String;
begin
repeat
clrscr;
writeln ('A program megkeresi ‚s kiˇrja azoknak a versenyz‹knek a nev‚t akik CSAK egy versenyen vettek r‚szt!');
writeln;
writeln ('Adja meg az adatbevitel modjat!');
writeln ('0 fajlbol');
writeln ('1 kezzel');
readln (k);
until ((k=0) or (k=1));
if k=1 then
begin
for i:=1 to MaxN do
begin
writeln ('Adja meg a(z) ',i,'-dik versenyz‹ nev‚t!');
writeln ('(šss”n SPACE -t, ha v‚ge a beolvas snak!)');
writeln ('N‚v (Max. 20 karakter):');
readln (benev);
if benev=' ' then break;
Resztvev:=benev;
for j:=1 to MaxM do
begin
writeln('Adja meg a(z) ',j,'-dik verseny eredm‚ny‚t!');
writeln('(šss”n SPACE -t, ha befejezi a versenyz‹h”z tartoz˘ bevitelt! 00 -t ,ha nem vett r‚szt a versenyen!):');
writeln('Erdm‚ny (0-99):');
readln (be);
if be=' ' then break;
Versenyzo[i,j]:=be;
end{for2};
end{for1};
end{begin}
else
begin
clrscr;
writeln('Adja meg a fajl nevet:');
readln(fnev);
assign (fajl, fnev);
{$I-}
reset(fajl);
if ioresult<>0 then
begin
writeln(#7'Allomanyhiba');
halt;
end;{ioresult}
{$I+}
i:=0;
while not seekeof(fajl) do
begin
inc(i);
readln(Resztvev);
j:=0;
while not seekeoln(fajl) do
begin
inc(j);
read(fajl, Versenyzo[i,j]);
end;{while2}
readln(fajl);
end;{while1}
close(fajl);
end;{else}
end;{beolvas}[Szerkesztve]
06-70-5245469 ''Dühös Rocky4!''
-
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);
-
Egyik(Ember)
csendes tag
Lehet,hogy ez még 2003-ban volt, de szerintem így van
Program paros;
Uses crt;
Var szam:Integer
Begin
Write('Kérem a számot');
ReadLn(szam);
If szam mod 2=0 Then WriteLn('A szám páros')
Else WriteLn('A szam paratlan');
Repeat Until keypressed;
End.
Habár amikor az eredeti programot néztem...Hát nem a legprofibb!Tsá
-
b14
senior tag
válasz Egyik(Ember) #877 üzenetére
2003 óta szerintem már meg tudta oldani
''...de a konfigjából kiindulva, nem hiszem, hogy 40 éves családos ember lenne...'' -- by Slax
-
Szenty
tag
Hali mindenkinek! De rég jártam már erre...
-
Gulka
csendes tag
Sziasztok.
Valaki meg tudná csinálni ezt a programot
Lécci segítsetek
Deklaráljon változókat az áalábbi adatok tárolására
1200 változó neve: EE
Kiss Erzsébet változó neve: KK
1200.00 Változó neveC
értékadással adjon mértékeket a változóknak!
Vonjon gyököt az 1200-at tart6almazó változóból!
Képezze az egész részét a CC-nek
Függvény segítségével állapítsa meg a KK-ban tárolt adat hosszát!
Másolja ki egy KKK nevű változóba a KK-ban tárolt névből a vezeték nevet!
Eljárás segítségével szúrja be a vezeték és a keresztnév közé az Edit nevet!
Sürgős lenne.Előre is köszi -
Szenty
tag
Huh, elég nehéz volt megértenem, hogy mi is a feladat.
A feladat egyáltalán nem tűnik bonyolultnak, nem kell sokat gondolkozni.
Így adunk Pascal-ban értéket egy változónak:
v := 1200;
z := 'Kovács Béla';
w := 1200.0; {nem muszáj kiírni a .0-t}
Változók deklarációja:
var v,w : real; {racionális számok}
z : string;
Gyökvonásra példa:
writeln( sqrt(49) ); { az eredmény 7 lesz }
Ezek után keresd meg a string kezelő függvényeket, ott megtalálod, ami neked kell!
Egy kicsit Te is gondolkodj, tegyél az ügy érdekében!
[Szerkesztve] -
gabor907
tag
hello
pascalt veszünk most és jó lenne vki segítsége:
olyan programot kell írni amiben a képernyő 20oszlop 10sor ában egy 10*10-es nyégzet pályán lépeget egy csillag na és ebben kérném segítségeteket!!!
nagyon-nagyon köszi ha vki tudja és biztos jó akkor lécci priviben küldje már el!core
-
gabor907
tag
ezer köszönet
core
-
Geli
senior tag
hello!
segitségre lenne szükségem! info tanár bevágta a durcit,fogta a kis kalapját,belevagta a papirjait és körbevitte,hogy mindenki huzzon egyet!én meg jól belenyúltam...
rajzolj két,egymást átfedő üres kört,majd a közös területet DEMO-szerüen fesd ki egy színnel!Számoltasd ki és írd ki,hány pixel kellett a kifestéshez!
nah,én itt tartok:
program elso_grafikus_program;
uses crt; graph;
var videokartya,grafikusmod:integer;
begin
videokartya:=Detect;
initgraphvideokartya,grafikusmod,'e:\program files\tp\bgi');
setcolor(10);
setbk(9);
circle(320,240,150);
circle(340,240,150);
readln;
end.
a többi dologból nem tudok semmit,mert nem is tanultuk!most vettük azt hogy kell vonalat huzni.... vki tudna nekem segiteni? -
VladimirR
nagyúr
kodot nem irok, mert egyreszt ugy nem tanulsz, masreszt lusta vagyok eloturni a pascalt (ez a nyomosabb ok)
a lenyeg az, hogy elindulsz a kep bal felso sarkabol, a jobb also fele, es vegignezel minden pixel-t, a kovetkezokeppen:
-ha az adott pixel tavolsaga az x1,y1 ponttol kisebb, mint r1 (ahol x1,y1 az elso kor kozeppontja, r1 annak sugara)
-es ha az adott pixel tavolsaga a x2,y2 ponttol kisebb, mint r2 (ahol x2,y2 az elso kor kozeppontja, r2 annak sugara)
akkor:
-az adott pont-ot fessuk valamilyen szinure
-noveljuk a szamlalot
ez azt eredmenyezi, hogy azok a pontok, amik mindket korben benne vannak kapnak egy szint, illetve tudni fogod ezen pontok szamat
remelem tudtam segiteni -
Koosh_ALi
csendes tag
hi all!
Az lenne a kérdésem, hogy pascalt tudok e vmien modon 64bites xp alatt futtatni valamien amulatorral, vagy esetleg van valamien masik pascal fejlesztoi kornyezet. Ha igen akkor lecci segitsetek ebben!
KösziÜdv, Koosh_ALi
-
-
Koosh_ALi
csendes tag
koszi szepen!
Leszedtem, elegge erdekesen fut, sztem a forditojaval lehetnek nemi gondok, de azert tobbe kevesbe uzemel.
KosziÜdv, Koosh_ALi
-
Kephamos
addikt
Hali!
Alapfogalmakat keresek, szerdán dogát írok, s a pascallal kapcsolatos jegyzetszerűséget keresek, amiben mindenféle fogalom benne van, egészen az algoritmus fogalától a csillagos égig. -
almi
senior tag
Sziasztok!
Valaki meg tudna nekem írni egy olyan progit ami kiszámol n faktoriálist?N et én adom meg!
És 25! is elég lenne
Holnap kell dogába de az istennek sem jövök rá.Vagy legalább segítség.
Köszi. -
s1ny1
tag
-
c4-eXp
aktív tag
Hali!
Nos, van rekurzív megoldás is, de én inkább az egyszerűbbet fogom leírni (ciklussal).
program nfact;
uses crt;
var i, n, osszeg : integer;
begin
osszeg:=1;
writeln('Kerem a szamot: '); readln(n);
for i:=1 to n do
osszeg:=osszeg*i;
writeln(n,' faktorialisa ',osszeg);
readkey;
end.
Már rég pascaloztam, szóval nem garantálok semmit a kód működőképességével kapcsolatban.while (state(Korso) != _BROKEN) go(Korso, &Kut);
-
c4-eXp
aktív tag
Na látom, közben beelőztek.
while (state(Korso) != _BROKEN) go(Korso, &Kut);
Új hozzászólás Aktív témák
- HP Zbook Firefly 16 G10 (865S8EA) Mobile Workstation - ÚJ - 16" notebook - i7-1360P, 32GB
- Asus TUF FX505GE - 15,6"FHD IPS - i7-8750H - 16GB - 512GB SSD - GTX 1050 Ti - Win11 - Magyar
- ASUS ROG STRIX Z370-H GAMING + Intel Core i5-8600K + SK Hynix 16GB DDR4 2666MHz - Számla + Garancia
- VADIÚJ, BONTATLAN! Mac Mini M2 8GB 256GB
- i7 7700K////1070 TI///16GB