Another Pascal Help

Programovacie jazyky, rady, poradňa...
ranger.sk
Amateur
Amateur
Príspevky: 18
Registrovaný: 18 nov 2009, 11:06

Another Pascal Help

Príspevok od používateľa ranger.sk »

Ahoj. Mam problem a potrebujem poradit. Som zaciatocnik, mozno sa vam moj problem bude zdat primitivny, ale nepomozem si. Snazil som sa vygooglit co sa dalo, ale nestacilo to.

Takze mam program:
program meno;
uses crt;
var i:string;
s:byte;
begin
clrscr;
writeln ('zadaj svoje meno', i);
readln (i);
for s:=1 to length(i) do write (i[s],'*');
end.
Sluzi na to, ze uzivatel napise svoje meno a zobrazi mu ho s hviezdickou medzi kazdym pismenom. Lenze potrebujem ho urobit tak, aby meno zostalo normalnej farby a hviezdicky nejakej inej. Neviem, ako tam ten TextColor zaintegrovat. Diky moc za Vas cas.

P.S.: Pascalu sa venujem nieco okolo 15 hodin, tak ma nekritizujte.
audiotrack
VIP
VIP
Používateľov profilový obrázok
Príspevky: 25958
Registrovaný: 09 sep 2005, 18:39
Kontaktovať používateľa:

Príspevok od používateľa audiotrack »

Kód: Vybrať všetko

...
for s:=1 to length(i) do begin
   textcolor(White);
   write(i[s]);
   textcolor(Red);
   write('*');
end;
...
ranger.sk
Amateur
Amateur
Príspevky: 18
Registrovaný: 18 nov 2009, 11:06

oh

Príspevok od používateľa ranger.sk »

diky moc ^^
Napísať odpoveď