Programozásból szeretnék segítséget kérni lenne 3 feladat aminek a megoldása problémát okoz (Pascal-ban kellene a megoldás)?!

Kedves Laci! Segíteni csak azoknak tudunk, akik leírják, hogy mi nem megy nekik, így rá tudjuk vezetni őket a megoldásra. Azzal, hogy kiírsz ide 3 feladatot, mi pedig beírjuk rá a megoldást, azzal nem leszel előrébb., mivel azzal a problémamegoldó képességed nem fog fejlődni.

Csak sajnos a programozással mindaddig gondjaid lesznek, amíg magát a feladatot nem tudod megfogalmazni:

"Adjunk meg hogy egy szövegben hanyadik karakter,ha van"

Mi hányadik? Mi van, ha van?

Nem muszáj programkódot mutatnod, de akkor legalább egy magyar nyelven írt megoldási elvet mutass, hogy elmondhassuk, mit csinálsz rosszul. Vagy ha téged a kész megoldás érdekel, írd le, hogy pénzben mennyit ér meg neked!

Ezzel sem lettünk előrébb.

Az első feladatból hiányzik egy fél mondat. Nem hiszem, hogy a tanárod ilyen hanyagul adta meg.

Mégiscsak jobb lenne, ha elkezdenéd megoldani, és ha elakadsz, leírnád, mi nem megy.

Helyetted nem fogja megoldani senki, azt ne is várd.

Szia.

A második feladat ez egy sima maximum kiválasztási tétel, a harmadik feladat meg talán egy eldöntés tétel lenne. AZ első feladat pediglen tényleg értelmezhetetlen, mivel biztosan kimaradt belőle valami (pl az hogy hányadik karakter a szövegben az 'á' betű vagy valami hasonló) .

A két utolsó feladathoz találsz mintát pl. itt, csak át kell alakítanod a feladatoknak megfelelően : [link]

Sok sikert

Üdv.

{

[link]

}

type

TArray8 = array[1..8] of Longint ;

TInt = array[1..1000] of Longint ;

{

Vissza adaja a megadott betu poziciojat a megadott szovegben.

S - A szoveg.

C - A betu.

Result - A betu pozicioja.

Ha nem talalhato a betu, akkor a visszateresi ertek 0 lesz.

}

function GetCharPos(const S: String; const C: Char): Byte;

var I : Byte;

begin

if S <> '' then

begin

for I := 1 to Length(S) do

begin

if S[I] = C then

begin

GetCharPos := I ;

Exit;

end ;

end ;

end

else

GetCharPos := 0 ;

end ;

{

Visszaadja a legnagyobb szamot a tombbol.

T - A tomb.

Result - A legnagyobb szam.

}

function GetLargestItem(T: TArray8): Longint;

var I : Byte ;

var M : Longint ;

begin

M := T[1] ;

for I := 2 to 8 do

begin

if M < T[I] then

M := T[I] ;

end ;

GetLargestItem := M ;

end;

{

Visszaadja a tombbol azt a legkisebb elemet,

amelyik K-val osztva egyet ad maradeknak.

T - A tomb.

K - Az oszto.

Result - A legkisebb szam, amelyik K-val osztva egyet ad maradeknak.

}

function GetMinK(T: TInt; K: Longint): Longint;

var I : Longint ;

var M : Longint ;

begin

M := 2147483647 ;

for I := Low(T) to High(T) do

begin

if (M > T[I])

and ((T[I] mod K) = 1) then

begin

M := T[I] ;

end ;

end ;

GetMinK := M ;

end ;

var

Array8 : TArray8 ;

Array1000 : TInt ;

I : Longint ;

begin

{1.}

Writeln(GetCharPos('Almafa','a'));

{2.}

Array8[1] := 34;

Array8[2] := 56;

Array8[3] := 23;

Array8[4] := 15;

Array8[5] := 67;

Array8[6] := 78;

Array8[7] := 27;

Array8[8] := 41;

Writeln(GetLargestItem(Array8));

{3.}

Randomize ;

for I := Low(Array1000) to High(Array1000) do

begin

Array1000[I] := Random(65535) ;

end ;

Writeln(GetMinK(Array1000, 7)) ;

end.

Tudod a szorgalmi a te szorgalmadat jelenti, nem pár balekét a gyakorin.

Maradjunk annyiban, hogy jó lesz neked a kettes is.

"Tudod a szorgalmi a te szorgalmadat jelenti, nem pár balekét a gyakorin.

Maradjunk annyiban, hogy jó lesz neked a kettes is."

Ugyanezt akartam mondani. Mégis, hogy képzeled? Ultra nulla vagy, de idetolod a pofádat, megoldatnád valakivel a házidat, a jó jegyet meg benyelnéd, érdemtelenül?

A második feladatra:

leírom szövegesen, írd át, ha akarod.

változó 8 elemű tömb: 1..8 of integer

változó i, max : integer

ciklus 1..8-ig

kiir: Kérem a tomb[i] elemet :

beolvas(tomb[i]

max legyen egyenlő tömb első elemével

ciklus 1..8

Ha tomb 'i' eleme > max értékénél akkkor max legyen egyenlő tömb 'i' elemével.

kiír: max