Valaki aki profi programozásban az tud nekem erre a feladatra egy kódot írni?

#2 kérdése teljesen jogos. Azonkívül ha már megoldást vársz, legalább specifikáld le a dolgot tisztességesen!

Kell-e pl hibakezelés? Milyen libek használhatók? Mi a céloprendszer? Mennyit vagy hajlandó áldozni a programra?

Tetszik a feladat, fel is fogom rakni az oldalamra ezért elkészítettem a megoldást. De el kell, hogy vegyem a kedved mert ez pascal-ban készült :)

program feles_sor_ha_atirom_c_be;

type hallgato = record

nev : string[50];

atlag : real;

tamogatas : integer;

osztondij :integer;

teljes : integer;

end;

var

bevitel: hallgato;

seged : string;

hiba : integer;

adatfile : Textfile;

adatfilenev: string;

hallgatoszam : integer;

osszestamogatas : integer;

begin

hallgatoszam := 0;

osszestamogatas := 0;

adatfilenev:='c:\hallgato.txt';

{$I-}

Assign(adatfile, adatfilenev);

ReWrite(adatfile);

repeat

hiba := 1;

WriteLn;

Write('Név: ');

ReadLn(bevitel.nev);

if bevitel.nev= '*' then Break;

while (hiba <> 0) or (bevitel.atlag > 5 ) do

begin

Write('Átlag: ');

ReadLn(seged);

Val(seged, bevitel.atlag, hiba);

end;

hiba := 1;

while hiba <> 0 do

begin

Write('Lakhatási támogatás: ');

ReadLn(seged);

Val(seged, bevitel.tamogatas, hiba);

end;

hiba:=round(bevitel.atlag * 10);

case hiba of

0..20 : bevitel.osztondij := 0;

21..30 : bevitel.osztondij := 10000;

31..40 : bevitel.osztondij := 15000;

41..50 : bevitel.osztondij := 25000;

end;

bevitel.teljes := bevitel.tamogatas + bevitel.osztondij;

WriteLn(adatfile, bevitel.nev, #13, bevitel.atlag:1:1, #13, bevitel.tamogatas, #13, bevitel.osztondij, #13, bevitel.teljes);

until bevitel.nev='*';

Close(adatfile);

Reset(adatfile);

WriteLn;

Write('Név ');

Write('Átlag ');

Write('Támogatás ');

Write('Ösztöndíj ');

WriteLn('Öszesen ');

WriteLn('----------------------------------------------------------------------');

while not eof(adatfile) do

begin

Readln(adatfile, bevitel.nev);

Readln(adatfile, bevitel.atlag);

Readln(adatfile, bevitel.tamogatas);

Readln(adatfile, bevitel.osztondij);

Readln(adatfile, bevitel.teljes);

osszestamogatas := osszestamogatas + bevitel.teljes;

WriteLn;

inc(hallgatoszam);

while Length(bevitel.nev) < 30 do bevitel.nev := bevitel.nev + ' ';

Write(bevitel.nev:30,bevitel.atlag:10:1,bevitel.tamogatas:10,bevitel.osztondij:10,bevitel.teljes:10);

end;

Close(adatfile);

{$I+}

WriteLn;

WriteLn;

Writeln('Átlagos támogatás: ', osszestamogatas / hallgatoszam:10:0, ' / fő');

end.