PDA

Zobacz pełną wersję : Turbo Pascal Tablice re



iro4321
23-11-08, 23:52
Może napisze ten program w całości:
var
a: array [1..20] of integer;
n, wynik:integer;
begin
writeln('wpisz iluelementowa ma być tablica');
readln(n);
wynik:=a[1];
for n:=1 to 20 do
begin
writeln('wpisz liczby');
readln(a[n]);
wynik:=wynik -a[n];
end;
writeln ('róznica wynosi',wynik);
readln;
end.
I to nie działa, a ma odejmować od pierwszego wyrazu tablicy pozostałe jej elementy, nie ważne ile ich wprowadzimy.

Rybzor
24-11-08, 06:06
Może napisze ten program w całości:
var
a: array [1..20] of integer;
n, wynik:integer;
begin
writeln('wpisz ilu elementowa ma być tablica');
readln(n);

for n:=1 to 20 do
begin
writeln('wpisz liczby');
readln(a[n]);
wynik:=wynik -a[n];
end;
writeln ('róznica wynosi',wynik);
readln;
end.
I to nie działa, a ma odejmować od pierwszego wyrazu tablicy pozostałe jej elementy, nie ważne ile ich wprowadzimy.
Nie musisz zakładać nowego tematu dla każdego swojego posta...
var
a: array [1..100] of integer;
n,i, wynik:integer;
begin
writeln('wpisz ilu elementowa ma być tablica(od 1 do 100');
readln(n);

for i:=1 to n do
begin
writeln('wpisz kolejne liczby');
readln(a[i]);
end;

wynik:=a[1];

for i:=2 to n do
wynik:=wynik - a[i];

writeln ('róznica wynosi',wynik);
readln;
end.

nie wiem czy zadziała, bo trochę zaspany jestem : P

@down
Racja : )

@iro
Poprawiłem, powinno działać : p

iro4321
24-11-08, 15:01
no niestety nie działa :(

koneton
24-11-08, 15:35
należy poprawić fragment na


wynik:=a[1];
for i:=2 to n do
wynik:=wynik - a[i];

RadomCT
24-11-08, 17:40
czesc.czy ktorys z was potrafi napisac program liczacy ktory wyswitli liczby podzielne prez 11 mniejsze od 100 ???
potrzebne mi do szkoly na zaliczenie.pozdrawiam

iro4321
24-11-08, 17:52
moim drodzy spece;): ni hu hu nie działa.dajmy temu spokój

Siriah
24-11-08, 17:54
@RadomCT: Czy Ty myślisz, że tu banda frajerów siedzi i tylko czeka, żeby leniom takim jak Ty programy na zaliczenie pisać?
Nie zauważyłeś, że jeśli chodzi o pomoc w rozwiązaniu jakiegoś problemu - wszyscy tutaj chętni, ale za kogoś nikt tu robić nie będzie?

Rybzor
24-11-08, 19:54
moim drodzy spece;): ni hu hu nie działa.dajmy temu spokój
Jak nie działa jak działa:P


Co do RadomCT, jak napisał Siriah - chętnie pomożemy Ci w rozwiązaniu problemu z napisanym programem z ewentualnymi błędami, bądź doradzimy, ale nie licz na to, że ktoś Ci będzie pisał cały program.

koneton
25-11-08, 08:58
@iro4321 możesz napisać co Ci nie działa? Przecież większość z nas nie ma przy sobie kompilatora pascala tylko pisze z głowy. Specjalnie dla Ciebie ściągnąłem takie coś i sprawdziłem. Program śmiga jak ta lala. Jeśli uważasz, że coś jest źle to napisz dokładnie co Ci nie pasuje. Poprawiłem trochę interfejs, żeby był bardziej ludzki.


program test;
var
a: array [1..100] of integer;
n,i, wynik:integer;
begin
write('wpisz ilu elementowa ma byc tablica (od 1 do 100):');
readln(n);

for i:=1 to n do
begin
write('wpisz liczbe nr ',i,': ');
readln(a[i]);
end;

wynik:=a[1];

for i:=2 to n do
wynik:=wynik - a[i];

writeln ('roznica wynosi ',wynik);
readln;
end.