PDA

Zobacz pełną wersję : Problem z programem w pascalu



kubika234
21-11-08, 10:53
Dlaczego nie działa mi ten program????

program tloki;
uses crt;
var
i,n:integer;
x1,xi:real;
x:array[1..50] of real;
begin
clrscr;
x1:=0;
for i:=1 to n do
begin
x1:=x1+x[i];
writeln('wynik wynosi: ',x1);
end;
readln;
end.

Rybzor
21-11-08, 14:30
Po 1.
Nie jestem do końca pewny, czy tablica jednowymiarowa może być typu real (zresztą chyba i tak nie jest potrzebna do zadania)
Po 2.
Zmienna "n" nie jest nigdzie zdefiniowana

Siriah
13-12-08, 23:44
Zdefiniowana to ona jest - tylko nigdzie nie ma zadeklarowanej wartości "n".
Druga rzecz jaka mi wpadła w oko - poza zdefiniowaniem tablicy wypadało by jakoś ją wypełnić, a z tego co widzę tablica jest pusta.
Trzecia rzecz:

for i:=1 to n do
begin
x1:=x1+x[i];
writeln('wynik wynosi: ',x1);
end;
jeżeli będzie działało poprawnie, dostaniesz 50 wyników... a chyba nie o to chodzi... Powinno to wyglądać tak:

for i:=1 to n do
begin
x1:=x1+x[i];
end;
writeln('wynik wynosi: ',x1);

Kolejna rzecz - po co Ci zmienna xi? Nigdzie jej nie używasz.

PS. Paskala liznąłem ostatnio wiele czasu temu i mogę trochę się mijać z prawdą. :mrgreen:

Ostrzihhno
17-05-11, 13:01
Czy jest ktoś chętny na napisanie małego programu ?
a mianowicie temat brzmi tak :
napisz funkcję która obliczy liczbę powtórzeń liczb z zakresu 10 do 30 z krokiem 1 dla dowolnie wprowadzonej macierzy liczb całkowitych o n wierszach i m kolumnach. napisz program, który sprawdzi działanie funkcji.
Bardzo prosze o pomoc