Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Поменять местами строчки с самой большой суммой и самой маленькой https://www.cyberforum.ru/ pascalabc/ thread2561547.html
Я ввёл рандомную матрицу 3x3 и посчитал сумму каждой строки, а теперь мне нужно, чтобы две строки с наибольшей и наименьшей суммой поменялись местами. Можете помочь? var a: array of real; i, j: byte; sum: real; begin for i:=1 to 3 do begin sum := 0; for j:=1 to 3 do begin
Pascal ABC Получить массив, элементы которого равны разностями модулей наибольших и наименьших значений элементов столбцов
Дана действительная матрица размера m x n. Получить одномерный массив,элементы которого равны разностями модулей наибольших и наименьших значений элементов столбцов. Вывести элементы полученного массива на экран и в типизированный дисковый файл. Подсчитать количество отрицательных,положительных и нулевых элементов этого файла. Использовать при решении подпрограммы Решение на студенческом уровне...
Pascal ABC Разработать библиотечный модуль, содержащий следующие подпрограммы (процедуры или функции) для работы со строками: 12. Разработать библиотечный модуль, содержащий следующие подпрограммы (процедуры или функции) для работы со строками: А. удалить пробелы в начале строки и в конце строки Б. Удалить лишние пробелы (между словами оставить по одному пробелу) В. Удвоить все пробелы в строке Написать программу, к которой подключается модуль, демонстрирующую работоспособность всех подпрограмм модуля. https://www.cyberforum.ru/ pascalabc/ thread2561440.html Pascal ABC Создайте два типизированных файла вещественных чисел 12. Создайте два типизированных файла вещественных чисел, упорядочите компоненты файлов по возрастанию. Получите новый файл слиянием двух исходных файлов, так чтобы не нарушить упорядоченности. https://www.cyberforum.ru/ pascalabc/ thread2561436.html
Написать простой алгоритм сжатия для строки Pascal ABC
2. Написать простой алгоритм сжатия для строки. Так, например, строка Helllllo Wooooorld! Может быть сжата как Hel5o Wo5rld!. Так же обеспечить приведение строки к исходному состоянию
Pascal ABC Матрицы и подпрограммы https://www.cyberforum.ru/ pascalabc/ thread2561337.html
Пожплуйста, помогите! Написать программу решения следующей задачи: Для каждой из матриц A(N,N) и B(M,M) найти целочисленные элементы верхней треугольной матрицы. Использовать подпрограмму.
Pascal ABC Дан массив из N вещественных чисел. Найти самую длинную неубывающую последовательность подряд идущих элементов массива Задача: Дан массив из N вещественных чисел. Найти самую длинную неубывающую последовательность подряд идущих элементов массива. Есть код, но при проверке не правильный результат в некоторых случаях Вот пример, при котором ответ не верен n = 10 a1 = 1 a2 = 2 a3 = 3 a4 = 4 https://www.cyberforum.ru/ pascalabc/ thread2561148.html Составить программу построения графиков функций Pascal ABC
Прошу помочь с написанием программы. Разработать программу для построения графиков функций,заданных параметрическим уравнением. X=6,2 × (k × cos(t) - n × cos(3,1t)÷3,1 y=6,2 × (k × sin(t) - n × sin(3,1t)÷3,1 t€ X=(1+k × cos(t)) × n × cos(t) y=(1+k × cos(t)) × n × cos(t) t€ X(t)=16sin3(t) ...
Pascal ABC Реализация алгоритмов определения экстремальных значений и их порядковых номеров https://www.cyberforum.ru/ pascalabc/ thread2560977.html
Известны данные о численности населения (в миллионах человек) и площади (в тысячах квадратных километров) n государств. Определить минимальную плотность населения в отдельной стране.
Pascal ABC Матричная алгебра https://www.cyberforum.ru/ pascalabc/ thread2560907.html
Даны квадратная матрица А порядка n и вектор х и у с n элементами. Получить вектор А(х+у).
Двумерные массивы. Преобразование и построение матриц. Матричная алгебра Pascal ABC
Даны квадратная матрица А порядка n и вектор с n элементами. Получить вектор Ab.
Pascal ABC Напишите программу вычисления произведения положительных, суммы отрицательных и количества нулевых элементов Напишите программу вычисления произведения положительных, суммы отрицательных и количества нулевых элементов массива B. Проверьте работу программы на заданном массиве: B = {63, 7.2, -4.5, 0, -10, 14, -310, 50, 11, -14, 5}. Произведение положительных элементов равно: Сумма отрицательных элементов равна: Количество нулевых элементов равно: https://www.cyberforum.ru/ pascalabc/ thread2560878.html
Эксперт Pascal/Delphi
6807 / 4565 / 4818
Регистрация: 05.06.2014
Сообщений: 22,438
25.12.2019, 16:43 0

Задан текстовый файл. Переписать в другой файл, те строки из первого файла, которые содержат менее 5 слов - Pascal ABC - Ответ 14128276

25.12.2019, 16:43. Показов 1754. Ответов 1
Метки (Все метки)

Ответ

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
const
  razd: set of char = [' ', ',', ':'];
 
var
  s: string;
  f, g: text;
  i, k, n: integer;
 
begin
  assign(f, 'input.txt');
  assign(g, 'output.txt');
  reset(f);
  rewrite(g);
  while not Eof(f) do 
  begin
    k := 0;
    readln(f, s);
    for i := 1 to length(s) do
      if s[i] in razd then
        inc(k);
    if k < 5 then
      writeln(g, s);
  end;
  close(f);
  close(g);
end.


Вернуться к обсуждению:
Задан текстовый файл. Переписать в другой файл, те строки из первого файла, которые содержат менее 5 слов Pascal ABC
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.12.2019, 16:43
Готовые ответы и решения:

Задан текстовый файл. Подчитать количеств и напечатать строки файла которые содержат только одно слово
Задан текстовый файл. Подчитать количеств и напечатать строки файла которые содержат только одно...

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

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

Дан текстовый файл, содержащий строки. Вывести все слова в строке, которые содержат менее 4-х символов
Дан текстовый файл, содержащий строки. Вывести все слова в строке, которые содержат менее 4-х...

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

Задан текстовый файл f. Переписать в новый файл g все слова, которые начинаются с буквы к
Задан текстовый файл f. Переписать в новый файл g все слова, которые начинаются с буквы к.

Переписать текстовый файл в другой, вставляя в конец каждой строки число, количество слов
переписать текстовый файл в другой, вставляя в конец каждой строки число, количество слов

Открыть любой текстовый файл и переписать в другой файл пары соседних слов по условию
Открыть любой текстовый файл и переписать в другой файл пары соседних слов, в которых последняя...

Задан текстовый файл F. Переписать компоненты файла F в файл H, вставить в начале и середине строк символ пробела. Порядок компонентов сохранить
Задан текстовый файл F. Переписать компоненты файла F в файл H, вставить в начале и середине строк...

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