Jak wyswietlic tyle znakow ile wynosi X

WItam

var X : Integer;
.
.
.
Write(TF, '++++++');
.
.

Che mieć tyle tych '+' ile wynosi X. Np
X := 5 '+++++'.

THX

1. Delphi: DupStr/DupString/DupChar (któreś z tych :))
2. Pascal:

var
i: Integer;
x: Integer;
s: string;
begin
s:='';
for i:=1 to x do s:=s + '+';
Write(s)
end;

WItam

var X : Integer;
.
.
.
Write(TF, '++++++');
.
.

Che mieć tyle tych '+' ile wynosi X. Np
X := 5 '+++++'.

THX

for i:=0 to x do write(tf, 'x');

Co ty? O pętlach nie słyszałeś????????

Jest jeszcze cos takiego:

FillChar(S, 5, Ord('+'));

Czyli wypelni zmienna S piecioma znakami '+'.

Tak jest Petla. To jest to.
Że też na to niewpadłem. To jest najprościejsze.

THX

Delphi

s:=StringOfChar('+',x);

for i:=0 to x do write(tf, 'x');

Co ty? O pętlach nie słyszałeś????????

A ty nie wiesz o tym ze petla nie mmusi sie zaczynac od 0 a dwa jezeli juz po twojemu to for i:=0 to x - 1 do write(tf, 'x'); a to dla tego ze inaczej byloby o jeden plus wiecej niz w X (tak jak u ciebie)