[raunoraudsepp]

1)Luua fail, milles vähemalt 2 neg täisarvu. Kirjutada prog, mis:
1. väljastab faili sisu ekraanile
2. Leiab , mitmendal posits. asub esimene ja mitmendal viimane negatiivne arv.
3. Leiab mitu arvu on nende vahel ( esimese ja viimase neg. arvu vahel)
Väike katsetus.(vaja täiendada)

program proov;

uses crt;
var fl:text;arv,esimeneneg,viimaneneg,l:longint;rida:string;
begin
clrscr;
assign(fl,'praktika4arvud.txt');
reset(fl);
while not(eof(fl)) do begin
readln(fl,rida);
write(rida:5);
end;
close(fl);
reset(fl);
l:=0;
while not (eof(fl)) do begin
readln(fl,arv);
l:=l+1;
if arv < 0 then begin


esimeneneg:=l;
writeln('Esimene negatiivne arv asub',esimeneneg,'. positsioonil');


end;
end;

close(fl);
readln;
end.

2)Luua tekstifail täisarvudega. Kirjutada programm, mis leiab sellest failist viimase ja eelviimase negatiivese elemendi ning mitmendal positsioonil need arvud failis asuvad. Faili sisu tuleb kõigepealt väljastada ekraanile.
Näide:
Lähtefail: 123 435 -234 34 -453 4 5 -456 45 -464 45 54
Eelviimane negatiivne element on -456, see asub 8. positsioonil.
Viimane negatiivne element -464, see asub 10. positsioonil.

Väga suured tänud.
Ilusat saabuvat aastat kõigile!

[ref]

mh?

Vot ei saa nüüd täpselt aru mida soovitakse, kooliülesannete lahendusi ?

Igatahes esimesel juhul: loe failist arve järgemööda, suurenda muutuja viimaneneg väärtust iga kord, kui loetud arv on negatiivne... btw, koodi treppimisest on ka palju kasu, hetkel ei viitsi väga süüvida sellesse näitesse mis siin olemas (nagu pudru ja kapsad).

Teine: põhimõtteliselt ju sama mis esimene, ainult, et need arvud tuleb väärtustena kuhugi muutujasse lugeda ja seejärel väljastada...

Mis siin keerulist või arusaamatut ? Mingi konkreetne mure millest üle ega ümber ei saa ? (Koolitööd teeme ikka ise ilusti ära, eriti kui tegemist on veel päris lihtsate matemaatiliste probleemidega)

[mattiaza]

[raunoraudsepp]

ok