Witam,
napisałem program o podawania tekstu tylko, że zamiast wyświetlania tekstu wyświetlane są gwiazki i problem pojawia się gdy próbuje porównać wpisywaną wartość z wartością już podaną ;/:
Uses Crt;
Var
Pamiec:Array[1..100] Of String;
Poziom,Pion,Licznik,Stala,Pass:Byte;
Znak:Char;
Label
Miejsce1;
Label
Miejsce2;
Begin
Poziom := 8;
Pion := 4;
Licznik := 0;
Repeat
Miejsce1:
Gotoxy(Poziom,Pion);
Licznik := Licznik + 1;
Znak := ReadKey;
IF Znak = Chr(8) Then
Begin
Poziom := Poziom - 1;
Gotoxy(Poziom,Pion);
Write(' ');
Licznik := Licznik - 2;
Goto Miejsce1;
End;
IF Znak = Chr(13) Then Goto Miejsce2;
Write('*');
Miejsce2:
Pamiec[Licznik] := Znak;
Poziom := Poziom + 1;
Until (Znak = Chr(13));
Stala := Licznik;
Licznik := 0;
Repeat
Licznik := Licznik + 1;
Pass := Pass + Pamiec[Licznik];
Until Licznik = Stala;
End.
Nie bardzo wiem co jest nie tak, przy porównaniu z już podaną zmienną np. ZapisanaWartosc := ‘abc’; typu string, przy podaniu do Pass abc porównanie
Repeat
IF ZapisanaWartosc <> Pass Then Write('Blad!');
Until ZapisanaWartosc = Pass;
program traktuje wartosci jako różne
Z góry dzięki za pomoc… Pozdrawiam.