Free Pascal

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

Войти

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

Другие темы раздела
Free Pascal Дан файл. Найти все компоненты, которые являются полными квадратами Задание 2. Задан файл f компоненты которого являются целыми числами. Получите в файле g все компоненты файла f, которые являются полными квадратами (например, числа 4, 25, 36 и т.п.) https://www.cyberforum.ru/ free-pascal/ thread593474.html	Дан файл. Найти наименьшее из компонент с нечетными номерами Free Pascal Задание 1. Дан файл f, компоненты которого являются действительными числами. Найти наименьшее из компонент с нечетными номерами.
Free Pascal Известна информация о 5 странах. Вывести данные о названии страны, ее столице, количестве школ и больниц Задание 4. Известна информация о 5 странах. Вывести данные о названии страны, ее столице, количестве школ и больниц в стране в которой на 1000 человек припадает наименьшее количество школ. https://www.cyberforum.ru/ free-pascal/ thread593466.html	Free Pascal Напечатать анкетные данные студентов, которые получили двойки в последнюю сессию https://www.cyberforum.ru/ free-pascal/ thread593463.html Задание 3. Напечатать анкетные данные студентов, которые получили двойки в последнюю сессию.
Free Pascal Множества. Сформируйте новые множества и выведите их на экран	Free Pascal Множества. Сформируйте новое множество и определите его мощность https://www.cyberforum.ru/ free-pascal/ thread593461.html
Free Pascal Построить заданный орнамент. Повторяющийся фрагмент орнамента оформить в виде вспомогательной процедуры пользователя https://www.cyberforum.ru/ free-pascal/ thread593457.html Задание 5. Напишите программу, которая строит заданный орнамент. Повторяющийся фрагмент орнамента оформите в виде вспомогательной процедуры пользователя.	Заданы вещественные векторы. Вычислить значение выражения Free Pascal Задание 4. Заданы 10-элементные вещественные векторы х, у, z. Определите величину w=(a,a) где а - тот из заданных векторов, в котором наибольший минимальный элемент (считается, что такой вектор один), b и с обозначают два других вектора, а (Ь,с) -скалярное произведение соответствующих векторов.
Free Pascal Процедуры пользователя. Вычислить площадь треугольников, если заданы координаты вершин на плоскости Задание 3. Четыре треугольника заданы координатами своих вершин на плоскости. Если треугольник существует, то найдите его площадь, в противном случае выдайте на экран сообщение "Такого треугольника не существует.". Вычисление стороны треугольника и его площадь оформите в виде соответствующих процедур пользователя. https://www.cyberforum.ru/ free-pascal/ thread593452.html	Free Pascal Вычислить значение функции на заданном промежутке с использованием дополнительной функции https://www.cyberforum.ru/ free-pascal/ thread593442.html
Free Pascal Вычислить значение сложной функции	*Free Pascal В данном словосочетании заменить два символа "ас" на один символ "" и удалить букву "о"** Задание 6. В данном словосочетании заменить два символа "ас" на один символ "*" и удалить букву "о". https://www.cyberforum.ru/ free-pascal/ thread593436.html

КонецСвета

Почетный модератор

7966 / 3937 / 2464

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

Сообщений: 5,377

04.06.2012, 00:14

Дан файл. Переписать его в новый файл, поставив в начале каждой строки ее номер в виде комментария - Free Pascal - Ответ 3121243

04.06.2012, 00:14. Показов 1495. Ответов 1

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

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

Решение

Pascal

uses crt;
var f,g:text;
    s:string;
    i: integer;
 
begin
assign(f,'D:\in.txt');
assign(g,'D:\out.txt');
reset(f); rewrite(g);
while not eof(f) do
      begin
      readln(f,s);
      inc(i);
      writeln(g,'{',i,'}',s);
      end;
close(f);
close(g);
end.

Вернуться к обсуждению:
Дан файл. Переписать его в новый файл, поставив в начале каждой строки ее номер в виде комментария Free Pascal

Programming

Эксперт

94731 / 64177 / 26122

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

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

04.06.2012, 00:14

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

Дан текстовый файл F. Переписать файл F в файл G, вставляя в конец каждой строки ее порядковый номер.
решите)

Переписать в новый файл output1.txt все его строки, вставив в конец каждой строки ее номер и количество символов в ней
Дан тектсовый файл input.txt. Необходимо:  переписать в новый файл output1.txt все его строки,...

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

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

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

04.06.2012, 00:14

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

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

Дан файл f2. Переписать в “перевернутом” виде его строки
Здраствуйте, не ловко вас беспокоить, но не могли бы вы мне указать мою ошибку в данной...

Переписать в новый файл все его строки, вставив в конец каждой строки количество символов в ней
Задание: using System; using System.Collections.Generic; using System.Linq; using...

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

Дан файл f. Переписать его в новый файл, вставляя на последнее место в строке заданное слово.
Дан файл f. Переписать его в новый файл, вставляя на последнее место в строке заданное слово.

Дан файл F. Переписать его в новый файл, вставляя на последнее место в строке заданное слово
Дан файл F. Переписать его в новый файл, вставляя на последнее место в строке заданное слово

Наверх