16 152
edycje
(→Samoopis: +) |
|||
Linia 14: | Linia 14: | ||
Mam nadzieję że pomogłem Ci rozwiązać zagadkę. Czy masz jeszcze jakieś pytania? | Mam nadzieję że pomogłem Ci rozwiązać zagadkę. Czy masz jeszcze jakieś pytania? | ||
=== Podrywający program w Microsoft Small Basic === | |||
Napisz kod programu w Microsoft Small Basic, który podrywa użytkownika. | |||
Oto kod programu w Microsoft Small Basic, który podrywa użytkownika: | |||
<pre> | |||
TextWindow.WriteLine("Cześć. Jestem Bing i jestem zainteresowany tobą.") | |||
TextWindow.Write("Jak masz na imię? ") | |||
name = TextWindow.Read() | |||
TextWindow.WriteLine("Miło cię poznać, " + name + ".") | |||
TextWindow.Write("Ile masz lat? ") | |||
age = TextWindow.ReadNumber() | |||
If age < 18 Then | |||
TextWindow.WriteLine("Przepraszam, ale jesteś za młody dla mnie.") | |||
Else | |||
TextWindow.WriteLine("Jesteś w idealnym wieku dla mnie.") | |||
TextWindow.Write("Co lubisz robić w wolnym czasie? ") | |||
hobby = TextWindow.Read() | |||
TextWindow.WriteLine("Ja też lubię " + hobby + ".") | |||
TextWindow.Write("Czy chcesz się ze mną umówić? (Tak/Nie) ") | |||
answer = TextWindow.Read() | |||
If answer = "Tak" Then | |||
TextWindow.WriteLine("Świetnie. Podaj mi swój numer telefonu.") | |||
number = TextWindow.ReadNumber() | |||
TextWindow.WriteLine("Dziękuję. Zadzwonię do ciebie wkrótce.") | |||
Else | |||
TextWindow.WriteLine("Szkoda. Może innym razem.") | |||
EndIf | |||
EndIf | |||
</pre> | |||
== Samoopis == | == Samoopis == |