Turbo pascal pomocy

[gosiagosiax]

Zna się ktoś na tym ? Czy to jest dobrze napisane ?

Kod: Zaznacz wszystko

program sprawdzian;
uses crt2;
var i,suma,a,b:integer;
t:array[1..15] of integer;
t2:array[1..100] of integer;
t3:array[1..100] of integer;
begin
clrscr;
randomize;
suma:=0;
write('elementy tablicy pierwszej:');
writeln;
t[1]:=1;
t[2]:=1;
for i:=3 to 15 do
t[i]:=t[i-1]+t[i-2];
for i:=1 to 15 do
write(t[i]:4);
writeln;
for i:=1 to 15 do
suma:=suma+t[i];
writeln('suma wynosi: ',suma);
writeln;
writeln('Ile elementow tablicy chcesz wyswietlic?');
readln(a);
wrteln('elementy tablicy drugiej:');
for b:=1 to a do
begin
t2[b]:=random(21)-10;
write(t2[b]:4);
end;
writeln;
writeln('elementy tablicy trzeciej:');
for b:=1 to a do
begin
t3[b]:=sqr(t2[b]);
write(t3[b]:4);
end;
readkey;
end.

chciałam sprawdzić w programie ale niestety nie mogę nic normalnego ściągnąć, a mam niewiele czasu
'
z góry wielkie dzięki

[Lukesh]

chciałam sprawdzić w programie ale niestety nie mogę nic normalnego ściągnąć, a mam niewiele czasu

Daleko szukac nie trzeba:
http://www.programosy.pl/program,turbo-pascal.html

[floyd5]

Przydałoby się gdybyś napisała co ma ten program zrobić, bo domyślanie się tego na podstawie kodu nie jest fajną sprawą Program po odpaleniu:



Poprawiłem literówki i czytelność, ale błędów w działaniu nie widzę:

Kod: Zaznacz wszystko

program sprawdzian;

uses crt2;

var i,suma,a,b:integer;
   t:array[1..15] of integer;
   t2:array[1..100] of integer;
   t3:array[1..100] of integer;
begin
   clrscr;
   randomize;
   suma:=0;
   write('elementy tablicy pierwszej:');
   writeln;
   t[1]:=1;
   t[2]:=1;
   for i:=3 to 15 do
      t[i]:=t[i-1]+t[i-2];
   for i:=1 to 15 do
      write(t[i]:4);
   writeln;
   for i:=1 to 15 do
      suma:=suma+t[i];
   writeln('suma wynosi: ',suma);
   writeln;
   writeln('Ile elementow tablicy chcesz wyswietlic?');
   readln(a);
   writeln('elementy tablicy drugiej:');
   for b:=1 to a do
      begin
         t2[b]:=random(21)-10;
         write(t2[b]:4);
      end;
   writeln;
   writeln('elementy tablicy trzeciej:');
   for b:=1 to a do
      begin
         t3[b]:=sqr(t2[b]);
         write(t3[b]:4);
      end;
   readkey;
end.

PS: Testowałem na crt nie crt2, ale nie powinien być to problem.

Dodano Dzisiaj, 10:54:

Daleko szukac nie trzeba:
http://www.programosy.pl/program,turbo-pascal.html

Jeżeli już to Free Pascal jest znacznie lepszy
http://www.programosy.pl/program,free-pascal.html