PASCAL – POMOČ – NUJNO!

Nujno rabim nekoga, ki bi mi znal napisat 4 programe v pascalu (imam navodila); plačilo po dogovoru (samo prosim, ne me preveč oskubit)

Približni opis:
1. program tekstovna datoteka
2. record
3. dinamična vrsta
4. dinamično polje z uporabo podatkov naloge 2.

Če zna kdo programirat v delphiju (pascal) res PROSIM za pomoč.

pa hvala.

rega

Živjo!

Ali bo tolelele v redu za tebe.
Prilagam ti source (izvodno kodo programa), pa če imaš Pascal
si ga sama prevedi pa bo.
Če ga pa nimaš pa povej in ti pošljem še prevedeno kodo programa
s pomočjo Pascala.

Ok izvorna koda:

{Branje tekstovne datoteke z imenom tekst.txt}
uses crt;
var datoteka : text;
vrstica : string;

begin
clrscr; {Očisti ekran}
assign(datoteka, ‘tekst.txt’); {ime tekstnovne datoteke}
reset(datoteka); {datoteko odpremo za branje}
repeat {zanka, ki prebere vse zapise v datoteki tekst.txt}
readln(datoteka, vrstica); {Preberemo celo vrstico in jo shranimo v spremenljivko vrstica}
writeln(vrstica); {Na ekranu prikažemo vsebino spremenljivke vrstica}
until eof(datoteka); {To ponavljamo, dokler ne pridemo do konca datoteke}
close(datoteka); {Zapremo datoteko}
readkey; {Pritsnemo katerokoli tipko za konec dela}
end.

Tovariški pozdrav!

hvala!

faca si!