Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Дан файл, компоненты которого являются целыми числами. Преобразовать его, исключив повторные вхождения одного и того же помогите написать программу используя базовый алгоритм удаления не такой: procedure del_dup_num(f_name: string); var f: file of integer; k, i, x, j, y, z, l: integer; begin assign(f, f_name); reset(f); https://www.cyberforum.ru/ turbo-pascal/ thread2755266.html Создать 3 новых файла, в которые поместить информацию о студентах. Turbo Pascal
Вот сама задача: В файле хранится информация о студентах: фамилия,имя,номер группы и отметки, полученные в последнюю сессию. Создать 3 новых файла, в которые поместить информацию о студентах, которые: * будут получать стипендию(получены хорошие и отличные оценки); * будут отчислены по результатам сессии(получены три и более неудовлетворительные оценки); * кому будет назначен "исправительный...
Turbo Pascal Написать программу для рисования заданного изображения Написать программу для рисования заданного изображения, согласно варианту, с заливкой каждой области разным цветом. https://www.cyberforum.ru/ turbo-pascal/ thread2754928.html Turbo Pascal Построить график функции y = f(x) согласно варианту на отрезке [a, b] (a, b – задаются произвольно) https://www.cyberforum.ru/ turbo-pascal/ thread2754901.html
Построить график функции y = f(x) согласно варианту на отрезке (a, b – задаются произвольно). y=(sin4x)/(│x+4│+4) +2x
PascalABC Turbo Pascal
Ребята помогите пожалуйста, задали сделать код к задаче, вышло вот это, не рассчитывает некоторые значения, в чем ошибка можете посмотреть???? program krylov; const Q_l_st = 96; alph = 35; ro = 0.5; k = 0.73; D_t = 0.0635; F = 0.5; R_g = 78; b_n = 1; ro_nd = 849; bet_B = 0; P_nas = 11000000; ro_g0 = 1.26; P_y = 2000000; P_pl = 12500000; T_pl = 355; mu_l = 1.33e-3; G = 76.7; y_c1 = 0.5; y_a =...
Turbo Pascal Подпрограммы https://www.cyberforum.ru/ turbo-pascal/ thread2754767.html
Возникла у меня проблемка с процедурами, почему-то когда среднеарифметическое меньше каждого элемента массива, то каждый элемент матрицы становится равным 0, хотя программа должна уменьшать или же увеличивать на ср.ариф. вот программа const n=5; type mas=arrayof real; matr=arrayof mas; var a:matr; c:mas; i,j:integer; ca,minc:real;
Turbo Pascal Протабулировать функцию https://www.cyberforum.ru/ turbo-pascal/ thread2754561.html
Выполнить табулирование функции F=A*X*Y при изменении аргумента X от 0.0 до 3.0с с шагом 1.0 , а аргумента Y-от =1.0 до 1.0 с шагом 0.5. Аргумент X изменять во внешнем цикле с предусловием , а аргумент Y-во внутреннем цикле с параметром. Помогите это надо на паскале.
Turbo Pascal Конструирование файлов с элементами сложной структуры
Программу оформить с помощью меню со следующей структурой: Создание ------>Вывод------>Обработка------>Корректировка------>Выход Вывод состоит из: 1) исходного файла, 2) файла выборки, 3) выход; Корректировка состоит из:
Turbo Pascal Составить программу, подсчитывающую с точностью ε значение определенного интеграла по формуле Составить программу, подсчитывающую с точностью ε значение определенного интеграла по формуле...Для достижения заданной точности использовать метод двойного пересчета. Результат сравнить со значением интеграла, подсчитанным с помощью первообразной F(x) по формуле Ньютона-Лейбница: F(b) - F(a) Метод приближенного вычисления определенного интеграла должен быть запрограммирован с помощью... https://www.cyberforum.ru/ turbo-pascal/ thread2754496.html Turbo Pascal Одномерные массивы Задана последовательность действительных чисел x, x, …, x. Определить количество и номера элементов, удовлетворяющих условию: m1/2<x<m2/2, где: m=max(x, x, …, x+min(x, x, …, x). Пожалуйста помогите https://www.cyberforum.ru/ turbo-pascal/ thread2754494.html
Turbo Pascal Нужно написать программу
Дан целочисленный массив. Вывести все числа в диапазоне от 5 до 30, не являющиеся элементами данного массива.
Turbo Pascal Алгоритм для программы https://www.cyberforum.ru/ turbo-pascal/ thread2754403.html
Можете пожалуйста сделать алгоритм для программы. я сильно туплю const n=5; type mas=arrayof real; matr=arrayof mas; var a:matr; c:mas; i,j:integer; ca,minc:real; begin randomize;
0 / 0 / 0
Регистрация: 04.11.2020
Сообщений: 23
0

Удалить повторные вхождения числа в файл - Turbo Pascal - Ответ 15111227

18.12.2020, 13:22. Показов 549. Ответов 1
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
помогите написать программу для удаления повторного вхождения чисел в файл
Данная прога не подходит, нужно использовать базовый алгоритм удаления

Прога которая есть, работает, но не подходит:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
assign(f, f_name);
    reset(f);
    k := 0;
    i := 0;
    while not EoF(f) do
      begin
        seek(f, i);
        read(f, x);
        j := i + 1;
        while j <= filesize(f) - 1 - k do
          begin
            seek(f, j);
            read(f, y);
            if y = x then
              begin
                k := k + 1;
                for l := j to filesize(f) - 2 do
                  begin
                    seek(f, l + 1);
                    read(f, z);
                    seek(f, l);
                    write(f, z);
                  end;
              end
            else 
              j := j + 1;
          end;
        i := i + 1;
      end;
    seek(f, filesize(f) - k);
    truncate(f);
    close(f);
  end;


Вернуться к обсуждению:
Удалить повторные вхождения числа в файл Turbo Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.12.2020, 13:22
Готовые ответы и решения:

Преобразовать файл, исключив повторные вхождения одного и того же числа
Дан файл, компоненты которого являются целыми числами. Преобразовать его,исключив повторные...

Дан файл, компоненты которого являются целыми числами. Преобразовать его, исключив повторные вхождения одного и того же числа
Дан файл, компоненты которого являются целыми числами. Преобразовать его, исключив повторные...

Удалить из строки повторные вхождения слов
Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 прописных...

Удалить повторные вхождения слов в предложение
Дан файл, содержащий текст на русском языке. В предложениях некоторые из слов записаны подряд...

1
18.12.2020, 13:22
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.12.2020, 13:22
Помогаю со студенческими работами здесь

Из файла f получить файл g, исключив повторные вхождения чисел
Ребят помогите пожалуйста решить эту задачу: Заполнить файл последовательного доступа f целыми...

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

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

Удалить все повторные вхождения данного слова из строки и вывести слова в столбик.
Удалить все повторные вхождения данного слова из строки и вывести слова в столбик, т.е. нужно...

Преобразовать файл, исключив повторные вхождения одного и того же числа
Приветствую, форумчане. Столкнулся я с такой проблемой. Дано задание: &quot;Дан файл, компоненты...

Удалить из текста повторные вхождения слов
из данного текста удалить повторные вхождения слов

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru