Przejdź do zawartości

Dzieła AI:Bing: Różnice pomiędzy wersjami

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 ==