|
|
| Другие темы раздела | |
|
Turbo Pascal Кодирование методом Хаффмана
https://www.cyberforum.ru/ turbo-pascal/ thread1353667.html Написать программу, которая осуществляет кодирование Вашей фамилии, имени и отчества методом Хаффмена |
Turbo Pascal Переставить элементы в массиве, чтобы сначала следовали все отрицательные числа, а затем все остальные Здраствуйте! У меня было такое задание. Дан одномерный массив целых чисел. Переставить элементы в массиве таким образом, чтобы сначало следовали все отрицательные числа, а затем все остальные. Примечание 1. Не использовать другой массив. 2.Сохранить порядок следования элементов. Вот я нашел код программы Program ABC; type sl =array of real; var s: sl; i,n,l : integer; a : real; |
|
Turbo Pascal Написать рекурсивную функцию для нахождения n-ого члена прогрессии
https://www.cyberforum.ru/ turbo-pascal/ thread1353625.html Даны первый член и знаменатель геометрической прогрессии. Написать рекурсивную функцию для нахождения n-ого члена прогрессии. Вот что у меня вышло: var b1,q:real; n:integer; function bn(const n:integer):real; begin if n=1 then bn:=b1 |
Turbo Pascal Найти NOD(a, b, c). При вычислении NOD(a, b) использовать бинарный алгоритм Даны натуральные числа a, b, c. Найти НОД(a, b, c), используя формулу: НОД(a, b, c) = НОД((a, b), c). При вычислении НОД(a, b) использовать бинарный алгоритм. Спасибо. https://www.cyberforum.ru/ turbo-pascal/ thread1353622.html |
|
Дан текст-строка из латинских букв и других знаков. Подсчитать сколько букв, сколько знаков Turbo Pascal Дан текст-строка из латинских букв и других знаков. Подсчитать сколько букв, сколько знаков. Данную программу нужно написать используя тип данных - множество. Сам пытался решить вот что вышло.var M:set of char; i:integer; eng_low,eng_high,eng_b_low,eng_B_high:integer; s,sym,bukv:integer; Eng_isc:set of char; begin eng_low:=96; |
Turbo Pascal Удалить из строки слова которые ужу встречались
https://www.cyberforum.ru/ turbo-pascal/ thread1353551.html uses crt; const nmax=5000; type mas=array of real; const glav:array of string=('1-Zadanie1', '2-Zadanie2 ', '3-O razrabot', '4-Vihod'); zadan1:array of string=('1-Vvod iz faila', '2-Vvod c klaviaturi', ... |
|
Turbo Pascal Получить новый вектор из двух заданных
https://www.cyberforum.ru/ turbo-pascal/ thread1353499.html Ребята, помогите студенту в решении задания на массивы. Нужно написать программу и составить блог схему! Заранее Всем буду благодарен! Вычислить вектор , если aк= , векторы x и y заданы. |
Задача на длинную арифметику Turbo Pascal Итак, входные данные: число S<=60000. Это s-тое число фибонначи (если 2 то 2, если 4 то 5, если 5 то 8). Нужно с помощью процедуры(или функции) найти само число и с помощью фукции возвести его в квадрат и вывести на экран. Это длинная арифметика (числа могут состоять из больше чем 19 цифр ). Заранне спасибо за помощь |
|
Turbo Pascal Как залить треугольник без использования готовых процедур?
https://www.cyberforum.ru/ turbo-pascal/ thread1353451.html Uses crt,graph; var driver,mode,x1,x2,x3,y1,y2,y3,x,y:integer; P:real; Begin clrscr; randomize; write('Input coordinates: '); x1:=random(500); y1:=random(100); x2:=random(500); |
Turbo Pascal Выяснить каким по счету стоит первое число 3 в одномерном массиве. Ребята, помогите студенту в решении задания на массивы. Нужно написать программу и составить блог схему! Заранее Всем буду благодарен! Имеется массив А из N произвольных чисел. Используя, операторы цикла составить программу Выяснить каким по счету стоит первое число 3. Если числа 3 нет, напечатать текст «числа три нет». https://www.cyberforum.ru/ turbo-pascal/ thread1353280.html |
|
Turbo Pascal Вычисление таблицы значений функции Ребята, всем привет! Передо мной стоит задача такого рода - необходимо написать программу вычисления таблицы значений функции z=sin(y*y)-ln(x)-ln(y). Один аргумент изменяется с определенным шагом в заданном интервале, а остальные аргументы не меняются. Значения аргумента следует выбирать самостоятельно из области его допустимых значений. А шаг изменения аргумента выбирать таким образом,... |
Turbo Pascal Заменить while на for и почему for будет работать не во всех случаях? const nn = 10; var a: array of integer; i, j, n, k: integer; begin write('n='); read(k); for i := 1 to k do https://www.cyberforum.ru/ turbo-pascal/ thread1353220.html |
|
Модератор
  |
||||||
| 16.01.2015, 11:36 | 0 | |||||
Сортировка списка по фамилиям - Turbo Pascal - Ответ 711196616.01.2015, 11:36. Показов 1096. Ответов 5
Метки (Все метки)
Ответ
PPS. В файле input.txt дана таблица студентов с фамилиями, приведённая в первом сообщении темы. Вывести на экран фамилии, начинающиеся на "Б". Вернуться к обсуждению: Сортировка списка по фамилиям Turbo Pascal
0
|
||||||
| 16.01.2015, 11:36 | |
|
Готовые ответы и решения:
5
Сортировка справочника по фамилиям Сортировка данных по фамилиям |
| 16.01.2015, 11:36 | |
| 16.01.2015, 11:36 | |
|
Помогаю со студенческими работами здесь
0
"Сортировка двусвязного списка путем исключения элемента с минимальным значением и включения его в начало нового списка
Сортировка списка значений словаря, по номеру заголовка, элемента списка значений Сортировка списка, главная сортировка по второму числу, второстепенная по первому числу |
Наверх