[Rybzor]

Oryginalnie napisane przez Wipigi

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 :



Pytania i odp. to tylko przykład ;p

Edit; zauważyłem błąd i go poprawiłem ;d

Ja to tak napisałem:x

Ukryty tekst:

program emdewu;

{$APPTYPE CONSOLE}

var
Odp1 : String;

begin
clrscr
Writeln('Lubisz Mdw?');
Readln(Odp1);

if Odp1 = 'Tak' then
begin
Writeln('Super');
end;
if Odp1 = 'Nie' then
begin
Writeln('Szkoda');
end;
repeat until keypressed;
end.

Aaa i tak na przyszłość to dobrze jest zabezpieczyć się na odpowiedzi inne niż: Tak, tak, Nie, nie.