Turbo Pascal prosze o sprawdzenie
Prosze kogoś o podpowiedź w sprawie tego zadania:
program jjj;
uses CRT;
var t:array[1..10,1..10] of integer;
l:array['a'..'z'] of char;
x,y:integer;
begin
ClrScr;
writeln(' x1–x2–x3–x4–x5–x6–x7–x8–x9–x10');
writeln('y1 ');
writeln('| ');
writeln('y2 ');
writeln('| ');
writeln('y3 ');
writeln('| ');
writeln('y4 ');
writeln('| ');
writeln('y5 ');
writeln('| ');
writeln('y6 ');
writeln('| ');
writeln('y7 ');
writeln('| ');
writeln('y8 ');
writeln('| ');
writeln('y9 ');
writeln('| ');
writeln('y10 ');
writeln(' x1–x2–x3–x4–x5–x6–x7–x8–x9–x10');
writeln('');
x:=0;
y:=0;
writeln('Podaj wartosc X : ');
readln(x);
writeln('Podaj wartosc Y : ');
readln(y);
begin
if (x=1) and (y=1) then
GoToXY(1*x,2*y);
write(l);
readln;
end;
end.
PROBLEM DOTYCZY WPISYWANIA LITER W ODPOWIEDNIE MIEJSCE TEJ TABELI
program jjj;
uses CRT;
var t:array[1..10,1..10] of integer;
l:array['a'..'z'] of char;
x,y:integer;
begin
ClrScr;
writeln(' x1–x2–x3–x4–x5–x6–x7–x8–x9–x10');
writeln('y1 ');
writeln('| ');
writeln('y2 ');
writeln('| ');
writeln('y3 ');
writeln('| ');
writeln('y4 ');
writeln('| ');
writeln('y5 ');
writeln('| ');
writeln('y6 ');
writeln('| ');
writeln('y7 ');
writeln('| ');
writeln('y8 ');
writeln('| ');
writeln('y9 ');
writeln('| ');
writeln('y10 ');
writeln(' x1–x2–x3–x4–x5–x6–x7–x8–x9–x10');
writeln('');
x:=0;
y:=0;
writeln('Podaj wartosc X : ');
readln(x);
writeln('Podaj wartosc Y : ');
readln(y);
begin
if (x=1) and (y=1) then
GoToXY(1*x,2*y);
write(l);
readln;
end;
end.
PROBLEM DOTYCZY WPISYWANIA LITER W ODPOWIEDNIE MIEJSCE TEJ TABELI
Odpowiedzi: 19
hastic:
Tylko jak połączyć tą tablice dwu wymiarowa z tabelką ?
Pokombinuj – moźe nie trzeba łączyć ?
Tylko jak połączyć tą tablice dwu wymiarowa z tabelką ?
Tylko ta tabela ma być widoczna w programie i trzeba uzupełniać w dowolnym miejscu, a nie wiersz po wierszu :(
To usiądz z łaski swojej na pupie i pomyśl jak to zrobić.
Tabele narysować chyba wiesz jak ?
Program pokazuje tabele, a na dole pyta sie gdzie wstawić element. Wstawiasz go i tabela sie odswieźa z nowym elementem.
Tylko ta tabela ma być widoczna w programie i trzeba uzupełniać w dowolnym miejscu, a nie wiersz po wierszu :(
nie wiem tylko jak tą tablice dwu wymiarową przedstawić graficznie!!
Wypisać dziesięć elementów (pierwszy wiersz) przeskoczyć do nowej lini i znowu wypisać wiersz.
W dwóch pętlach to da sie zamknąć.
To jest problem tego zadania mam przedstawić tekstowo (graficznie) tą tablice dwu wymiarową (10 x 10) i opisać ją dowolnymi literami (czyli musze uzupełnić 100 elementów) nie wiem tylko jak tą tablice dwu wymiarową przedstawić graficznie!!
Do tablicy jest juź wpisane, mi chodzi o to aby została wyświetlona tabelka do której mógłbym wpisywać te literki. TAK ABY PROGRAM DZIAŁAŁ W TRYBIE TEKSTOWYM
To narysuj taką tabelkę – ale jak Ty chcesz wpisać coś do takiej tabelki ?
Do tablicy jest juź wpisane, mi chodzi o to aby została wyświetlona tabelka do której mógłbym wpisywać te literki. TAK ABY PROGRAM DZIAŁAŁ W TRYBIE TEKSTOWYM
oto treść tego zadania:
Napisać program który zawiera tabelke (graficzną) do której trzeba wpisywac w dowolne miejsce litery.
Mam juź tą tablice dwu wymiarową 10 x 10, zostalo mi tylko graficznie to przedstawić, musze uzupełnic te 100 kratek literami i to w dowolnej kolejności.
[/i]
oto treść tego zadania:
Napisać program który zawiera tabelke (graficzną) do której trzeba wpisywac w dowolne miejsce litery.
Mam juź tą tablice dwu wymiarową 10 x 10, zostalo mi tylko graficznie to przedstawić, musze uzupełnic te 100 kratek literami i to w dowolnej kolejności.
[/i]
Potrzebuje tylko źeby wpisać
Co wpisać – do tablicy ?
To moźe sciągnij pierwszy lepszy kurs i przeczytaj go.
Przecieź nie bede za Ciebie pisał programów.
grafike zrobiłem:
program ram;
uses CRT;
PROCEDURE WriteXY (x,y:byte; s:string);
begin
GoToXY(x,y);
write(s);
end;
PROCEDURE Ramka(x1,y1,x2,y2:byte);
var
t:byte;
begin
WriteXY(x1,y1, chr(201));
WriteXY(x1,y2, chr(200));
WriteXY(x2,y1, chr(187));
WriteXY(x2,y2, chr(188));
for t:=x1+1 to x2–1 do WriteXY(t,y1,chr(205));
for t:=x1+1 to x2–1 do WriteXY(t,y2,chr(205));
for t:=y1+1 to y2–1 do WriteXY(x1,t,chr(186));
for t:=y1+1 to y2–1 do WriteXY(x2,t,chr(186));
end;
begin
ClrScr;
Ramka(5,5,22,9);
readln
end.
Potrzebuje tylko źeby wpisać
program ram;
uses CRT;
PROCEDURE WriteXY (x,y:byte; s:string);
begin
GoToXY(x,y);
write(s);
end;
PROCEDURE Ramka(x1,y1,x2,y2:byte);
var
t:byte;
begin
WriteXY(x1,y1, chr(201));
WriteXY(x1,y2, chr(200));
WriteXY(x2,y1, chr(187));
WriteXY(x2,y2, chr(188));
for t:=x1+1 to x2–1 do WriteXY(t,y1,chr(205));
for t:=x1+1 to x2–1 do WriteXY(t,y2,chr(205));
for t:=y1+1 to y2–1 do WriteXY(x1,t,chr(186));
for t:=y1+1 to y2–1 do WriteXY(x2,t,chr(186));
end;
begin
ClrScr;
Ramka(5,5,22,9);
readln
end.
Potrzebuje tylko źeby wpisać
Ok wielkie dzięki wszystko juź kapuje
a jak to przedstawić graficznie??(Znowu się zaczyna :D)
Ale graficznie jak ?
Z pomocą modułu graph czy poprostu wypisać:
0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0
0 0 0 0 5 0 0 0 0 0
Ok wielkie dzięki wszystko juź kapuje
a jak to przedstawić graficznie??(Znowu się zaczyna :D)
a jak to przedstawić graficznie??(Znowu się zaczyna :D)
Niewiem czy to jest koniecznejest chyba dobrze, JA NIE WIEM TYLKO JAK ZAPISAĆ TE LITERY TO DO TABLICY DWUWYMIAROWEJt:array[1..10,1..10] of integer;
Pytanie:
To ma być tablica znaków czy liczb ?
Jak wpisać do tablicy, toź Ci podałem: plansza[poziom][pion] = miejsce ;
Niewiem czy to jest konieczne
jest chyba dobrze, JA NIE WIEM TYLKO JAK ZAPISAĆ TE LITERY TO DO TABLICY DWUWYMIAROWEJt:array[1..10,1..10] of integer;
var t:array[1..10,1..10] of integer;
IMO powinno być var t:array[1..10,1..10] of char ;
I po co Ci druga tablica jak jej nigdy nie uźywasz ?
l:array['a'..'z'] of char;
Edytuj swoje posty.
P.S: Jeśli uwaźasz, źe rozwiąźe Ci zadanie to sie grubo mylisz. Pomogę chętnie, ale nie nauczę sie za Ciebie programować.
Przeanalizowałem ten kod iło mi takie coś:
program tab;
uses CRT;
var t:array[1..10,1..10] of integer;
l:array['a'..'z'] of char;
x,y:integer;
k:char;
begin
ClrScr;
x:=0;
y:=0;
writeln('Podaj litere: ');
readln(k);
writeln('wpisz liczbe dla X: ');
readln(x);
writeln('wpisz liczbe dla Y: ');
readln(y);
writeln('OK wpisze ',k, ' w ',x, ' i ',y,'');
readln;
end.
Tylko jak to zrobić aby wyświetlało litere w tablicy???
program tab;
uses CRT;
var t:array[1..10,1..10] of integer;
l:array['a'..'z'] of char;
x,y:integer;
k:char;
begin
ClrScr;
x:=0;
y:=0;
writeln('Podaj litere: ');
readln(k);
writeln('wpisz liczbe dla X: ');
readln(x);
writeln('wpisz liczbe dla Y: ');
readln(y);
writeln('OK wpisze ',k, ' w ',x, ' i ',y,'');
readln;
end.
Tylko jak to zrobić aby wyświetlało litere w tablicy???
A przepraszam, gdzie następuje wpisanie do tablicy ?
Okazuje się, źe to jest dla mnie największy problem,
będe wdzięczny jak ktoś pokaźe mi to na prostym przykładzie.
Dzięki, tylko to chyba nie jest Pascal :D
PROBLEM DOTYCZY WPISYWANIA LITER W ODPOWIEDNIE MIEJSCE TEJ TABELI
A przepraszam, gdzie następuje wpisanie do tablicy ?
Jakoś tego nie zauwaźyłem.
P.S: Dlaczego nie napisałeś w poprzednim temacie ?
Teraz kurna, źeby zobaczyć zadanie muszę kopać po tematach.
Tutaj masz kolejny przykład, który juź powinien Cię oświecić. Co prawda wczytuje same liczby, ale łatwo to przerobić. No i program nie jest zabezpieczony, wiec moźna zarobić wyprawę poza tablicę ;) .
#include
using namespace std ;
/***************************************************/
int main(void)
{
int poziom = 0 ; // poziomy indeks tablicy
int pion = 0 ; // pionowy indeks tablicy
int miejsce = 0 ; // to tego wczytamy
int plansza[5][5] = {{0,0,0,0,0},{0,0,0,0,0}} ;
cout <
cin >> miejsce ; // wczytujemy liczbe
cout <
cin >> poziom ; //wczytujemy poziomy indeks
cout <
cin >> pion ; // wczytujemy pionowy indeks
cout <<<<<<<
plansza[poziom][pion] = miejsce ; // przypisujemu zaindeksowanej tablicy zmienna MIEJSCE !
cout <
cout <<<<<<<
for(int poziom=0; poziom
for(int pion=0; pion
cout <<
return 0 ;
}
Jakby które nie wierzyło – na końcu wywali całą tablicę zer i tylko jeden element, który wpisaliście :)