|
|
| Другие темы раздела | ||||||||||||||||||
|
Turbo Pascal Построение диаграммы
https://www.cyberforum.ru/ turbo-pascal/ thread1750659.html добрый день. имеется задача, в ней я строю диаграмму колонками, а надо переделать ее на круговую. каким образом можно это сделать быстро? код самой диаграммы. в ней три колонки, строится она от попаданий точки в область. te4:=160; te5:=180; i1:=1; for i:=0 to 3 do begin setfillstyle(3,i1); bar(x0+te4,y0-50,x0+te5,y0-50-10*koldiag); |
Найти минимальный из элементов, содержащихся в интервале (a, b) Turbo Pascal Здравствуйте! Есть задача - Даны числа a, b (0 < a < b) и набор из десяти элементов. Найти минимальный из элементов, содержащихся в интервале (a, b). Если требуемые элементы отсутствуют, то вывести –1 Есть сама программа. Но в эту программу необходимо вписать подпрограмму...Не могу сообразить ,прошу помочь. Спасибо! program zd; uses crt; var a,b,c,i,mn:integer; | |||||||||||||||||
|
Turbo Pascal Построение графиков функций
https://www.cyberforum.ru/ turbo-pascal/ thread1750257.html Разработать программу с использованием процедур и функций модулей CRT,DOS и GRAPH. Задание 19 |
Turbo Pascal Сгенерируйте все перестановки чисел 1, …, n Перестановки Ограничение времени 1 секунда Ограничение памяти 64Mb Ввод стандартный ввод или input.txt Вывод стандартный вывод или output.txt Сгенерируйте все перестановки чисел 1,…,n и выведите их в таком порядке, что любые две соседние перестановки отличаются только порядком двух соседних элементов (к примеру, за 1, 2, 3, 4 может следовать 1, 2, 4, 3, но не 1, 4, 3, 2). Формат ввода ... https://www.cyberforum.ru/ turbo-pascal/ thread1750124.html | |||||||||||||||||
|
Turbo Pascal Выведите натуральное число s — максимальную возможную площадь прямоугольника Составляем прямоугольник Ограничение времени 1 секунда Ограничение памяти 64Mb Ввод стандартный ввод или input.txt Вывод стандартный вывод или output.txt У Васи есть набор из 4 палочек, они имеют длины a, b, c, d. Вася хочет составить из них прямоугольник, однако он обнаружил, что это возможно сделать не для всех четверок a,b,c,d. Тогда он решил разрезать некоторые палочки на две части,... |
Turbo Pascal Создать массив записей, каждый элемент которого содержит фамилию студента Создать массив записей, каждый элемент которого содержит фамилию студента, оценки за четыре экзамена последней сессии, год окончания школы, сведения об изучаемом иностранном языке (английский, немецкий или испанский). Определить студентов, которые окончили школу в прошлом году и имеют оценку по иностранному языку не ниже 5. На дисплей вывести фамилии студентов и их средние баллы за сессию, ... https://www.cyberforum.ru/ turbo-pascal/ thread1750106.html | |||||||||||||||||
|
Turbo Pascal Вывести студенческую ведомость на печать
https://www.cyberforum.ru/ turbo-pascal/ thread1750095.html Задание: Дано 5 студентов, их оценки за 5 экзаменов, нужно сделать так чтобы программапоказала в виде массива всех этих чуваков, их оценки за каждый экзамен, а потом кто из студентов имеет 3 и 2, и кто имеет 5, да и нужно использовать записи в Паскале. Я вот решил, вроде правильно но не работает. Program Pr_1; uses crt; type stud=record FIO:string; ex1,ex2,ex3,ex4,ex5:byte; ... |
Turbo Pascal Угадай число Угадай число Ограничение времени 2 секунды Ограничение памяти 512Mb Ввод стандартный ввод или input.txt Вывод стандартный вывод или output.txt Это интерактивная задача. Некто загадал целое число x (1 ≤ x ≤ n). Ваша программа должна угадать это число во взаимодействии с тестирующей системой. Всего можно делать два различных типа действий: ? y (1 ≤ y ≤ n) — попросить сравнить... | |||||||||||||||||
| Turbo Pascal Вычислить количества 0,1 и 2 в выходной последовательности Последовательность из N целых чисел.Сформировать новую последовательность, каждый из элементов которой равен 1,если соответствующее число просто,2 если число совершенное , 0 в остальных случаях.Вычислить количества 0,1 и 2 в выходной последовательности.Процедурой оформить проверку является ли число простым , совершенным.Помогите пожалуйста , не получается сделать ( Заранее спасибо. https://www.cyberforum.ru/ turbo-pascal/ thread1750006.html | Turbo Pascal Найти наибольшую по значению четную цифру последовательности Вводится последовательность из N целых чисел.Найти наибольшую по значению четную цифру (функцией оформить определение суммы четных цифр числа ). Помогите пожалуйста , заранее спасибо https://www.cyberforum.ru/ turbo-pascal/ thread1750002.html | |||||||||||||||||
|
Turbo Pascal С помощью датчика случайных чисел заполнить массив целыми значениями Массив предназначен для хранения значений ростов 12 человек. С помощью датчика случайных чисел заполнить массив целыми значениями, лежащими в диапазоне от 163 до 190 включительно. не знаю как записать рандом в ИнтАле |
Turbo Pascal Точки пересечения графиков нулевой и третий отобразить мигающим цветом
Всем привет , нужна помощь в корректировке программы , Смысл такой нужно (Точки пересечения графиков нулевой и третий отобразить мигающим цветом лимонным) Программа прилагается =)
uses Graph, Strings;
var
pm: array of byte;
procedure Pix(xx,yy: integer;c:byte);
var
nb,np,mp:byte;
Наверх
| |||||||||||||||||