Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Известна зарплата каждого из 12 работников фирмы за каждый месяц первого квартала Известна зарплата каждого из 12 работников фирмы за каждый месяц первого квартала. Организовать ввод информации по этой таблице и определить общую сумму выплаченную за квартал всем работникам работники / месяц / / 1 / 2 / 3 / 1. 2. ... https://www.cyberforum.ru/ turbo-pascal/ thread203174.html записи и строки Turbo Pascal
Здраствуйте, у меня не выходит с ответом задача, не могли бы помочь, а то не выходит что то, в заранее благодарю. вот условие Багаж пассажира характеризуется количеством вещей и общим весом вещей. Дан файл f, содержащий информаацию о багаже нескольких пассажиров, информация о багаже каждого отдельного пассажира представляет собой соответствующую пару чисел. Надо: Определить, имеются ли два...
Turbo Pascal Необходимо составить список учебной группы, включающей 5 человек https://www.cyberforum.ru/ turbo-pascal/ thread203139.html
Необходимо составить список учебной группы, включающей 5 человек. Для каждого учащегося указать фамилию, дату рождения, год поступления, курс, группу, оценки каждого года обучения. Информацию о каждом учащемся оформить в программе в виде записи. Совокупность записей объединить в массив. Распечатать анкетные данные студентов, успевающих на 4 и 5. Я не знаю, как вывести оценки каждого года... 		Turbo Pascal Вывести список симметрических чисел https://www.cyberforum.ru/ turbo-pascal/ thread203131.html
Прошу помочь. Не получается составить правильно уловие в цикле и осуществить вывод. Вывести список симметричных нечётных чисел (например, 34543 или 70507) в 5 колонок.
Turbo Pascal Форма Эрмита
Требуется описать кривую, проходящую через точки P0 и P3 с заданными значениями касательных векторов в данных точках, где P0 - начальная и P3 - конечная точки криволинейного сегмента, а T0 и T3 - значения касательных векторов в соответствующих точках 		Turbo Pascal В двумерном массиве найти наиболее часто встречающееся число https://www.cyberforum.ru/ turbo-pascal/ thread203119.html
Прошу помочь в решении задачи. В массиве целых чисел (двумерном) найти наиболее часто встречающееся число. А так же min(минимум) и max(максимум). Реализовать процедурой и функцией. Благодарю откликнувшихся. Добавлено через 1 час 31 минуту Пожалуйста,помогите с решением!
Turbo Pascal Вычисление векторов https://www.cyberforum.ru/ turbo-pascal/ thread203093.html
Помогите составить программу. Составить программу для вычисления вектора А(10) .Каждый компонент Ai вектора определяется по формуле http://i051.***********/1012/15/93fedf690878.png 		вычислить выражение Turbo Pascal
const:n=...; вычислить величину: (x_1*y_n^2+x_2*y_(n-1)^2+⋯+x_n*y_1^2)/(y_1*x_n^2+y_2*x_(n-1)^2+⋯+y_n*x_1^2 )
Turbo Pascal Простые циклы с заданным и неизвестным числом повторения. Помогите в решении. 1.Составить и напечатать таблицу умножения для числа 12. Таблица умножения для числа n - это результаты умножения 1*n,2+n,...,n*n. 2.Начав тренировки, спортсмен пробежал в первый день 10 км. Каждый следующий день он увеличивал дневную норму на 10% от нормы предыдущего дня. Определить, через сколько дней спортсмен пробежит суммарный путь 100 км. https://www.cyberforum.ru/ turbo-pascal/ thread203080.html Turbo Pascal Гипотеза Ферма https://www.cyberforum.ru/ turbo-pascal/ thread203071.html
Задачу решить без помощи массивов:Ферма высказал гипотезу: "Любое целое число n является суммой всех трех треугольных чисел,т.е.: n=(x*(x-1))/2+(y*(y-1))/2+(z*(z-1))/2 проверить гипотезу ферма для всех n<100(определить булевскую функцию, определяющую является ли данное число треугольным)
Обработка матриц. Вложенные циклы. Turbo Pascal
Помогите в решении: 1. Матрица А состоит из 7 строк и 6 столбцов. Сформировать массив В, k-тый элемент которого равен, сумме положительных элементов, расположенных в k-том столбце матрице. Заранее благодарю! 		Turbo Pascal Массив Записать элементы массива x=(x1,x2,...,xn), удовлетворяющие условию xi Э подряд в массив y=(y1,y2,...,yn). Определить минимальный элемент массива. https://www.cyberforum.ru/ turbo-pascal/ thread203068.html
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
04.12.2010, 15:54 0

Графика в Турбо Паскаль не работает - Turbo Pascal - Ответ 1167907

04.12.2010, 15:54. Показов 3420. Ответов 10
Метки (Все метки)
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

uses graph,wincrt;
var gd,gm:integer;
    c:char;
    a,b,z:word;
begin
gd:=detect;
a:=100;
b:=100;
initgraph(gd,gm,'');
z:=0;
putpixel(a,b,white);
setcolor(15);
repeat
if keypressed then
 begin
  c:=readkey;
  case c of
  #119:begin
      line(a,b,a,b-100);
      b:=b-100
      end;
  #115:begin
       line(a,b,a,b+100);
       b:=b+100;
      end;
  #97:begin
      line(a,b,a-100,b);
      a:=a-100;
      end;
  #100:begin
       line(a,b,a+100,b);
       a:=a+100;
       end;
  else z:=1;
  end;
 end;
until z=1;
end.


Вернуться к обсуждению:
Графика в Турбо Паскаль не работает Turbo Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 04.12.2010, 15:54
Готовые ответы и решения:

Графика в Турбо Паскаль
ситуация следующая. написала програму в которой задаешь координаты точки и в зависимости от ее...

Графика в Турбо Паскаль
(b+\sqrt{b-4ac}/2a)-a*a*a*c - помогите как это записать в турбо паскале напишите кто нить полную...

Графика в Турбо Паскаль
Не могли бы вы посоветовать книгу или дать ссылку на форуме где подробно описана работа с графикой...

Графика в Турбо Паскаль
Читаю форум и вижу, что много кому требуется помощь в освоении графики в Паскаль. Предлагаю постить...

10
04.12.2010, 15:54
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 04.12.2010, 15:54
Помогаю со студенческими работами здесь

Графика в турбо Паскаль
Написать программу которая выводит на экран графики динамики изменения максимального, минимального...

построение графика на Турбо Паскаль
Помогите пожалуйста Y=(x*(3-x))/(1-x)*sqr(1-x)

Графика в Турбо Паскаль. Нарисовать телефон
Кто может нарисовать такое??

Построение графика функций в турбо паскаль
написать программу для построения графика функции f(x):=sin(x)+sin(x)/cos(x)

Построение графика функции в турбо-Паскаль
Как построить график данной функции в паскаль?(2*(1+0.7*(sin(10^7*t))*(sin(10^8*t))

Графика в Турбо Паскаль. Нарисовать мобильный телефон
Помогите написать графику.Нужно нарисовать мобильный телефон

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru