Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Дан массив из n элементов, найти количество отрицательных чисел Дан массив из n элементов, найти количество отрицательных чисел. https://www.cyberforum.ru/ pascalabc/ thread1592814.html	По заданной формуле (k+1)²+3)/k члена ряда с номером k составить программу вычисления суммы всех членов ряда Pascal ABC По заданной формуле ((k+1)²+3)/k члена ряда с номером k составить программу вычисления суммы всех членов ряда, не больших заданного числа E.
Pascal ABC Задача на вычисление суммы ряда {s}_{i}=1+x+\frac{{x}^{2}}{2!}+...+\frac{{x}^{i}}{i!} Выясните, на сколько 5-й и 10-й член последовательности таких сумм отличается от exp(x). https://www.cyberforum.ru/ pascalabc/ thread1592702.html	Pascal ABC Общая цифра https://www.cyberforum.ru/ pascalabc/ thread1592625.html Нужна помощь с данной задачей: найти общую цифру в массиве чисел. Допустим есть множество Как найти общую цифру в этом множестве? У меня идея: сделать это множество массив символов и сравнивать первый со вторым, второй с третьим и т.д. но проблема в том что этот массив не будет воспринимать отдельные числа, а будет считывать всё сплошняком.
Pascal ABC Объясните код(графика) Программа строит фрактал " Кривая дракона", помогите разобраться в коде, если можно добавте побольше комментариев, буду очень благодарен Код: Uses CRT, GraphABC; Const Z= 13; {Glubina Fraktala} Procedure ris(x1,y1,x2,y2,k:integer); Var xn,yn:integer; Begin If k>0 Then Begin	Pascal ABC В городе имеется n высших учебных заведений https://www.cyberforum.ru/ pascalabc/ thread1592605.html В городе имеется n высших учебных заведений, которые производят закупку компьютерной техники. Есть шесть компьютерных фирм: A,B,C,D,E,F. Ответить на следующие вопросы: 1) в каких фирмах закупка производилась каждым из вузов? 2) в каких фирмах закупка производилась хотя бы одним из вузов? 3) в каких фирмах ни один из вузов не закупал компьютеры? Тут нужно без процедур, с помощью множеств.Буду...
Pascal ABC Нахождение элемента в масcиве Условия: 1) Без процедур; 2) Массив с 10 чисел, которые пользователь вводит сам; 3) Элемент, который нужно найти, пользователь вводит сам, после ввода массива; 4) Вывести: ---если элемент есть, то его номер в массиве; ---если элемента нету, вернуться опять к вводу числа, которое нужно найти (не обязательно). ---если элемента нету, вывести, что его нету и завершить программу. https://www.cyberforum.ru/ pascalabc/ thread1592290.html	Pascal ABC С клавиатуры вводится предложение, в котором все слова разделены пробелами. Определите, сколько слов С клавиатуры вводится предложение, в котором все слова разделены пробелами. Определите, сколько слов в этом предложении начинается и заканчивается на одну и ту же букву.
Pascal ABC Реализовать процедуры сложения и умножения двух сто разрядных чисел Выручайте, совершенно ничего не понимаю в программировании,а в университете поставили данную дисциплину:( https://www.cyberforum.ru/ pascalabc/ thread1592256.html	Pascal ABC Найти наименьшее общее кратное (НОК) чисел n и m https://www.cyberforum.ru/ pascalabc/ thread1592229.html Найти наименьшее общее кратное (НОК) чисел n и m НОК=n*m/НОД(n,m) .
Рекуррентное соотношение Pascal ABC Придумайте рекуррентное соотношение, укажите начальное значение и число шагов, необходимые для вычисления следующих величин: 1-а+а2-а3+К-а2m-1	Pascal ABC Создать массив записей, содержащих сведения о рейсах из аэропорта Уфы. Создать массив записей, содержащих сведения о рейсах из аэропорта Уфы. Каждая запись содержит сведения о рейсах: номер рейса, дата вылета, аэропорт назначения; марка самолета, количество мест; аэропорт промежуточной посадки, если таковой имеется; количество проданных билетов на рейс, за сутки до вылета и за 3 часа до отлета. Количество записей произвольное. Вывести на экран сведения о... https://www.cyberforum.ru/ pascalabc/ thread1592180.html

Puporev

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

64304 / 47599 / 32743

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

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

25.11.2015, 21:47

не работает ch:=readkey; - Pascal ABC - Ответ 8395071

25.11.2015, 21:47. Показов 5804. Ответов 6

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

Ответ

С graphABC работать не будет, там нужно использовать процедуры типа OnKeyPress, OnKeyDown...

Добавлено через 2 минуты

Pascal

uses graphabc;
var x,y:integer;
    f:boolean;
procedure klavisha(key:integer);
begin
case key of
VK_Up:if y>30 then y:=y-10;
VK_Down:if y<windowheight-30 then y:=y+10;
VK_Left:if x>30 then x:=x-10;
Vk_Right:if x<windowwidth-30 then x:=x+10;
Vk_Escape:begin
          CloseWindow;
          f:=false;
          end;
end;
end;
procedure sharic;
begin
setbrushcolor(clBrown);
circle(x,y,20);
end;
 
begin
f:=true;
x:=windowwidth div 2;
y:=windowheight div 2;
lockdrawing;
repeat
clearwindow;
onkeydown:=klavisha;
sharic;
sleep(50);
redraw;
until not f;
end.

Вернуться к обсуждению:
не работает ch:=readkey; Pascal ABC

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

25.11.2015, 21:47

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

Не работает readkey и keypressed
Здравствуйте. Написал программу, используя PascalABC, столкнулся с необходимостью скомпилировать ее...

Не работает ReadKey в WinCRT
Не хочет работать - стоит черным окном, на меня пялится! На нажатия клавиш вообще не реагирует....

Не работает Console.ReadKey() для приложения Windows Forms
Не работает Console.ReadKey(); подскажите почему? или есть другой способ остановить закрытие...

ReadKey
Нужно распознать клавиши. Если 'Y' - делать ещё, если 'N' - то стоп. Так вот, я нагородил не...

	25.11.2015, 21:47

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

25.11.2015, 21:47

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

Аналог Readkey
Какой в С++ аналог паскалевского readkey?

Readkey и Readln
Доброго времени суток. Сразу вопрос: можно ли как-то связать Readln и Readkey? Пользователю нужно...

Проблема с readkey
При вводе символа через console.readkey() помимо символа появляется System.ConsolekKeyInfo ....

readkey И стрелки
Добрый день, проблема заключается вот в чем: readkey для стрелок, как я понял, не одно число. С чем...

Наверх