|
|
| Другие темы раздела | |
| Free Pascal Переделка фрактала Помогите переделать фрактал Леви во фрактал Минковского. uses winCRT, CRT, Graph; var gd, gm, i, j, n, m, k: Integer; xn,yn, a, p, x, y, scale: Real; grend:string; ch: char; https://www.cyberforum.ru/ free-pascal/ thread3091012.html |
Free Pascal Проект project1 вызвал класс исключения 'EConvertError' с сообщением: "1,56" is an invalid float Проект project1 вызвал класс исключения 'EConvertError' с сообщением: "1,56" is an invalid float. Ошибка при попытке перевести из строки в вещественное число |
|
Free Pascal Ввод элементов массива с клавиатуры
https://www.cyberforum.ru/ free-pascal/ thread3088605.html Помогите пожалуйста. Дан массив B(n). Организовать ввод элементов массива с клавиатуры. |
Free Pascal Функция не работает как надо function IsDigit(c: char): Boolean; var digits: array of Char = ('0','1','2','3','4','5','6','7','8','9'); e: char; begin for e in digits do if c = e then IsDigit := True; IsDigit := False end; https://www.cyberforum.ru/ free-pascal/ thread3088276.html |
|
Free Pascal Масштабирование FReePascal Помогите сделать масштабирование фигуры во ФРиПаскале. Вот код: uses sysutils, wincrt, crt, graph; const |
Free Pascal Переделать программу из PascalABC в FreePascal Помогите, пожалуйста, переделать программу из PascalABC во ФриПаскаль. uses Graph; procedure RLine(x, y, x1, y1: real) := RLine(Round(x), Round(y), Round(x1), Round(y1)); function GetAngle(x, y, x2, y2: real): real; begin var angle := Abs(RadToDeg(ArcTan((y2 - y) / (x2 - x)))); if (x2 = x) and (y2 = y) then Result := 0 else https://www.cyberforum.ru/ free-pascal/ thread3086362.html |
| Free Pascal Контроль ввода клавиш Не могу сделать контроль ввода клавиш в графическом режиме. Нужно чтобы в графическом режиме график реагировал только на определённые клавиши program a1; Uses Graph,crt,WinCrt; const NORM=LightGray; { öâåò âûäåëëåíîãî ïóíêòà } SEL=Green; { öâåò âûäåëåííîãî ïóíêòà } C=7; krn=-2.123; type https://www.cyberforum.ru/ free-pascal/ thread3082616.html |
Free Pascal Syntax error, ":" expected but "(" found Здравствуйте. Начал учиться программированию, и, выполняя задачку, в которой автор книги опустил часть кода, возникает ошибка при компиляции. Код набирал по примерам предыдущих программ. Подскажите, пожалуйста, где именно ошибка. Я исчерпал свои догадки) program year1; var year: integer; write('Please type in your birth year: '); readln(year); while (year... |
|
Free Pascal Индексы максимального и минимального элементов массива
https://www.cyberforum.ru/ free-pascal/ thread3080343.html pascal, надо вывести индекс большего и меньшего индексов массива, но у меня не получается сделать, выводит именно значения элементов, помогите. var S, i, j, p, max, min, n: integer; a:array of integer; begin read(n); S:=0; write('basic array: '); for i:=1 to n do begin a := Random(n); |
Free Pascal Как отладить процедуру, балансирующую двоичное дерево поиска?
https://www.cyberforum.ru/ free-pascal/ thread3078693.html Решил реализовать красно-чёрное дерево поиска. К настоящему моменту работает: - добавление новых узлов в дерево; - печать дерева: -- для каждого узла печатается следующая информация: значение, цвет, значение родительского элемента; -- каждый "этаж" дерева печатается на отдельной строке; - балансировка дерева... |
|
Free Pascal Заменить ; на . Следующее слово начать с прописной буквы ( русской ) Program; uses crt; const zamena='.'; var s:string; i,count:word; s1,a:char; Begin textbackground(green); clrscr; s:='Мама Николая сказала, чтобы он сходил за продуктами в магазин; чтобы вынес мусор; чтобы выполнил всё домашнее задание'; |
Free Pascal Как удалить элементы из файла
https://www.cyberforum.ru/ free-pascal/ thread3078183.html Есть такой код, который просматривает файл (input.txt), который имет вид: Фамилия1 5 4 5 3 Фамилия2 4 5 4 5 Фамилия3 3 3 4 5 Фамилия4 5 5 5 5 По завершению программы(по идее рабочей) в файле output.txt должно показывать следующие данные: Фамилия1 Нет стипендии Фамилия2 Есть стипендия |
|
3017 / 1642 / 649
Регистрация: 19.03.2019
Сообщений: 5,318
|
||||||||||||||||
| 07.04.2023, 11:20 | 0 | |||||||||||||||
Процедура вычисляющие сумму 2 целых чисел - Free Pascal - Ответ 1684748507.04.2023, 11:20. Показов 1298. Ответов 11
Метки (Все метки)
Ответ 
Сообщение от Lari76
Сообщение от Lari76
тогда в процедуру нужно передать не два значения, а три:
Вернуться к обсуждению: Процедура вычисляющие сумму 2 целых чисел Free Pascal
0
|
||||||||||||||||
| 07.04.2023, 11:20 | |
|
Готовые ответы и решения:
11
Даны два целых числа A и B (A < B). Найти сумму всех целых чисел от A до B включительно
|
| 07.04.2023, 11:20 | |
| 07.04.2023, 11:20 | |
|
Помогаю со студенческими работами здесь
0
Найти сумму всех целых положительных чисел, больших 20, меньших 100 и кратных 3Найти сумму всех целых положительных чисе
Для данных двух целых чисел вычислить сумму всех целых чисел, которые находятся между ними
Процедура: в последовательности целых чисел найти количество чисел, с суммой цифр кратных 7 и максимальное среди них |