)var
i:integer;
rec:string;
begin
readln(rec);
for i:=length(n) downto 1 do
write(rec[i]);
writeln;
end.
nzm sto opet isto ispisuje... ja sam testirao ostatak programa i radi sve .. al necu da rucno unosim 100 brojeva posebno ako su 1 i 0 
Sada radi .. evo da odradim ostatak programa pa cu da postujem kod ako nekome treba i to 
uses crt;
var
i,j,k1,k2,b,t : integer;
a : array [1..10,1..10] of char;
ulaz,izlaz : text;
begin
ClrScr;
TextColor(green);
Assign(ulaz,'C:\brodovi.txt');
reset(ulaz);
Assign(izlaz,'C:\brodovio.txt');
rewrite(izlaz);
while not eof(ulaz) do
begin
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin
Read(ulaz, a[i,j]);
end;
readln(ulaz);
end;
end;
close(ulaz);
b:= 14;
t:= 28;
repeat
Write('Unesite koordinatu 1:');
Read(k1);
Write('Unesite koordinatu 2:');
Read(k2);
Writeln;
if a[k1,k2] = '1' then
begin
t:= t-1;
b:= b-1;
Writeln('Pogodak!');
Writeln('Broj torpeda:', t);
Writeln('Broj brodova:', b);
Writeln;
a[k1,k2] := '0';
end
else
begin
t:= t-1;
Writeln('Fula!');
Writeln('Broj torpeda:',t);
Writeln('Broj cijelih brodova:', b);
Writeln;
end;
until (t=0) or (b=0);
if t=0 then
begin
Writeln('Zao nam je, potrosili ste sva torpeda');
end
else
if b=0 then
begin
Writeln('Cestitamo, potopili ste sve brodove');
end;
Readln;
end.
samo da pitam... nesto abecedni red nece Ovaj dio :
for i := 1 to 3-1 do
for j := i+1 to 3 do
begin
if a[i] > a[j] then
begin
s:= a[i];
a[i] := a[j];
a[j] := s; (*Ovdje prijavljuje Gresku, s je oznacen kao string u var*)
end;
end;http://www.megaupload.com/?d=HG32V62WImam ja jedan problem
Do sad sam sve informatiku kapirao, kako tako, ucio sam sam ali od pre neki cas kako smo poceli da radimo nizove meni to uopste nije jasno. Apsolutno nista!
Kako se koriste?
Za probleme kakvog tipa se koriste?
Kako se to u programima ispoljava?
.... bem li ga sta jos, ama bas nista, pa ako moze neko dami objasni da mogu da pocnem da vezbam zadatke...
hvala
http://www.megaupload.com/?d=JCJ0C2DP
program sortira;
type sortiranje=record
ime:string;
brb:integer;
end;
var ul,izl:text;
sort:sortiranje;
i,s:integer;
begin
assign(ul,'ulaz.txt');
reset(ul);
while not eof do
begin
while not eoln do
begin
read(ul,sort.ime);
for i:= 1 to 3 do
begin
read(ul,sort.brb);
s:=s+sort.brb;
end;
end;
end;m.m.l. 10 10 15
nes 10 10 10
ezzy 5 5 10
duka511 20 20 20
Zadatak moze lako da se resi koriscenjem funkcije za stepen i funkcije za faktorijel i posle imas samo primenu while funkcije. Nista omplikovano
, posto sam ja to potpuno zaboravio kako se radi a potrebno mi je.
Da li moze neko da mi pomonge da resim ovaj zadatak:
Napisati program za izracunavanje sume S= 1+ x/1! + x na 2 /2! + x na 3/3! + ..x na n /n! Sumiranje se prekida kada clan sume postane manji od zadate vrednosti.
Hvala unapred!
program suma;
uses crt;
var
x,i:integer;
n:byte;
s:real;
function fact(broj:byte):integer;
var
i:byte;
f:integer;
begin
if (broj=0) then fact:=1
else
begin
f:=1;
for i:=1 to broj do
begin
f:=f*i;
end;
fact:=f;
end;
end;
function stepen(broj:integer; st:byte):integer;
var
i:byte;
rez:integer;
begin
rez:=1;
for i:=1 to st do
begin
rez:=rez*broj;
end;
stepen:=rez;
end;
BEGIN
clrscr;
s:=1;
i:=0;
write('X=');
readln(x);
write('N=');
readln(n);
for i:=1 to n do
begin
s:=s+(stepen(x,i)/fact(i));
end;
writeln(s:3:2);
readln;
END.program suma;
var
x,min,step,suma:real;
n,fakt:integer;
begin
write('Unesite x: ');
readln(x);
write('Unesite minimalnu vrednost clana: ');
readln(min);
n:=0;
step:=1;
fakt:=1;
suma:=0;
while step/fakt>=min do
suma:=suma+step/fakt;
inc(n);
step:=step*x;
fakt:=fakt*n;
end;
writeln('Trazena suma je: ',suma:0:5);
end.program sortiranje;
type
ljudi=record
ime:string;
broj:integer;
end;
var
ul,iz:text;
n,i,j,b1,b2,b3:integer;
t:ljudi;
osoba:array[1..100] of ljudi;
begin
assign(ul,'ulaz.txt');
reset(ul);
n:=0;
while not eof(ul) do
inc(n);
osoba[n].ime:='';
read(ul,slovo);
while slovo<>' ' do
osoba[n].ime:=osoba[n].ime+slovo;
read(ul,slovo);
end;
readln(f,b1,b2,b3);
osoba[n].broj:=b1+b2+b3;
end;
close(ul);
for i:=1 to n-1 do
for j:=i+1 to n do
if osoba[i].broj>osoba[j].broj then
begin
t:=osoba[i];
osoba[i]:=osoba[j];
osoba[j]:=t;
end;
assign(iz,'izlaz.txt');
rewrite(izlaz);
for i:=1 to n do
writeln(osoba[i].ime,' ',osoba[i].broj);
close(iz);
end.