Lazarus programozási feladat, valaki segítene? A középsulimban rosszul tanítják a programozást, és szinte senki nem érti, hogy hogy kéne megoldani a feladatokat, pedig még párunkat érdekel is. A feladat a következő:

Jó, de mégis, milyen lépésenként akarod megoldani? Egyébként meg egyelőre írj egy olyan programot, amelyik semmit sem csinál, majd bővítjük.

A tanárotok tényleg nem lehet a helyzet magaslatán, ha még annyit se tudott átadni, hogy pascal nyelvet tanultok...

Tessék bővíteni :) - adatbekérés, hibakezelés.....

program hazi_feladat;

uses SysUtils;

var diak : array[1..5, 0..3] of string;

i, n, osszeg : integer;

atlag : real;

begin

diak[1,0] := 'Beviz Elek';

diak[2,0] := 'Só Miska';

diak[3,0] := 'Tengelengi Boldizsár';

diak[4,0] := 'Szépséges Fióna';

diak[5,0] := 'Regős Bendegúz';

diak[1, 1] := '3'; diak[1, 2] := '5'; diak[1, 3] := '2';

diak[2, 1] := '5'; diak[2, 2] := '4'; diak[2, 3] := '4';

diak[3, 1] := '1'; diak[3, 2] := '3'; diak[3, 3] := '5';

diak[4, 1] := '4'; diak[4, 2] := '3'; diak[4, 3] := '3';

diak[5, 1] := '3'; diak[5, 2] := '1'; diak[5, 3] := '2';

for i := 1 to 5 do

begin

osszeg := 0;

atlag := 0;

for n := 1 to 3 do osszeg := osszeg + StrToInt(diak[i, n]);

atlag := osszeg / 3;

WriteLn('Név: ', diak[i, 0], 'Átlag: ', atlag :0:2);

end;

ReadLn;

end.

Mi az, hogy „próbálgattam, de nem megy”? SimkoL-nak nem muszáj leckét írnia, aztán mégis ide tudja másolni a kódot...

Hogyan kérsz be egy akármilyen változóba egy értéket? Kábé így:

ReadLn( valtozo );

A kétdimenziós tömb változói egy kicsit másképp néznek ki, de a módszer ugyanez. Mondjuk az első tanuló harmadik jegyét olvasod be éppen:

ReadLn( osztalyzat[1,3] );

Hol a probléma?