Tabela Pascal

0

Czy ktoś mógłby mi wytłumaczyć bądź napisać takowy program w pascalu: tabela 10kolumn 1wiersz, ja podaje liczby które mają wejść do tabeli...

thx za pomoc z góry

0

???

0

no chodzi mi żeby wyglądało to tak:
1 1 1 1 1 1 1 1....

żeby to było 10liczb tak jakby w tabeli i że ja podaje te liczby

0
drink320 napisał(a)

no chodzi mi żeby wyglądało to tak:
1 1 1 1 1 1 1 1....

żeby to było 10liczb tak jakby w tabeli i że ja podaje te liczby

Albo ja już za stary jestem albo za tępy żeby zrozumieć o Ci chodzi.

0
maciejmt napisał(a)

Widać że sie z niego nabijacie, ale problem jest prosty...

var
 tab : array[1..10] of integer;
 I,Liczba : Integer;

begin
 for I:=1 to 10 do
 begin
   readln(Liczba);
   tab[i] := Liczba;
 end;
end.
 

Mam nadzieje ze pomoglem :d

kolega pomógł tylko że program pisze z góry do dołu czyli tak:
1
2
3
4
5
6
...
10
a to ma być niby tak: 1 2 3 4 5 6 7 8 9 10 może bez spacji.

A co do pana co nierozumie to może dlatego że ja z pascala kompletna noga bo mieliśmy nauczyciela co niezabardzo potrafił uczyć xD

0

Nie bawiłem się nigdy w takie zabawy w konsolówce Pascala, ale zawsze możesz wczytać ciąg jako string, i potem wzgledem jakiegoś separatora porozdzielać i wrzucić do tablicy.

0

Jak każdą liczbę zatwierdzasz enterem to nic dziwnego, że przechodzi Ci do następnego wiersza. Wpisz sobie ciurkiem, oddzielając spacją każdą liczbę, i zatwierdź dopiero po ostatniej.

Jeśli takie rozwiązanie Ci nie pasuje to: WhereX, WhereY, GotoXY i help. Rozwiązanie proste ale dużo na około przejdziesz.

0
var
 tab : array[1..10] of integer;
 I,Liczba : Integer;

begin
 for I:=1 to 10 do
 begin
   read(Liczba);
   tab[i] := Liczba;
 end;
 readln;
end.
0

Najlepsze jest to że wszędzie tego Integer używacie... to już lepiej Int64 jak wam mało zakresu [glowa]

0

A skąd wiadomo jaką liczbę użyszkodnik wprowadzi?

PS. Na integer są najszybsze operacje

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.