Turbo pascal-procedura
Ahoj, nemohl by mi někdo poradit jak mam dat dohromady tuto proceduru v TP aby mi fungovala a ukazalo mi to na konec tu tabulku, dik moc.
Příklad: procedura, která vytvoří čáru skládající se z n pomlček '-' a odřádkuje:
procedure cara(n:integer);
var i:integer;
begin
for i:=1 to n do write('-');
writeln;
end;
Procedura, vypíše na řádek násobky čísla n. Řádek začíná a končí svislou čárkou '|'.
procedure nasobky(n:integer);
var j:integer;
begin
write('|');
for j:=1 to 10 do write(j*n:4);
writeln(' |');
end;
Po provedení programu:
cara(43);
for i:=1 to 10 do nasobky(i);
cara(43);
Dostaneme tento výsledek:
-------------------------------------------
| 1 2 3 4 5 6 7 8 9 10 |
| 2 4 6 8 10 12 14 16 18 20 |
| 3 6 9 12 15 18 21 24 27 30 |
| 4 8 12 16 20 24 28 32 36 40 |
| 5 10 15 20 25 30 35 40 45 50 |
| 6 12 18 24 30 36 42 48 54 60 |
| 7 14 21 28 35 42 49 56 63 70 |
| 8 16 24 32 40 48 56 64 72 80 |
| 9 18 27 36 45 54 63 72 81 90 |
| 10 20 30 40 50 60 70 80 90 100 |
-------------------------------------------
He? Vzdyt tam snad vsechno mas ne?
no jo tak zacnu :
program MUJPROGRAM;
uses CRT;
a pak tam opisu tady toto vsecko pod sebe a u toho:
cara(43);
for i:=1 to 10 do nasobky(i); --------- u "i" mi to pise chybu
cara(43);
a jak to pak ukoncit??
lebo 'i' nemas zadeklarovane
var i: integer;
tak kdyz to napisu tak jak mi radite tak ted mi to pise chybu z beginem a ukazujet to na tu caru..
Program Muj program;
Uses CRT;
procedure cara(n:integer);
var i:integer;
begin
for i:=1 to n do write('-');
writeln;
end;
procedure nasobky(n:integer);
var j:integer;
begin
write('|');
for j:=1 to 10 do write(j*n:4);
writeln(' |');
end;
cara(43);
var i:integer;
for i:=1 to 10 do nasobky(i);
cara(43);
end.
Nemáš tam hlavní begin.
kdyz ho dam uplne nahoru ten begin pod uses CRT tak to zas odkazuje chybu na procedure (erorr in statement)
Bože! Vyser se na to nebo si přečti základy. Ten begin patří nad 1. cara(43);
EDIT: A to var i: integer; (ze spodu) dej za uses crt;
UZ to funguje diky ti;)
Sedmnáct odpovědí kvůli hovadiny...
PS: Teď už vlastně osmnáct.
a jak malo stacilo,jeste jednou dik;)
Jo no, stačilo napsat do google třeba "program v pascalu" a nějaký si prohlédnout...
Pro priste se polepsim