|
|
| Другие темы раздела | |
| Turbo Pascal Составть программу и блок-схему к ней Вычислить значение комбинированной функции. Смотреть вложение https://www.cyberforum.ru/ turbo-pascal/ thread300768.html |
графика Turbo Pascal изобразить крутящееся колесо с 4 спицами.колесо не двигается,вот как изобразить движение спиц? |
|
Turbo Pascal Составить блок-схему по задаче.
https://www.cyberforum.ru/ turbo-pascal/ thread300751.html Известны размеры прямоугольного отверстия. Определить, можно ли просунуть в него шар заданного радиуса. Program pop; var b,l,h,r:real; {Вывод переменных-вещественные} begin {Начало} writeln('vvedite dlinu'); {Вывод на экран сообщения} readln(l); {Вывод с клавиатуры} writeln('vvedite shirinu'); {Вывод на экран сообщения} readln(h); {Вывод с клавиатуры} writeln('vvedite... |
Turbo Pascal Найти площадь фигуры, ограниченной эллипсом
https://www.cyberforum.ru/ turbo-pascal/ thread300743.html Такое дело. Попросили помочь, а я в Паскале не силен. нужно найти площадь фигуры ограниченной эллипсом. х^2/4+y^2/9=1 Сможете помочь? |
|
Графический режим. Размер и стиль текста Turbo Pascal Написал программу на TurboPascal. В самой среде выводит шрифт нормально, а если запускать на другом компе исполняемый файл *.exe, то выводит нормально только английские буквы и цифры. Если перед запуском программы запустить keyrus.com, тогда русские символы выводятся нормально, но размер и стиль почему-то не меняются вообще. Почему возникает такая проблема? P.S. использую графический драйвер... |
Turbo Pascal Движение змейки - разобрать код
https://www.cyberforum.ru/ turbo-pascal/ thread300731.html Доброе время суток. Есть задание написать змейку, которая ползает по экрану. Искал подобные темы, нашел кучу игр "Змейка", где больше половины проги мне не нужно. А разобраться в коде, вычленив нужное, не получилось. Помогите пожалуйста с затиранием змейки за собой, никак не могу разобраться. program worm; uses crt,graph; type int=integer; snake=object x,y,xs,ys:int;... |
|
Turbo Pascal Нужна формула для решения!!!
https://www.cyberforum.ru/ turbo-pascal/ thread300719.html Условие: Вычислить вес каждой из N тонкостенных сфер, изготовленных из материала с удельным весом G, у которых толщина оболочки равна Н, а значение внутреннего радиуса сферы образует последовательность при 6,9...3 N Это лабораторная по Turbo Pascal,ю. В паскале прописать я и сам смогу (если и в паскале напишите буду признателен)! У меня проблема с геометрией, не знаю как и по какой... |
Turbo Pascal Дописи строк в текстовых файлах Можете отредактировать программу, чтоб она после запуска сразу закрывалась, и писала строки после полследней, а не сразу за последним знаком.. program dgsd; var f:text; begin assign(f,'C:\lol.ini'); append(f); if eof then writeln; writeln(f,'cd C:'); |
|
Turbo Pascal Прямоугольные таблицы :/
https://www.cyberforum.ru/ turbo-pascal/ thread300687.html Дан целочисленный массив А. Требуется преобразовать матрицу: поэлементно вычесть последнюю строку из всех строк, кроме последней. Напишите прогу:) Добавлено через 47 минут Напишитеее кто нибудь... Добавлено через 2 часа 19 минут Напишите прогу Добавлено через 11 часов 49 минут |
Turbo Pascal Преобразуйте программу в процедур.
https://www.cyberforum.ru/ turbo-pascal/ thread300675.html program matriza; uses crt; var f1,f3,f4: file of integer; i,n: byte; c: integer; x,z: array of integer; y,p: array of integer; y1,p1,k: integer; begin clrscr; |
|
Вычислить произведение ряда Turbo Pascal x П (а*а+1)/(2к+5)=р a=1 х-запросить у пользователя Написать программу в Turbo Pascal по заданной формуле |
Turbo Pascal Вычислить сумму натуральных логарифмов положительных элементов с нечетными номерами Написать программу в Turbo Pascal по заданному условию. Вычислить сумму натуральных логарифмов положительных элементов с нечетными номерами , подсчитать их количество https://www.cyberforum.ru/ turbo-pascal/ thread300652.html |
|
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
|
|
| 21.05.2011, 11:42 | 0 |
Построить и закрасить треугольники - Turbo Pascal - Ответ 167422921.05.2011, 11:42. Показов 1867. Ответов 3
Метки (Все метки)
Ответ
Схема нарисована редактором, если что, перерисуйте...
Вернуться к обсуждению: Построить и закрасить треугольники Turbo Pascal
0
|
|
| 21.05.2011, 11:42 | |
|
Готовые ответы и решения:
3
Построить и закрасить круги
|
| 21.05.2011, 11:42 | |
| 21.05.2011, 11:42 | |
|
Помогаю со студенческими работами здесь
0
Построить и закрасить квадрат со стороной 30 пикселов, центр которого совмещен с центром экрана |