Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Вычислить сумму https://www.cyberforum.ru/ turbo-pascal/ thread2325583.html проверьте, пожалуйста, запутался с этим примером Даны действительные числа x и e (x<>0, e > 0). Вычислить с точностью e. program project; var x, e, t, sum: real; k: integer;	В заданной строке символов удалить символы, отличные от русских букв и пробелов Turbo Pascal Помогите пожалуйста решить задачу.Она выглядит так: С заданной строки символов удалить символы, отличные от русских букв и пробелов.
Turbo Pascal В водоеме 100т рыбы. Ежегодно рыболовецкая бригада вылавливает 15т В водоеме 100т рыбы. Ежегодно рыболовецкая бригада вылавливает 15т. Воспроизводство рыбы 5% в год. Для сохранения воспроизводства необходимо прекращать ловлю, когда в водоеме ее остается меньше 5т. Через сколько лет лов рыбы должен быть прекращен? Добавлено через 2 минуты Подойдет код? Users crt; var k:integer; x:real; begin https://www.cyberforum.ru/ turbo-pascal/ thread2325274.html	Turbo Pascal Программа учёта расхода товара https://www.cyberforum.ru/ turbo-pascal/ thread2324499.html Программа учёта расхода товара в магазине в течение, например,3 дней. Программа должна выдать предупреждение о том, когда запас товара закончится. Uses Crt; Var A, i: Integer; S: Real; Begin ClrScr; writeln(‘ Контроль расхода товара за 3 дня: ‘); write(‘ Начальное кол. товара: ‘); readln(S); for i:= 1 to 3 do begin
Поменять местами минимальные элементы первой и последней строки Turbo Pascal Двумерный массив n x n. Поменять местами минимальные элементы первой и последней строки. Вывести оба массива на экран. Uses Crt; Const N = 4; M = 5; Var A:array of Integer; i, j, jmin, X: Integer; Begin ClrScr; Randomize; Writeln(‘ Исходный массив:’); For i:= 1 to N do begib	Turbo Pascal Болельщицы https://www.cyberforum.ru/ turbo-pascal/ thread2324389.html Зеник очень любит футбол и горячих испанских девушек. Зеник успел познакомиться с К девушками и хочет пойти с ними на матч Украина - Испания. Он будет покупать билеты себе и девушке. Чтобы девушки не заподозрили его в измене, он будет сажать каждую в другой сектор.Певний время посидит у нее и побежит к другой. Поскольку зараплаты на стройке не хватает на билеты всем девушкам, он потратит лишь Z...
Turbo Pascal добавить необходимые команды https://www.cyberforum.ru/ turbo-pascal/ thread2324333.html Задача Ввести с клавиатуры n любых цифр. Найти произведение тех, которые кратны 3. Ошибка в том, что если среди введенных чисел есть не целые - не суммируются и другие.	Turbo Pascal Составить алгоритм вычисления и вывод на печать в виде блок-схемы. Дано натуральное число N. Вычислить S = \sum_{i=1}^{N}\prod_{j=1}^{i}\frac{j!}{i!}
Turbo Pascal Составить алгоритм вычисления и вывод на печать в виде блок-схемы https://www.cyberforum.ru/ turbo-pascal/ thread2324274.html	Turbo Pascal Турбина(Сортировка двумерного массива) https://www.cyberforum.ru/ turbo-pascal/ thread2323895.html Дан список группы в 10 человек в виде ФАМИЛИЯ И.О. ГОД_РОЖД. ПРОПИСКА ПОЛ 15 симв. 4 симв. 4 симв. 1 симв. 1 симв. Данные в одной строке отделяются друг от друга пробелами. Выделить из них и напечатать трех наиболее молодых петербуржцев...
Задачу в паскаль на определение значения функции Turbo Pascal Есть следующая задача: Составить программу для вычисления значений переменных. Вывести на экран значение окончательных вычислений (т.е. z), а затем получить новое число путем перестановки в полученном z первой и второй цифра дробной записи. Написал программу на паскале таким образом: program Project11; {$APPTYPE CONSOLE} {$R *.res}	Turbo Pascal Логической переменной R присвоить логическое выражение, реализующее указанное условие помогите пожалуйста решить задачу. логической переменной R присвоить логическое выражение,реализующее условие,указанное в варианте. число х является трехзначным и содержит цифру 0 https://www.cyberforum.ru/ turbo-pascal/ thread2323836.html

bormant

Модератор

7788 / 4613 / 2828

Регистрация: 22.11.2013

Сообщений: 13,111

Записей в блоге: 1

26.09.2018, 15:29

Сортировка по убыванию из файла с выводом в другой файл - Turbo Pascal - Ответ 12925206

26.09.2018, 15:29. Показов 1311. Ответов 1

Метки (Все метки)

Ответ

Pascal

const nmax=10; KeyBeg=16; KeyEnd=24;
type TLine = array [0..25] of Char;
var
  a: array [1..nmax] of TLine;
  t: TLine;
  n, i, j, k, p: Integer;
begin
  Assign(input,'input.txt'); Reset(input);
  Assign(output,'output.txt'); Rewrite(output);
  {n:=0;}
  while (n<nmax) and not EoF do begin
    Inc(n); ReadLn(a[n]);
  end;
  for i:=2 to n do begin
    t:=a[i]; j:=i-1;
    while j>0 do begin
      for k:=KeyBeg to KeyEnd do begin
        p:=Ord(t[k])-Ord(a[j,k]);
        if p<>0 then Break;
      end;
      if p>0 then begin
        a[j+1]:=a[j]; Dec(j);
      end else Break;
    end;
    a[j+1]:=t;
  end;
  for i:=1 to n do WriteLn(a[i]);
  Close(input); Close(output);
end.

Вернуться к обсуждению:
Сортировка по убыванию из файла с выводом в другой файл Turbo Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

26.09.2018, 15:29

Готовые ответы и решения:

Не работает сортировка односвязного списка с считыванием из файла и выводом в файл
Написать программу, которая считывает из файла разделенные пробелом числа, игнорируя другие...

Сортировка элементов файла с записью в другой файл.
Есть файл с целыми числами. Нужно отсортировать значения (не используя массив) в порядке убывания и...

Записать в файл массив действительных чисел по убыванию, а в другой файл - по возрастанию
Составить программу записи в файл F1 массива 40 действительных чисел по убыванию, а в файл F2 -...

Сортировка по убыванию. Чтение из файла
Помогите, пожалуйста, отсортировать содержимое файла.. Т.е. Имеется файл в 10 строк...

	26.09.2018, 15:29

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

26.09.2018, 15:29

Помогаю со студенческими работами здесь

Сортировка файла по убыванию методам пузырька
Может кто-нибудь помочь написать программу для сортировки файла по убыванию методам пузырька

Сортировка строк файла по убыванию популярности
Доброго времени суток. Дан файл, где в каждой строке пароль и его популярность (пример: 12321 ...

Отсортировать по убыванию числа, содержащиеся в файле, и записать их в другой файл
В Файле А есть 10 чисел, отсортировать их по убыванию и записать в файл Б

Массив с выводом колличества четных и нечетных чисел их сумм а также записью в один текстовый файл и перезаписью в другой
Массив с выводом колличества четных и нечетных чисел их сумм а также записью в один текстовый файл...

Наверх