|
|
| Другие темы раздела | |
| Turbo Pascal Вывести числа полученные в результате вычисления от меньшего к большему Данные "х", "ab", "ac", "ba", "bс" "ca" "cb"вводятся с клавиатуры. Переменные x1 x2 x3...xn Bычисляются с помощью переменных ab ac ba bc ca cb. Например x1:= х*ab*ac*bc; x2:=х*ab*ac*ba; и т.д. Нужно вывести числа x1...xn по убыванию или возрастанию, и , желательно что бы выводило только числа больше "х" и сообщение каким образом были получены эти числа(какие переменные "ас"..."сb"... https://www.cyberforum.ru/ turbo-pascal/ thread2035254.html |
Turbo Pascal В трёхмерном массиве определить значения минимального и максимального элементов и их координаты uses crt; const p = 4; m = 3; n = 2; type mas=array of integer; var i, j, k, t,min,max,posi,posj, posk,s,raz: integer; a:mas; Ch: char; label l1,l2; Procedure vvod (p,m,n:integer; var a:mas); var i,j,k:integer; |
|
Turbo Pascal Удалить из массива все серии, длина которых меньше "k"
https://www.cyberforum.ru/ turbo-pascal/ thread2032333.html Дан массив состоящий из "n" элементов. Назовем серией группу подряд идущих одинаковых элементов, а длиной серии- количество этих элементов (длина серии больше 1 ). Удалить из массива все серии, длина которых меньше "к". |
Turbo Pascal Вывести все слова строки в алфавитном порядке
https://www.cyberforum.ru/ turbo-pascal/ thread2031453.html Задана строка символов. Группы символов, разделенные пробелом и несодержащие пробелов внутри себя, будем называть словами. Вывести все слова строки в алфавитном порядке. Например, задана строка : ‘Я учусь программировать на языке Турбо-Паскаль’ Результат работы программы: Турбо-Паскаль Я на программировать учусь языке |
|
Как реализовать работу с бесконечными массивами и бесконечными числами? Turbo Pascal Доброе утро! Подскажите, пожалуйста, принципы, на которых основано построение таких программ? |
Turbo Pascal PortW, кто сможет объяснить? Есть программа написанная на Паскале, мне её нужно перевести в плюсы (С++). Вышел затык со значением порта, вот кусок программы: for i:=0 to 15 do begin adrbl=$300; copreg:=0; PortW:=not copreg end; https://www.cyberforum.ru/ turbo-pascal/ thread2029682.html |
|
Turbo Pascal Не работает код
https://www.cyberforum.ru/ turbo-pascal/ thread2026333.html Все запускается.Но не выводит число 4 и передвигается только вверх вниз вот код uses crt; var life:array of integer; CursorX,CursorY:integer; CursorChar:char; x,y:integer; key:char; procedure CursorDraw; |
Вывод случайного ЭЛЕМЕНТА из массива Turbo Pascal Т.е. не массива с рандомными числами, а именно одного-единственного случайного элемента, значения заданы по умолчанию, помогите пожалуйста, это организовать, мой код: uses crt; var a: array of real; i, n: byte; begin clrscr; randomize; for i := 1 to 32 do a:=0.03; |
| Turbo Pascal Вычисление определенного интеграла методом правых прямоугольников Число уравнений 3 y=a*x*x*x+b*x+c y=a*cos(x+b)+c y=a*In+c Коэффициенты a,b,c -вещественные числа.Пределы интегрирования вещественные числа. лежащие в пределах -1000 до 1000.Число интервалов разбиения не более 500.Все параметры водяться с клавиатуры или считываються из файла по выбору пользователя.Имя файла задается пользователем.Выдать на экран точное и приближенное значение интеграла... https://www.cyberforum.ru/ turbo-pascal/ thread2024072.html | Turbo Pascal Вычеркнуть из слов Х и Y буквы, одновременно используемые при написании каждого из этих слов те буквы, что одновременно используются при написании каждого из этих слов. https://www.cyberforum.ru/ turbo-pascal/ thread2023424.html |
|
Определить, имеются ли в слове Х повторяющиеся буквы Turbo Pascal Например есть кукуруза.Тут 2к,3у повторения.Как это записать,если слово задает пользователь с консоли. |
Turbo Pascal Как вывести на консоль введённый символ? Всем добрый день! Написал учебный пример для ввода данных трёх типов: integer, real, char . Код компиляцию проходит. Но при исполнении программы, упорно не выводится на консоль введённый символ. Не могу разобраться, что надо изменить в исходном коде. Пробовал этот код в трёх программах-средах. Везде НЕ ВЫВОДИТСЯ коварный введённый символ. Прошу продвинутых IT-специалистов оказать помощь для... https://www.cyberforum.ru/ turbo-pascal/ thread2022250.html |
|
5077 / 2649 / 2349
Регистрация: 10.12.2014
Сообщений: 10,026
|
|
| 08.09.2017, 09:07 | 0 |
Определить средний возраст мужчин в группе - Turbo Pascal - Ответ 1073810508.09.2017, 09:07. Показов 1916. Ответов 14
Метки (Все метки)
Ответ 
Сообщение от bormant
А смысл? Если можно обойтись без них…
Сообщение от bormant
Хотя, в данном контексте маловероятно, что в списке будет больше 32 человек мужского пола, да ещё и рождённых после 2000 года… А проще тогда в моём коде сделать Y действительным! Вернуться к обсуждению: Определить средний возраст мужчин в группе Turbo Pascal
0
|
|
| 08.09.2017, 09:07 | |
|
Готовые ответы и решения:
14
Средний возраст мужчин
В группе из 25 человек (мужчины и женщины) определить средний рост женщин Записи: Определить средний балл по группе студентов по каждому из предметов |
| 08.09.2017, 09:07 | |
| 08.09.2017, 09:07 | |
|
Помогаю со студенческими работами здесь
0
Выясните средний возраст группы и процент людей, возраст которых < 20 лет Определить средний возраст и вывести порядковые номера членов бригады, возраст которых превышает средний |