|
|
|
| Другие темы раздела | |
|
Turbo Pascal Вставить число a в массив целых чисел после всех элементов, в которых есть цифра 5
https://www.cyberforum.ru/ turbo-pascal/ thread1961809.html Вставить число a в массив целых чисел после всех элементов, в которых есть цифра 5. нУЖНО ПРОЩЕ |
Нужно по блок-схеме составить программу Turbo Pascal Помогите пожалуйста! |
|
Turbo Pascal Вывести таблицу квадратов заданных чисел
https://www.cyberforum.ru/ turbo-pascal/ thread1961513.html Написать программу, которая выводит таблицу квадратов первых пяти целых положительных нечетных чисел (используя цикл с постусловием) |
Turbo Pascal Положение фигуры на шахматной доске Положение фигуры на шахматной доске (8 х 8) описывается двумя числами – номером горизонтали и номером вертикали. Ввести с клавиатуры координаты ферзя (X, Y) и координаты любой фигуры (X1, Y1). Проверить, находится ли фигура под ударом. Ферзь бьёт по вертикали, горизонтали и диагонали. Код программы: uses Crt; var X, Y, X1, Y1, a, b, i: integer; begin ClrScr; write( '... https://www.cyberforum.ru/ turbo-pascal/ thread1961464.html |
|
Алгоритм разветвления Turbo Pascal Перераспределить значения переменных x и y так, чтобы в x оказалось большее из этих значений, а в y – меньшее.(блок-схема) |
Turbo Pascal Линейный алгоритм
https://www.cyberforum.ru/ turbo-pascal/ thread1961379.html Составить алгоритм вычисления стоимости покупки некоторого количества (по весу) яблок, груш и апельсинов.(В виде схемы) |
|
Turbo Pascal Копирование текстового файла в бестиповый файл
https://www.cyberforum.ru/ turbo-pascal/ thread1961215.html Подскажите пожалуйста как произвести копирование текстового файла в бестиповый. Есть программа и нужно скопировать файл с результатом в друг, т.е f2:text=f3:file Моя попытка не удалась: procedure KOPY(var _f2:text; var _f3: file; var _str:string); var i,k:integer; begin assign (_f3,'kopyfile.txt'); rewrite(_f3,sizeof(string)*8); {$I+} |
Turbo Pascal Создание текстовых данных Помогите с сотавлением в блокноте данных,как данные туда забить uses crt; const nmax=20; type telephone = record tel: string; nom: string; fam: string; end; mas=array of telephone; |
|
Turbo Pascal Дописать код программы
https://www.cyberforum.ru/ turbo-pascal/ thread1961149.html Вообщем даны куски кода программ, нужно их дополнить. 1. Упорядочение массивов методом пузырька: begin for j:=1 to N-1 do for i:=1 to N-j do if M > M then swap(M,M) end; 2. Метод вставок: |
Turbo Pascal Построения эйлерового цикла
https://www.cyberforum.ru/ turbo-pascal/ thread1961031.html Если кто-то поможет буду очень признтелен. Задано взвешенный граф в котором насчитывается N верши и М ребер. Разработать программу построения эйлерового цикла в графе. Ввод данных с проверкой на корректность с клавиатуры и считывания из файла. Результат выводить по выбору на экран или в файл. Структура меню должна быть такая: 1.Ввод с клавиатуры 2.Считывание из файла. 3.Проверка |
|
Передача из файла в строковый массив и копирование файла в файл Turbo Pascal Нужно сделать так, чтобы был строковый массив и первая процедура открывала входной файл и передавала всё в этот массив. Потом функция или процедура для проверку условия и процедура печати. В конце процедура, которая копирует файл f2:text в файл f3:file Помогите пожалуйста uses crt; type mas = array of string; var f1,f2:text; f3:file; a:mas; |
Turbo Pascal Указать номер строки, максимально удалённой от первой строки заданной матрицы (Вложение удалено) https://www.cyberforum.ru/ turbo-pascal/ thread1960644.html |
 6811 / 4568 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
|
|
| 17.04.2017, 07:53 | 0 |
Распечатать слова из каждой группы в порядке нарастания количества в них букв - Turbo Pascal - Ответ 1033912317.04.2017, 07:53. Показов 881. Ответов 1
Метки (Все метки)
Ответ 
Сообщение от olica2004
Вывести на экран слова в порядке возрастания количества букв в них Добавлено через 44 секунды В заданном тексте выделить две группы слов Вернуться к обсуждению: Распечатать слова из каждой группы в порядке нарастания количества в них букв Turbo Pascal
0
|
|
| 17.04.2017, 07:53 | |
|
Готовые ответы и решения:
1
Дан текст из русских букв,распечатать слова в алфавитном порядке
|
| 17.04.2017, 07:53 | |
| 17.04.2017, 07:53 | |
|
Помогаю со студенческими работами здесь
0
Строки. Вывести слова в порядке убывания количества цифр в них Расположить слова в строке в порядке возрастания количества символов в них Слова строки расположены в порядке возрастания в них букв Вывести слова строки в порядке убывания числа букв в них |