Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Разделить экран на последовательность вложенных разноцветных прямоугольников Написать программу, используя модуль CRT: Пирамида сверху. Напишите программу, которая разделяет экран на последовательность вложенных разноцветных прямоугольников. Озвучите конец выполнения программы. https://www.cyberforum.ru/ turbo-pascal/ thread781322.html	Выведите на экран 16 случайных чисел 16-ю разными цветами на черный экран Turbo Pascal Выведите на экран 16 случайных чисел 16-ю разными цветами на черный экран.в Turbo Pascal 7
Turbo Pascal Двумерный массив. Среднее арифметическое отрицательных элементов. PASCAL двумерный массив. дана прямоугольная вещественная матрица Fnxm. подсчитать среднее арифметическое отрицательных элементов. https://www.cyberforum.ru/ turbo-pascal/ thread781304.html	Turbo Pascal Определить, есть ли в классе человек, который побывал в гостях у всех https://www.cyberforum.ru/ turbo-pascal/ thread781299.html Имеется список класса (все имена различные). Определить, есть ли в классе человек, который побывал в гостях у всех. Для каждого ученика составить множество побывавших у него в гостях друзей, сам ученик в это множество не входит. Образец. Три цветовода выращивают различные сорта роз. Определить те сорта, которые есть у каждого цветовода; сорта, которые есть хотя бы у одного цветовода; и сорта,...
Двумерный массив заполнить по образцу Turbo Pascal Нужно заполнить массив по образцу: 1 2 3 4 5 1 2 3 5 5 1 2 5 5 5 1 5 5 5 5 5 5 5 5 5 Помогите написать закон для, вроде просто но не доходит никак:(	Turbo Pascal Создать двумерный массив, содержащий элементы над побочной диагональю Создать двумерный массив, содержащий элементы над побочной диагональю........ Плиз помогите Заранее спасибо! Добавлено через 4 часа 46 минут помоогите пожалуйста!!,, https://www.cyberforum.ru/ turbo-pascal/ thread781260.html
Turbo Pascal Записать в файл g количество гласных букв в каждой стоке файла f дан файл f. Написать в файл g, кол-во гласных букв в каждой стоке файла f. https://www.cyberforum.ru/ turbo-pascal/ thread781256.html	Turbo Pascal Типизированные файлы Создать два файла с информацией о продовольственных и промышленных товарах со следующими реквизитами: наименование товара, тип товара, количество, цена за единицу. Удалить нужное количество записей из указанного места файла.
Turbo Pascal Алгоритм провекри ОЗУ Добрый день мне дали задание: Разработать алгоритм проверки ОЗУ К537РУ1 с использованием функционального теста№6 "четность (нечетность) адреса". как делать не представляю.. нужно сделать только алгоритм со связями в методе есть описание но я все равно ничего не понял.. может кто поможет ? (( в методе на стр. 35 моя схема с диаграммами. а на стр. 16 тест который нужно выполнить для нее. тест№6.... https://www.cyberforum.ru/ turbo-pascal/ thread781120.html	Turbo Pascal В массиве заданы цены продажи доллара в банках города N/ Определить по скольким различным ценам продается здесь доллар. ьРаспечатать эти цены https://www.cyberforum.ru/ turbo-pascal/ thread781089.html В массиве заданы цены продажи доллара в банках города N/ Определить по скольким различным ценам продается здесь доллар. ьРаспечатать эти цены. помогите))
Turbo Pascal Вводится последовательность ненулевых чисел. 0 конец определить является ли последовательность возрастающей	Turbo Pascal Вводится последовательность ненулевых чисел. 0 конец последовательности. определить сколько раз последовательность меняет знак Вводится последовательность ненулевых чисел. 0 конец последовательности. определить сколько раз последовательность меняет знак. https://www.cyberforum.ru/ turbo-pascal/ thread781086.html

Puporev

Почетный модератор

64299 / 47594 / 32743

Регистрация: 18.05.2008

Сообщений: 115,181

07.02.2013, 18:09

Напишите программу перемещающую по экрану ваше имя клавишами управления движением курсора - Turbo Pascal - Ответ 4105525

07.02.2013, 18:09. Показов 1754. Ответов 2

Метки (Все метки)

Сообщение было отмечено Памирыч как решение

Решение

Pascal

uses crt;
const s='Андрей';
var c1,c:char;
    n,x,y:integer;
begin
clrscr;
n:=length(s);
x:=(80-n)div 2;
y:=13;
gotoXY(x,y);
write(s);
repeat
if keypressed then
 begin
  c1:=readkey;
  if c1=#0 then c:=readkey;
  case c of
  #75:if x>0 then
       begin
        clrscr;
        x:=x-1;
        gotoXY(x,y);
        write(s);
        sound(200);
        delay(100);
        nosound;
       end;
  #77:if x<80-n then
       begin
        clrscr;
        x:=x+1;
        gotoXY(x,y);
        write(s);
        sound(300);
        delay(100);
        nosound;
       end;
  #72:if y>1 then
       begin
        clrscr;
        y:=y-1;
        gotoXY(x,y);
        write(s);
        sound(400);
        delay(100);
        nosound;
       end;
  #80:if y<25 then
       begin
        clrscr;
        y:=y+1;
        gotoXY(x,y);
        write(s);
        sound(500);
        delay(100);
        nosound;
       end;
  end;
 end;
until c=#82;
end.

Вернуться к обсуждению:
Напишите программу перемещающую по экрану ваше имя клавишами управления движением курсора Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

07.02.2013, 18:09

Готовые ответы и решения:

Напишите программу, перемещающую по экрану ваше имя клавишами управления движением курсора
Напишите программу, перемещающую по экрану ваше имя клавишами управления движением курсора. Каждый...

Программа перемещающая по экрану ваше имя клавишами управления движением курсора
Напишите программу перемещающую по экрану ваше имя клавишами управления движением курсора. Каждый...

Программа управления движением рисунка клавишами со стрелками
Помогите написать программу, реализующую движение рисунка при нажатии на клавиши со стрелками..буду...

Программа: клавишами управления курсором двигать фигуру по экрану
Задать цвет фона розовый, цвет фигуры - серый, фигура в виде буквы Z. Клавишами управления курсором...

	07.02.2013, 18:09

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

07.02.2013, 18:09

Помогаю со студенческими работами здесь

Построить восьмиугольник. Клавишами управления курсором предусмотреть возможность перемещения по экрану
Построить восьмиугольник. Клавишами управления курсором предусмотреть возможность перемещения по...

Напишите программу, которая по введённым с клавиатуры данным выводила бы ваше имя на экране монитора
Напишите программу, которая по введённым с клавиатуры данным выводила бы ваше имя на экране...

Напишите программу, которая читает строку, и если это ваше имя то печатает на экране "привет"
Фамильярность. Напишите программу, которая читает строку, и если это ваше имя то печатает на экране...

Круг перемещается по экрану с помощью клавиш управления курсора
Круг передвигается по экрану с помощью ←,· *, ↓, →. При нажатии клавиши «пробел» меняется стиль...

Управление движением персонажа клавишами
Доброго времени суток уважаемые форумчане, что то у меня не выходит малахитовый цветок, бьюсь уже...

Напишите программу, позволяющую управлять движущимся по экрану графическим объектом
помогите решить задачу: Полет. Напишите программу, позволяющую управлять движущимся по экрану...

Наверх