|
|
| Другие темы раздела | |
| Pascal Вычислить значение функции с подпрограммой Помогите, пожалуйста, решить! Вычислить значение функции R(a,\,b,\,c)=\frac{f(a)-f(b)}{f(c)} где https://www.cyberforum.ru/ pascal/ thread2214824.html |
Найти площадь, периметр,высоту,радиусы, длины и площади вписанной и описанной окружностей треугольников Pascal Можете проверить задачу, пожалуйста, в чем-то здесь прокол. Прога запускается, но при некоторых значениях выводит площадь и периметр отрицательными:wall: PROGRAM Triangles; VAR a,b,c,P,h,s,r,m,e,k,o,w,x:REAL; BEGIN WriteLn(a,b,c); Readln(a,b,c); IF (a=b) and (b=c) then BEGIN |
| Pascal Масштабируемость Добрый день,необходим задать определенную ширину и высоту,и чтобы изображение,напирмер,при 20 x 20 имело 20 строчек в ширину и 20 в высоту и увеличивалось,либо при 5 x 5 умещалось не полностью program fig; const T = ' '; P = '0000000'; C = '0 0'; Var https://www.cyberforum.ru/ pascal/ thread2214706.html |
Pascal Переписать текст в новый файл со строками длиной 60 символов, добавив до конца каждой строки символ «!» (где ошибка?)
https://www.cyberforum.ru/ pascal/ thread2214605.html Дан текстовый файл, разбитый на строки длиной не более 60 символов. Переписать текст в новый файл со строками длиной 60 символов, добавив до конца каждой строки символ «!» PROGRAM K2L3; VAR in_file, out_file:text; i,j:Integer; ss:Char; BEGIN Assign(in_file,'K2L3.txt'); Assign(out_file,'K2L3_.txt'); Reset(in_file); Rewrite(out_file); |
|
Pascal Написать условие, такое что X не должен равняться всем целым числам от 2 до 32, если х вводится ,как вещественное Задается любое число Х, которое не должно равняться всем целым числам от 2 до 32, если х вводится ,как вещественное.(не целое). Не могу понять, как написать такое условие. |
Pascal Вычислить указанное выражение при указанных переменных
https://www.cyberforum.ru/ pascal/ thread2214073.html Всем привет! Нам на завтра нужно решить вот такую задачу, и я совсем не представляю как её сделать) Вот сама задача: Вычислить указанное выражение при указанных переменных. Неизвестные данные ввести с клавиатуры по своему выбору. В программе предусмотреть выведение исходных данных и результатов вычисления. |
|
Pascal Как вывести все четырёхзначные числа у которых все цифры разные
https://www.cyberforum.ru/ pascal/ thread2214063.html программа которая выводит все четырех значение числа у которых все цифры разные я не понимаю как,это надо как-то делением.нашел четырехзначные числа,а потом надо делить и сравнивать числа,но я понятия не имею как записывать это ------------------------------------------------ program gg; const a:array of integer=(60,4324,5457,9810,11,3409,1081); var b,i:integer; begin writeln('исходный... |
Определить, является ли четырехзначное число палиндромом Pascal var a:integer; begin read (a); //3993 if a div 1000=a mod 10 and (a mod 1000) div 100=(a mod 100) div 10 then writeln (a); end. Помогите понять в чем ошибка, нужно понять является ли четырехзначное число палндромом (3883) |
|
Pascal Если введённое число не соответствует указанному условию, программа просит ввести его повторно
https://www.cyberforum.ru/ pascal/ thread2213767.html 1. Программа просит пользователя ввести с клавиатуры целое число от 2 до 20. Если введённое число не соответствует указанному условию, программа просит ввести его повторно, пока не будет введено нужное число. Затем программа выводит на экран таблицу умножения чисел от единицы до введённого пользователем числа. Слева и сверху от таблицы отображаются перемножаемые числа, отделённые от остальной... |
Pascal Дан одномерный массив Дан одномерный массив а) Найти количество элементов меньших последнего элементов. в) Найти количество элементов больших среднего арифметического массива. Задача 9 класса. Прошу помочь. https://www.cyberforum.ru/ pascal/ thread2213504.html |
|
Составить блок-схему по коду Pascal const n = 25; var w: array of integer; i, min, max: integer; begin writeln('Введите ', n, ' элементов массива: '); for i := 1 to n do |
Pascal Вставить перед каждым цифровым символом строки сочетание 'no' Дана(какая-то)строка.Вставить перед каждым её символов цифры сочетание 'no' Нужна полностью программа https://www.cyberforum.ru/ pascal/ thread2213348.html |
|
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
|
|
| 22.03.2018, 19:13 | 0 |
Определить радиус и центр окружности, проходящей по крайней мере через три точки множества - Pascal - Ответ 1223901722.03.2018, 19:13. Показов 2560. Ответов 6
Метки (Все метки)
Ответ 
Сообщение от taoariya
Выбрать три различные точки первого множества так, чтобы круг, ограниченный окружностью, проходящей через три точки Здесь нужно выбрать окружность содержащую максимальное количество точек. А 4 точки что в файле, это очень мало. Вернуться к обсуждению: Определить радиус и центр окружности, проходящей по крайней мере через три точки множества Pascal
1
|
|
| 22.03.2018, 19:13 | |
|
Готовые ответы и решения:
6
Определить радиус и центр окружности минимального радиуса, проходящей хотя бы через три различные точки заданн
Написать программу, определяющую радиус и центр окружности, проходящей по крайней мере через три различные точки заданного множества точек |
| 22.03.2018, 19:13 | |
Наверх