Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Множества. Сформировать множества оценок, которые есть и у первого и второго, но нет у третьего ученика https://www.cyberforum.ru/ turbo-pascal/ thread591055.html
Даны по 10-бальной шкале оценки по информатике трех учеников (три массива). Сформировать множества оценок, которые есть и у первого и второго, но нет у третьего ученика. Вывести элементы этого...
Дана строка. Вывести только первые вхождения каждой буквы Turbo Pascal
1. Дана строка. Вывести только первые вхождения каждой буквы.
Turbo Pascal Файлы. Проверить справедливость высказывания: В число входит цифра из соответствующей записи второго файла
. В первом файле хранятся произвольные целые числа. Во втором - цифры в произвольном порядке. Проверить справедливость высказывания для каждой записи первого файла «В число входит цифра из ...
Turbo Pascal Пересечение кругов Помогите с программой... В случайной последовательности x,x,...,xкаждая тройка чисел описы-вает координаты центра и радиус круга. Существует ли изолированный круг, который не пересекается другими? ... https://www.cyberforum.ru/ turbo-pascal/ thread591043.html
Turbo Pascal Вычислить значение выражения https://www.cyberforum.ru/ turbo-pascal/ thread591005.html
Доброго времени суток! Я извиняюсь, но мне тяжело написать это, т.к. учусь на заочном и работаю. Помогите решить хотябы первые 3 задачи пожалуйста. А то, ничего толком не учат, а хотят денег. ...
Turbo Pascal Графика. Построить спираль вокруг начала координат с n витками и внешним радиусом r
Построить спираль вокруг начала координат с n витками и внешним радиусом r; начальное направление образует с осью ОХ угол α. Параметрическая запись спирали: \begin{cases} \text x=r cost ...
Создайте программу, которая вычисляет сумму всех четных чисел от 99 до 200 Turbo Pascal
Создайте программу, которая вычисляет сумму всех четных чисел от 99 до 200.
Turbo Pascal Определить, какая из точек находится дальше от начала координат На площині дано дві точкі. Визначити, яка з них заходиться далі від початку координат. На площине дано две точки. Определить, какая из них находится на большем расстоянии от начала оординат. Как... https://www.cyberforum.ru/ turbo-pascal/ thread590977.html
Turbo Pascal Вычислить значение выражения https://www.cyberforum.ru/ turbo-pascal/ thread590966.html
Разработать алгоритм и программу определите d:=((5*a-6)/(sqr(a)-36)). Помогите убрать ошибку деление на ноль когда в водишь в программе "6" которая написана ниже!!! program chislo; uses crt;...
Turbo Pascal Задание на рекурсию. Написать рекурсивную процедуру генерации всех перестановок чисел от 1 до n Написать рекурсивную процедуру генерации всех перестановок чисел от 1 до n. Я честно даже смысла задания не поняла( Добавлено через 10 часов 28 минут Помогите решить пожалуйста https://www.cyberforum.ru/ turbo-pascal/ thread590941.html
Модератор
61733 / 46208 / 31877
Регистрация: 18.05.2008
Сообщений: 111,497
30.05.2012, 09:06 0

Работа с файлами. Переписать из одного файла в другой строки, длина которых меньше 10 символов

30.05.2012, 09:06. Просмотров 1134. Ответов 7
Метки (Все метки)

Ответ

Artem7, Это одно и тоже.

Добавлено через 1 минуту
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program sdsk;
const dd = 'D:/text1.txt';
const dd2='D:/text2.txt';
var f,g:text;
    s:string;
begin
assign(f,dd);
assign(g,dd2);
reset(f);
rewrite(g);
while not seekeof(f) do
 begin
  readln(f,s);
  if length(s)<10 then writeln(g,s);
 end;
close(f);
close(g);
end.


Вернуться к обсуждению:
Работа с файлами. Переписать из одного файла в другой строки, длина которых меньше 10 символов
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.05.2012, 09:06
Готовые ответы и решения:

Из одного массива в другой переписать элементы, модуль которых меньше среднего значения
Помогите пожалуйста!=) Из массива а(100) в массив b(100) переписать элементы модулькоторых...

Удаление из строки слов, длина которых меньше К символов
Удалить слова из заданного текста, длина которых меньше К символов. Добавлено через 17 часов 56...

Удалить из третьей строки все слова, длина которых меньше пяти символов
С клавиатуры вводится строка, состоящая из слов и чисел (целых и вещественных), отделенных друг от...

Записать в другой файл все строки, длина которых больше 5 символов
Дан текстовый файл. Записать в другой файл все строки, длина которых больше 5 символов. Помогите...

7
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.