Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Ivan56
0 / 0 / 0
Регистрация: 07.02.2013
Сообщений: 13
1

Выведите на экран 16 случайных чисел 16-ю разными цветами на черный экран

07.02.2013, 15:59. Просмотров 1012. Ответов 3
Метки нет (Все метки)

Выведите на экран 16 случайных чисел 16-ю разными цветами на черный экран.в Turbo Pascal 7
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.02.2013, 15:59
Ответы с готовыми решениями:

Вывести на экран свои фамилию и имя, мерцающие разными цветами
1.Напишите программу, которая рисует звездное небо с 400 звездами, вспыхивающими постепенно, и...

Сгенерировать и вывести на экран массив с 10 случайных чисел в диапазоне от -100 до 100. Цикличный сдвиг массива влево на 1 и вывод на экран
Помогите написать программку в Паскале, что сгенерирует и выведет на экран массив с 10 случайных...

Выведите на экран массив А целых чисел
1.Выведите на экран массив А целых чисел,состоящий из 3 строк и 6 столбцов,если для любых i и j...

Выведите на экран список квадратов чисел от 1 до 20
(1,4,9,16..)

Среди чисел от 1 до N найдите и выведите на экран
Выполнить с помощь цикла: Среди чисел от 1 до N найдите и выведите на экран такие, запись которых...

3
Kodzaev
3006 / 1895 / 1646
Регистрация: 30.04.2011
Сообщений: 3,054
07.02.2013, 16:06 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Uses crt;
Var
  i: Byte;
BEGIN
Clrscr;
Randomize;
For i:=0 to 15 do
begin
  TextColor(i);
  Write(Random(100),' ');
end;
Readln
END.
1
Ivan56
0 / 0 / 0
Регистрация: 07.02.2013
Сообщений: 13
07.02.2013, 16:16  [ТС] 3
Спасибо огромное
0
Spase
1 / 1 / 0
Регистрация: 23.12.2012
Сообщений: 14
08.02.2013, 12:00 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program lab51_3;
uses crt;
var i,c:integer;
begin
clrscr;
for i:=1 to 16 do
begin
c:=1+random(15);
textcolor(1+random(15));
gotoxy(random(79),random(39));
writeln(c);
end;
readkey;
end.
Вот так лучше будет
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.02.2013, 12:00

Выведите на экран список квадратов чисел от 1 до 20
выведите на экран список квадратов чисел от 1 до 20(1,4,9,16...)

Выведите на экран в три столбца список чисел от 1 до n,
их квадратов и кубов. Число n вводите с клавиатуры. Например для n=5 на экране должно быть: 1 1 ...

Выведите на экран в три столбца список чисел
Выведите на экран в три столбца список чисел от 1 до N, их квадратов и кубов. Число N вводится с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru