Free Pascal

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

Войти

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

Другие темы раздела
Free Pascal Напечатать сначала все положительные элементы, затем все отрицательные https://www.cyberforum.ru/ free-pascal/ thread708935.html очень нужна помощь Задача 2. Заполнить массив из 10 элементов с помощью генератора псевдослучайных чисел как положительными, так и отрицательными целыми числами. Напечатать сначала все положительные элементы, затем все отрицательные (элементы равные 0 не печатать).	Free Pascal Найти и напечатать сумму всех отрицательных элементов массива очень нужна помощь Задача 3. Заполнить массив из 15 элементов с помощью генератора псведослучайных чисел как положительными, так и отрицательными числами, лежащими в диапазоне от -10 до 30. Найти и напечатать сумму всех отрицательных элементов массива
Free Pascal Напечатать все элементы кратные 3 и их количество очень нужна помощь Задача 4, Заполнить массив из 20 элементов натуральными числами, заданными случайным образом и лежащими в диапазоне от 1 до 100. Напечатать все элементы кратные 3 и их количество. https://www.cyberforum.ru/ free-pascal/ thread708930.html	Free Pascal Все элементы с четными индексами удвоить, а с нечетными - уменьшить на 1 https://www.cyberforum.ru/ free-pascal/ thread708929.html очень нужна помощь Задача 5. Заполнить массив из 15 элементов целыми числами, заданными случайным образом, и лежащими в диапазоне от I до 20. Все элементы с четными индексами удвоить, а с нечетными - уменьшить на 1.
Найти и напечатать среднеарифметическое элементов массива, больших 10 Free Pascal очень нужна помощь Задача 6. Заполнить массив из 20 элементов натуральными числами, заданными случайным образом и лежащих в диапазоне от 3 до 20. Найти и напечатать среднеарифметическое элементов массива, больших 10.	Free Pascal Скопировать все элементы в другой массив в обратном порядке расположения элементов https://www.cyberforum.ru/ free-pascal/ thread708921.html очень нужна помощь Задача 7. Заполнить массив А из 10 элементов целыми числами, заданными случайным образом, и лежащими в диапазоне от 1 до 20. Скопировать все его элементы в другой массив такого же размера в обратном порядке расположения элементов. Распечатать исходный и полученный массивы.
Free Pascal Из элементов массива А сформировать массив В того же размера по правилу https://www.cyberforum.ru/ free-pascal/ thread708919.html очень нужна помощь Задача а. Заполнить массив А из 10 элементов целыми числами, заданными случайным образом, и лежащими в диапазоне от-10 до 10. Из элементов массива А сформировать массив В того же размера по правилу: если индекс массива А четный, то B=A2 в противном случае B=2A. Распечатать исходный и полученный массивы.	Из элементов массива сформировать массив В того же размера по правилу Free Pascal очень нужна помощь Задача 9. "Заполнить массив A из 15 элементов целыми числами, заданными случайным образом, и лежащими в диапазоне от 0 до 20. Из элементов массива сформировать массив В того же размера по правилу: B=A, B=A\|+ А. В=А+А+А. В= А + А+ ... +А. Распечатать исходный и полученный массивы.
Free Pascal Переписать элементы массива А в массив В так, чтобы все отрицательные элементы располагались в начале массива, а все остальные в конце https://www.cyberforum.ru/ free-pascal/ thread708901.html очень нужна помощь Задача 10. Заполнить массив из 10 элементов с помощью генератора псевдослучайных чисел как положительными, так и отрицательными целыми числами. Переписать элементы массива А в массив В так, чтобы все отрицательные элементы располагались в начале массива, а все остальные в конце, сохранив при этом порядок их следования. Распечатать исходный и полученный массивы	Free Pascal Переписать элементы массива А, кратные 3, в массив В в обратном порядке очень нужна помощь Задача 11 Заполнить массив А из 10 элементов целыми числами, ладанными случайным образом, и лежащими в диапазоне от 1 до 20 Переписать элементы массива А кратные 3 в массив В к обратном порядке. Распечатать исходный и полученный массивы https://www.cyberforum.ru/ free-pascal/ thread708894.html
Процедуры и функции: Найти площадь треугольника Free Pascal 6.1. Треугольник задан координатами своих вершин. Найти площадь треугольника по формуле: S=sqrt(p(p-a)(p-b)(p-c)) где p=(a+ b+ c)/2- половина периметра треугольника, a, b, c- длины его сторон.	Free Pascal Процедуры и функции: вывести таблицу напряженности электрического поля Металлический шар радиусом d имеет заряд q. Программа выводит на экран таблицу напряженности электрического поля, создаваемого шаром в точках, находящихся на расстоянии 0<R<3d с шагом d/4. Напряженность поля рассчитывается в подпрограмме. При R<d E=0. ПРи R>d E=q/(4ПEps0R^2) https://www.cyberforum.ru/ free-pascal/ thread708816.html

CodeR

Фрилансер

3418 / 2815 / 3000

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

Сообщений: 8,562

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

26.11.2012, 08:54

Переписать в файл g все рядки файла f, которые имеют больше 30 символов - Free Pascal - Ответ 3755710

26.11.2012, 08:54. Показов 1358. Ответов 1

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

Сообщение было отмечено daves как решение

Решение

Pascal

Var f,g:text;
    s:string;
Begin
    Assign(f,'in.txt');Reset(f);
    Assign(g,'out.txt');Rewrite(g);
    While not Eof(f) do
    Begin
      readln(f,s);
      if Length(s)>30 then writeln(g,s);
    End;
    Close(f);Close(g);
    writeln('Обработка закончена!');
End.

Вернуться к обсуждению:
Переписать в файл g все рядки файла f, которые имеют больше 30 символов Free Pascal

Programming

Эксперт

94731 / 64177 / 26122

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

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

26.11.2012, 08:54

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

Создать файл F из элементов массива M, переписать в файл G все компоненты которые меньше 5, прочитать файл G
создать файл F,компонентами которого являются элементы массива M,переписать в файл G все компоненты...

Переписать в файл F все компоненты массива D, которые больше 0,5
Создать файл G,компонентами которого являются элементы массива D.Переписать в файл F все компоненты...

Из файла переписать в файл те числа, которые больше чем среднее геометрическое значение всех модулей элементов входного файла
Из файла F,где находятся целые числа переписать в файл G,те которые больше чем среднее...

Создать и заполнить файл f1 числами. Переписать числа из файла f1 в f2, которые повторяются больше 1 раза
1. Дан символьный файл f. Группы символов, разделенные пробелами (одним или несколькими) и не...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

26.11.2012, 08:54

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

Переписать в файл g все строки из файла f, которые начинаются с буквы 'c'.
При открытии и сохранении файла необходимо использовать файловые диалоги. Задание - Дан...

Из текстового файла f переписать в файл g все строки, содержащие более 30 символов
Дан текстовый файл f. Переписать в файл g все строки файла f, содержащие более 30 символов. Файл...

Дано текстовый файл f. Получить все его строки, которые содержат больше, чем 15 символов
Дано текстовый файл f. Получить все его строки, которые содержат больше, чем 15 символов.

Дан текстовый файл g. Создать новый файл f и записать в него все слова файла g с количеством символов больше 4 и меньш 6
Дан текстовый файл g. Создать новый файл f и записать в него все слова файла g с количеством...

Наверх