Skocz do zawartości

Zablokowane CTRL + V


Bruce

Rekomendowane odpowiedzi

  • Odpowiedzi 623
  • Dodano
  • Ostatniej odpowiedzi

Top użytkownicy w tym temacie

Top użytkownicy w tym temacie

Odnośnik do komentarza
Udostępnij na innych stronach

niveaugourou 0

GOTO Vars
msgBtle = « bottle»
msgWall = « of beer on the wall»
msgBeer = « of beer.;n»
msgTake = «Take one down, pass it around, »
newLine = «;n;n»
msgEnd  = «Go to the store and buy some more, »
msgNoN  = «No more»
msgNon  = «no more»
plural  = *`s'
beers   = *(99)

GOTO Loop
§1
GOTOPRINTDUTEXTE() &msgWall &plural &msgBtle &beers
GOTOPRINTDUTEXTE() &msgBeer &plural &msgBtle &beers *` ' *`,'
GOTOPRINTDUTEXTE() &msgTake
beers = &beers ++ *(-1)
AUTOGOTOZ } &beers eg *(1) {
   plural = «»
AC
AUTOGOTOZ } &beers eg *(0) {
   beers  = &msgNon
   plural = *`s'
AC
GOTOPRINTDUTEXTE() &newLine *`.' &msgWall &plural &msgBtle &beers
GOTONONNULPOURLESNULS %1 &beers

GOTO Last verses of the song
GOTOPRINTDUTEXTE()  &msgWall &plural &msgBtle &msgNoN
GOTOPRINTDUTEXTE() &msgBeer &plural &msgBtle &msgNon *` ' *`,'
GOTOPRINTDUTEXTE() &msgEnd
GOTOPRINTDUTEXTE() &newLine *`.' &msgWall &plural &msgBtle «99»

Piosenka 99 bottles of beer w języku Goto++

Odnośnik do komentarza
Udostępnij na innych stronach

<html>

<head>
<meta http-equiv="Content-Language" content="pl">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1250">
<title>Nowa strona 1</title>
</head>

<body>

<p align="center"><b><font size="6">Witam na mojej aukcji !</font></b></p>
<p align="center"><font size="6"><b>Do sprzedania mam grę na Gameboy'a Advance'a:</b></font></p>
<p align="center"><font size="7"><b><span style="background-color: #FFFF00">
Dragon Ball z - The legacy of the goku</span></b></font></p>
<p align="center"><font size="6"><b>Gra jest używana, bez pudełka jednak Save'y 
działają jak najbardziej.</b></font></p>
<p align="center"><font size="6"><b>Gra jest 100%
<span style="background-color: #FFFF00">ORYGINALNA</span>.</b></font></p>
<p align="center"><font size="6"><b>Gra jest po
<span style="background-color: #FFFF00">angielsku</span>.</b></font></p>
<p align="center"><font size="6"><b>Zapraszam do licytacji! </b></font></p>
<p align="center"><font size="6"><b><span style="background-color: #FFFF00">
Jeżeli masz jakieś sensowne propozycje napisz na e-mail'a</span>. W razie jakiś 
pytań <span style="background-color: #FFFF00">pisz</span>.</b></font></p>
<p align="center"><font size="6"><b>Zdjęcia:</b></font></p>
<p align="center"><font size="7"><b><span style="background-color: #FF0000">
Pozdrawiam, i życzę udanych zakupów :)</span></b></font></p>

</body>

</html>

 

Kod do aukcji :D

Odnośnik do komentarza
Udostępnij na innych stronach

with Ada.Text_IO;
use Ada.Text_IO;
procedure Hello is
begin
  Put_Line("Witaj Świecie!");
  Put_Line("Jest to mój pierwszy program napisany w języku ADA 95");
  Put_Line("Kocham cię ADA :*");
  Put_Line("Co ja pieprzę :3");
end Hello;

Przesyłałem pietrusowi kod swojego pierwszego programu napisanego w języku Ada :P .

Odnośnik do komentarza
Udostępnij na innych stronach

Gość
Ten temat został zamknięty. Brak możliwości dodania odpowiedzi.
  • Ostatnio przeglądający   0 użytkowników

    • Brak zarejestrowanych użytkowników przeglądających tę stronę.

×
×
  • Dodaj nową pozycję...