Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Определить средний результат спортсмена Задача с массивами в Паскаль.Заранее спасибо ( Во время соревнований по прыжках в высоту спортсмен показал следующие результаты: 160, 161, 162, 155, 157, 165. Определить средний результат спортсмена. https://www.cyberforum.ru/ turbo-pascal/ thread2227282.html	Turbo Pascal Массив: Найти и вывести на экран количество чисел больше 2... Дан массив А(7). Найти и вывести на экран количество чисел больше 2 . Просьба помочь с составлением программы.Заранее спасибо.
Turbo Pascal Вывести на экран все возможные способы расстановки белых фигур (два коня, два слона, две ладьи, ферзь и король) https://www.cyberforum.ru/ turbo-pascal/ thread2227249.html Помогите составить код для turbo pascal. Суть задачи: вывести на экран все возможные способы расстановки белых фигур (два коня, два слона, две ладьи, ферзь и король) на первой линии шахматной доски. Нужно написать так чтобы не было повторений комбинаций. Если считать через факториал должно получиться Р8(2,2,2)=8!:2!2!2!=2345678/222=5040 способов. Нужно использовать рекурсию.	Turbo Pascal Дан массив X(15). Найти среднее арифметическое положительных и отрицательных элементов массива R1 и R2 Дан массив X(15). Найти среднее арифметическое положительных и отрицательных элементов массива R1 и R2. Определить, какой из найденных элементов больше по абсолютной величине. Составить блок-схему https://www.cyberforum.ru/ turbo-pascal/ thread2226998.html
Вычислить и вывести на экран сумму l членов ряда, где x и l – любые целые числа, введенные с клавиатуры: Turbo Pascal Вычислить и вывести на экран сумму l членов ряда, где x и l – любые целые числа, введенные с клавиатуры: \sum_{i=1}^{l}\frac{{x}^{i}+3i}{(3i+1)!} Составить блок-схему	Turbo Pascal СУБД https://www.cyberforum.ru/ turbo-pascal/ thread2226759.html Короче говоря - что вроде СУБД на паскале, используя текстовый файл. Работало через-раз, нынче отказывается находить файл, а если и находит путь к файлу то выдаёт ошибку при открытии (Неверный числовой формат). В ступоре.
Turbo Pascal На заданому інтервалі знайти всі число Фібоначчі, які є простими числами На заданому інтервалі знайти всі число Фібоначчі, які є простими числами. https://www.cyberforum.ru/ turbo-pascal/ thread2226440.html	Найти сумму цифр трехзначного числа Turbo Pascal Дано тризначне число. Знайти суму його цифр.
Turbo Pascal Вычислить и вывести на экран сумму p членов ряда, где x и p – любые целые числа, введенные с клавиатуры: https://www.cyberforum.ru/ turbo-pascal/ thread2226291.html Вычислить и вывести на экран сумму p членов ряда, где x и p – любые целые числа, введенные с клавиатуры, и составить блок-схему	Turbo Pascal Найти самое короткое слово Дана последовательность слов.Найти то слово, которое короче осталтных(считать, что все слова различны). https://www.cyberforum.ru/ turbo-pascal/ thread2226248.html
Turbo Pascal Работа с файлами даны символьные файлы f1 f2. переписать в файл f посимвольно из файлов f1 и f2. (один символ из f1, другой из f2)	Turbo Pascal Составить программу, которая посчитает количество элементов https://www.cyberforum.ru/ turbo-pascal/ thread2226065.html дано одномерный массив С из n целых чисел. составить программу которая посчитает количество элементов меньших 3 и сумму отрицательных элементов массива больших -5

bormant

Модератор

7771 / 4600 / 2824

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

Сообщений: 13,080

Записей в блоге: 1

14.04.2018, 21:12

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

14.04.2018, 21:12. Показов 1886. Ответов 2

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

Ответ

Я б несколько подсократил:
добавить:

Pascal

procedure DoMove(dx, dy: Integer);
begin
  Sound(500+dx*100+dy*50);
  GotoXY(x,y); Write(s1);
  Inc(x,dx); Inc(y,dy);
  GotoXY(x,y); Write(s);
  GotoXY(x,y);
  Delay(100); NoSound;
end;

строки 21-71 заменить на:

Pascal

  case c of
  #75: if x>1            then DoMove(-1, 0);
  #77: if x<80-Length(s) then DoMove( 1, 0);
  #72: if y>2            then DoMove( 0,-1);
  #80: if y<24           then DoMove( 0, 1);
  end;

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

14.04.2018, 21:12

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

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

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

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

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

	14.04.2018, 21:12

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

14.04.2018, 21:12

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

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

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

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

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

Наверх