Turbo Pascal

[Gość: Kubera]

witam chcialem poprosic o pomoc z bledem w kodzie

USES CRT;
VAR
a,b,c:longint;
niewiadoma:string;

Begin
clrscr;
textcolor(white);
writeln('Jest to program ktory w bardzo prosty sposob pomoze ci obliczyc
dowolna niewiadomoa(a,b,c) dla r˘wnania 2a+b=c !!');
delay(2000);
writeln('Podaj niewiadoma ktora chcesz obliczyc a,b lub c');
readln(niewiadoma);
If (niewiadoma=a) THEN
Begin
writeln('Podaj b dla r˘wnania !');
readln(b);
writeln('Podaj c dla r˘wnania !');
readln(c);
writeln('Dla rownania 2a+','b','=','c ',' x=',(c-b)/2);
readln;
end;
IF (niewiadoma=b) THEN
Begin
writeln('Podaj a dla r˘wnania !');
readln(a);
writeln('Podaj c dla r˘wnania !');
readln(c);
writeln('Dla rownania 2',a,'+b=',c,' b=',-2*a-c);
readln;
end;
IF (niewiadoma=c) THEN
Begin
writeln('Podaj a dla r˘wnania !');
readln(a);
writeln('Podaj b dla r˘wnania !');
readln(b);
writeln('Dla rownania 2',a,'+',b,'c=',2*a+b);
readln;
end;
readln;
end.

[r_ed]

Zapomniałeś napisać w której linii i jaka jest jego treść.

Proszę podawać wskazówki, a nie gotowy kod!!!

[user0001]

Zakładam, że błąd będzie na pierwszym 'If'
Próbujesz porównać wartość zmiennej niewiadoma (typu string) z wartością
zmiennej a (typu longint).

1. Z tego co pamiętam, w Pascalu nie ma automatycznej konwersji między typem
napisowym a typem całkowitym.
2. Sądząc po tekstach wstawionych w writelnach, ten kod nie jest tym co chciałeś
napisać.

Podsumowując.
Nie wyciągaj armaty (typu string) na wróbla (przechowywanie jednej litery). Do
przechowywania jednej litery powinieneś mieć tam typ znakowy (Character lub coś
podobnego).
A więc użyj typu znakowego, a następnie porównaj ze stałą znakową, a nie ze zmienną.

Jeśli nie zrozumiałeś tego co napisałem, to przejrzyj notatki, lub podręcznik do
informatyki.

[Gość: Kubera]

poprostu wyskakuje błąd mówiacy o nie prawidłowych zmiennych - nie moge porównać
dwóch różnych zmiennych a nie ma zmiennej która by zapamiętywała i znaki i
liczby i słowo

[wredny_menel]

Są trzy drobne, identyczne blędy a mianowicie powinno być
w odpowiednich miejscach

If (niewiadoma='a')
If (niewiadoma='b')
If (niewiadoma='c')