Составить программу маленькой вращающейся стрелки. в паскале. используя массивы состоящий из 4-х символов |,/

Показать ответ

Ответ:

назар163

08.07.2020 06:55

uses
CRT;

var
a: array [1..4] of char;
i: integer;

begin
i := 1;
a[1] := '|'; a[2] := '/'; a[3] := '-'; a[4] := '\';
while (true) do
begin
ClrScr();
Write(a[i]);
if (i = 4) then
i := 1
else
inc(i);
Sleep(250);
end;
end.

0,0(0 оценок)

Популярные вопросы: Информатика

dihochi

03.03.2023 19:58

Составить программу вычисления площади круга и длину окружности величину радиуса вводить с клавиутуры ,выход из программы при нулевом радиусе...

killlergames

03.03.2023 19:58

Составить программу нахождения площади и периметра равнобедр. треугольника,если известны все его стороны. s=1/2 a*h p=a2+b...

dariabelka

03.03.2023 19:58

Водной из кодировок unicode каждый символ кодируется 16 битами. определите размер следующего предложения в данной кодировке: я к вам пишу - чего же боле? что я могу еще сказать?...

zabirovrobert

03.03.2023 19:58

Вучебнике 260 страниц. на каждой странице в среднем по 40 строк. в каждой строке - по 64 символа. определите информационный объем данного учебника (в килобайтах)....

hatasa75

13.12.2022 15:26

Дана последовательность целых чисел а1 . найти два минимальных элемента последовательности количество чисел вводится с клавиатуры...

Lizavitafjfjsj

13.12.2022 15:26

Дано натуральное число н подсчитайте сколько раз в нем встречается цифра а...

невідомий34

13.12.2022 15:26

Дан массив а(10), заполненный датчиком случайных чисел. подсчитать и вывести на экран сумму положительных элементов массива....

Uprava

13.12.2022 15:26

Дана последовательность из м чисел. подсчитать, сколько в ней отрицательных, положительных и нулевых элементов на basic...

Аня1ove

13.12.2022 15:26

Вводить с клавиатуры 10 целых чисел, выдать на экран количество положительных чисел, количество отрицательных , количество нулевых...

sasha2000val

13.12.2022 15:26

Для какого из значений числа x ложно высказывание не(x 6) или (x 5) 1)7 2)6 3)5 4)4...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку