Mam jeszcze jeden problem z delphi. Robie właśnie coś w rodzaju wywiadu, przeprowadzonego w dos'ie. Chce aby program pytał "Czy lubisz mdw? Tak/Nie". Przy odpowiedzi ''tak'' program ma odpisywać "Super", a przy odpowiedzi "nie" ma odpisywac "Szkoda". Lecz gdy włączę klawisz kompilacji przy odpowiedzi ''tak'' program odpisuje ''szkoda'', podobnie jak przy odpowiedzi "nie". Kod wygląda tak :
Cytuj:
program emdewu;
{$APPTYPE CONSOLE}
var
Odp1 : String;
begin
Writeln('Lubisz Mdw?');
Readln(Odp1);
if Odp1 = 'Tak' then
Writeln('Super');
if Odp1 = 'Nie' then
Writeln('Szkoda');
Readln;
end.
|
Pytania i odp. to tylko przykład ;p
Edit; zauważyłem błąd i go poprawiłem ;d