Darmowe Forum

W pascalu istnieje polecenie obliczajÂące liczbĂŞ znakĂłw w zmiennej typu string (sÂłowie).
Polecenie to wywoÂływane jest przez sÂłowo kluczowe length(x);
JeÂżeli chcemy policzyĂŚ z ilu znakĂłw skÂłada siĂŞ napis ktĂłry jest w zmiennej s. NaleÂży wpisaĂŚ:
x:=length(s);
Do zmiennej x wpisana zostanie liczba odpowiadajÂąca liczbie znakĂłw sÂłowa s.

PrzykÂład 1. NapisaĂŚ program ktĂłry policzy liczbĂŞ znakĂłw sÂłowa wprowadzanego z klawiatury.

program dorota;
uses crt,dos;
var s:string;
x:byte;
begin
clrscr;

write('Podaj dowolne slowo: '); readln(s);
x:=length(s);
write('Slowo ',s,' sklada sie z ',x,' znakow');
readkey;
end.

Przyk³ad 2. Proszê napisaÌ program który prosi o podanie s³owa, nastêpnie wpisuje podane s³owo litera po literze do tablicy. Na konie wyœwietla zawartoœÌ tablicy na ekranie.

program dorota;
uses crt,dos;
var s:string;
x,y:byte;
a: array[1..30] of char;
begin
clrscr;

write('Podaj dowolne slowo: '); readln(s);
x:=length(s);
for y:=1 to x do
a[y]:=s[y];
for y:=1 to x do
begin write(a[y],' ');sound(300);delay(100);nosound;
end;

readkey;
end.

PrzykÂład 4. ProszĂŞ napisaĂŚ program ktĂłry prosi o podanie wyrazu (sÂłowa). NastĂŞpnie wyÂświetla w jednym miejscu "literĂŞ po literze"  (kolejne litery) podanego sÂłowa.

program miki;
uses crt,dos;
var x,y:byte;
s:string;
begin
repeat
clrscr;
write('Podaj slowo: ');readln(s);
x:=length(s);
for y:=1 to x do
begin
gotoxy(40,10);write(s[y]);delay(500);
end;
until s='adam'
end.

------------------------------- nowy program -------------------------------------
program vxr;
uses crt,dos;
var x,y:byte;
procedure znaczek;
begin  textbackground(blue);textcolor(white);
gotoxy(x,y);write(' | ');
gotoxy(x,y+1);write('---');
gotoxy(x,y+2);write(' | ');
delay(1000);clrscr;
end;

begin clrscr;  randomize;
repeat
x:=1+random(57);
y:=1+random(21);
znaczek;
until keypressed;
readkey;
end.
__________________________ jeszcze jeden program ________________________

program vxr;
uses crt,dos;
var x,y:byte;
procedure znaczek;
var x,y:byte;
begin  textbackground(blue);textcolor(white);
x:=1+random(57);
y:=1+random(21);
gotoxy(x,y);write(' | ');
gotoxy(x,y+1);write('---');
gotoxy(x,y+2);write(' | ');

end;
procedure znaczek1;
var x,y:byte;
begin  textbackground(blue);textcolor(white);
x:=1+random(57);
y:=1+random(21);
gotoxy(x,y);write(' | ');
gotoxy(x,y+1);write('---');
gotoxy(x,y+2);write(' | ');

end;

procedure znaczek2;
var x,y:byte;
begin  textbackground(blue);textcolor(white);
x:=1+random(57);
y:=1+random(21);
gotoxy(x,y);write(' | ');
gotoxy(x,y+1);write('---');
gotoxy(x,y+2);write(' | ');
delay(500)
end;
begin clrscr;  randomize;
repeat
znaczek; znaczek1;znaczek2;
clrscr;
until keypressed;
readkey;
end.