|
|
| Другие темы раздела | |
| Turbo Pascal Восстановление программы Помогите пожалуйста, есть основной код программы,но нет первой части,как это возможно восстановить? begin InitGraph(dr, md, ''); Setcolor(10); line(0,200,600,200); outtextXY(250,10,'1'); outtextXY(350,10,'2'); dt:=0.01; A:=100.0; d:=15.0;xm:=50.0; N:=200; N2:=round(0.5*N); line(3*N2+1,0,3*N2+1,400); for i:=1 to N2 do begin { начальные условия } https://www.cyberforum.ru/ turbo-pascal/ thread2455286.html |
Turbo Pascal Модуль с 7 сегментным индикаторм на ТМ1637 Здравствуйте всем! Пытаемся подключить к Атмеге 16 китайский модуль с 7 сегментным индикатором на ТМ1637. У него 4 пина. +/- питания, CLK, DIO. Я новичок и пользуюсь только Паскалем. Помогите с примером кода для такого индикатора на ТМ1637 на Паскале. Спасибо заранее. |
|
Turbo Pascal Метод Зейделя
https://www.cyberforum.ru/ turbo-pascal/ thread2454865.html Помогите пожалуйста не могу понять где ошибка , получаются не такие значения после запятой uses crt; const max=3; var b,x:array of extended; a:array of extended; i,j,n,E: integer; s,r,v:extended; begin |
Turbo Pascal Составить программу наподобие Paint
https://www.cyberforum.ru/ turbo-pascal/ thread2454847.html Составить программу наподобие Pain,выполняющая все основные функции программы оригинала. |
|
Turbo Pascal Должны бегать звёздочки Помогите пожалуйста. Написать программу при выполнении которой звёздочки бегут сразу по верхней и нижней строкам экрана. Пусть каждая следующая звёздочка выводится случайным цветом.(Turbopascal)._) |
Turbo Pascal Нарисуйте, пожалуйста, блок-схему к данной процедуре Вот процедура: procedure poln; var gm,gd,c:integer; w:string; begin gd:=detect; initgraph(gd,gm,' '); Randomize; For i:=1 to 1000 do PutPixel(Random(GetMaxX),Random(GetMaxY),White); https://www.cyberforum.ru/ turbo-pascal/ thread2454330.html |
| Turbo Pascal Написать программу, которая по введенному значению аргумента, вычисляет знаение функции, заданной в виде графика Написать программу, которая по введенному значению аргумента, вычисляет знаение функции, заданной в виде графика. Параметр R вводится с клавиатуры. https://www.cyberforum.ru/ turbo-pascal/ thread2453980.html |
Turbo Pascal Методы Эйлера и Рунге-Кутта Методом Эйлера и методом Рунге-Кутта решить дифференциальное уравнение вида y'=f(x,y) на интервале с заданным начальным условием y(a). Определить метод, решающий поставленную задачу за минимальное число повторений. Построить график полученной функции на заданном интервале. Решить поставленную задачу с использованием функций и процедур языка Паскаль. Само уравнение y'=f(x,y)=sqrt(x)+y^2; интервал |
| Turbo Pascal Добавить в код обработку комбинаций клавиш Здравствуйте уважаемые форумчане, помогите пожалуйста добавить обработку комбинаций клавиш. По нажатию Alt+3 менять местоположение заголовка. По нажатию Ctrl+D – перемещение объекта выполнять поочередно по всем горизонтальным линиям рамки (верхней, средней, нижней). Повторное нажатие возвращает прежний режим. https://www.cyberforum.ru/ turbo-pascal/ thread2453930.html |
Turbo Pascal Написать алгоритм программы на языке Pascal
https://www.cyberforum.ru/ turbo-pascal/ thread2453845.html Помогите пожалуйста написать алгоритм программы на языке Pascal, которая считывает число и вычитает из него единицу до нуля с помощью цикла, при этом выводит число каждую итерацию. |
|
Turbo Pascal Создать список радиоприемников. Программа должна выполнять следующие действия: 1. Введение 2. Просмотр 3. Редактирование (изменение) 4. Удаление 5. Поиск по ключу 6. Добавление Радиоприемник: название, волновой диапазон (МГц), количество диапазонов. |
Turbo Pascal Определите по данным музейного каталога, есть ли в музее хотя бы одна картина Левитана или Шишкина. Определите по данным музейного каталога, есть ли в музее хотя бы одна картина Левитана или Шишкина. Если есть, выдайте ее название, в противном случае выдайте соответствующий текст. Кто-нибудь сможет помочь, очень прошу. Заранее спасибо https://www.cyberforum.ru/ turbo-pascal/ thread2453744.html |
|
0 / 0 / 0
Регистрация: 29.05.2018
Сообщений: 2
|
|
| 0 | |
Разработать в среде Turbo Pascal программу удаления заданных элементов массива - Turbo Pascal - Ответ 1358316119.05.2019, 19:04. Показов 1169. Ответов 2
Метки (Все метки)
Дан одномерный массив ненулевых целых чисел размера N. 1. Определить количество участков, на которых его элементы возрастают, найти сумму элементов самого длинного участка. 2. Поменять местами первую и вторую половины массива. 3. Удалить из массива все элементы с четными номерами. Условный оператор не использовать. Для отладки программы исходный массив сформировать с помощью генератора случайных чисел. Вернуться к обсуждению: Разработать в среде Turbo Pascal программу удаления заданных элементов массива Turbo Pascal
0
|
|
| 19.05.2019, 19:04 | |
|
Готовые ответы и решения:
2
Разработка в среде Turbo Pascal программы формирования и обработки элементов одномерного массива Разработка в среде Turbo Pascal программы создания нового одномерного массива Разработать программу на языке Object Pascal в среде Delphi |
| 19.05.2019, 19:04 | |
| 19.05.2019, 19:04 | |
|
Помогаю со студенческими работами здесь
0
Разработать учебную программу для проверки знаний студентами некоторых символов языка Turbo Pascal
Определить произведение ненулевых элементов всех нечетных строк массива. Turbo Pascal Запустить программу в среде turbo delphi - воссоздать программу |