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

JU
  • Rejestracja:około 22 lata
  • Ostatnio:3 miesiące
  • Postów:5042
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

.::CYMES::.
  • Rejestracja:prawie 22 lata
  • Ostatnio:10 miesięcy
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...

Kopiuj
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

MA
  • Rejestracja:około 17 lat
  • Ostatnio:4 miesiące
  • Lokalizacja:Poznań
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.

Loloki
  • Rejestracja:prawie 19 lat
  • Ostatnio:około 12 lat
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.


Nie łam się, i tak ktoś zrobił to za ciebie
<hr style="color: #B10C0C; width: 10%; margin-left: 0" />
LUDZIE goto NIE UŻYWA SIĘ WSZĘDZIE GDZIE MOŻNA, TYLKO TAM GDZIE TRZEBA
MX
  • Rejestracja:około 17 lat
  • Ostatnio:około 13 lat
0
Kopiuj
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.

Not Found
The requested URL /wypasiona_sygnaturka.txt was not found in this brain.
-----
Human/1.0.00 (Earth) Server at Poland Port 65535
Opi
  • Rejestracja:ponad 20 lat
  • Ostatnio:15 dni
  • Postów:1030
0

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

lukasz1235
  • Rejestracja:ponad 17 lat
  • Ostatnio:ponad 8 lat
  • Postów:1105
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.