Darmowe Forum
Maj 02, 2024, 08:52:37
Witamy,
Gość
.
Zaloguj się
lub
zarejestruj
.
Czy dotarł do Ciebie
email aktywacyjny?
1 Godzina
1 Dzień
1 Tydzień
1 Miesiąc
Zawsze
Zaloguj się podając nazwę użytkownika, hasło i długość sesji
Aktualności
: Forum zostało uruchomione!
Strona główna
Pomoc
Zaloguj się
Rejestracja
Darmowe Forum
>
Turbo Pascal
>
Turbo Pascal semestr I
>
Zadania do rozwiązania - pętle, i inne
Strony: [
1
]
« poprzedni
następny »
Drukuj
Autor
Wątek: Zadania do rozwiązania - pętle, i inne (Przeczytany 2582 razy)
admin
Administrator
Ekspert
Wiadomości: 821
Zadania do rozwiązania - pętle, i inne
«
:
Listopad 28, 2011, 08:15:27 »
Zadanie 1.
Napisać program który wyświetli na ekranie kwadrat (przynajmniej o rozmiarze 5x5 znaków) wykonany ze znaków o kodzie ASCII nr 178 wyświetlany w losowym kolorze. Program zmienia kolory do czasu wciśnięcia dowolnego klawisza. W zadaniu wykorzystać pętle repeat until.
program storm;
uses crt,dos;
var x,y,z:integer;
begin
randomize;
repeat
clrscr; z:=random(6);textcolor(z);
x:=0;
repeat
y:=0; writeln;
repeat
gotoxy(40+x,2+y);write(chr(178));
y:=y+1;
until y=20;
x:=x+1;
until x=20;
delay(100);
until keypressed;
end.
«
Ostatnia zmiana: Listopad 28, 2011, 10:06:05 wysłane przez admin
»
Zapisane
Strony: [
1
]
Drukuj
« poprzedni
następny »
Skocz do:
Wybierz cel:
-----------------------------
Zadanie C++ lutego -Agnieszka
-----------------------------
=> Nowy dział
=> Zadanie
-----------------------------
E14
-----------------------------
=> DIV
=> Java Script
=> php
-----------------------------
Dla Magdy i Wojtka
-----------------------------
=> Liczby dwójkowe
-----------------------------
Przykłady stron internetowych
-----------------------------
=> Strona zbudowana z tabelek
-----------------------------
Podstawy PHP
-----------------------------
=> Przesyłanie danych z formularza php
=> Pętle w php
-----------------------------
Java Script
-----------------------------
=> Java Script
-----------------------------
C++ Nowe rozdanie
-----------------------------
=> C++
-----------------------------
Java JDK
-----------------------------
=> Java ale nie Script
-----------------------------
Hyde Park
-----------------------------
=> Informacje
-----------------------------
C+++
-----------------------------
=> A Kuba powiedział
-----------------------------
Multimedia
-----------------------------
=> Photoshop
=> Nowy dział
=> Java Script
=> Corel
-----------------------------
Html-strony internetowe
-----------------------------
=> Podstawy HTML- ramki/ frames
=> Podstawy HTML- tabelki
-----------------------------
C++
-----------------------------
=> Podstawy C++ cz. I
=> Kompilatory C++
=> Programowanie obiektowe w C++
=> Problem w C++
=> Podstawy
=> C++ po raz pierwszy
-----------------------------
Turbo Pascal
-----------------------------
=> Turbo Pascal semestr II
=> Projekt AŚKA
=> Turbo Pascal semestr I
=> Podstawy Turbo Pascal
Ładowanie...
Polityka cookies
Darmowe Fora
|
Darmowe Forum
zupronum
companions
croissanta
santera
amazonsolidarnosc