Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Диман74
0 / 0 / 1
Регистрация: 19.09.2012
Сообщений: 40
#1

Создать файл и вывести 3-ю строку на печать - Free Pascal

16.01.2013, 19:29. Просмотров 514. Ответов 1
Метки нет (Все метки)

Помогите, пожалуйста сделать задачу. Нужно Создать файл (текстовый) и вывести 3-ю строку на печать.
Заранее спасибо!
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.01.2013, 19:29
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Создать файл и вывести 3-ю строку на печать (Free Pascal):

Если C изображает цифру, то вывести строку «digit», если латинскую букву — вывести строку «lat», если русскую — вывести строку «rus»
Доброй ночи всем программерам, примитивная задачка, но в стрингах я не шарю,...

Вычислить и вывести на экран и в файл строку матрицы
помогите пожалуйста! вот задача Сформировать двумерный массив B размером...

Создать матрицу , вывести на экран , найти строку с наименьшей и наибольшей суммой элементов
ребята , помогите решить такую задачку: Создать матрицу , вывести на экран ,...

Создать массив натуральных четных чисел длины N, и вывести квадраты элементов в строку
Создать массив натуральных четных чисел длины N, и вывести квадраты элементов в...

Шифрование. В выходной файл вывести единственную строку, в котором содержится расшифровано сообщение
В первой строке входных данных записано закодированное сообщение . Вторая...

создать одномерный массив X[1..10] случайным образом.Вывести его в строку.Затем сделать циклическую перестановку
создать одномерный массив X случайным образом.Вывести его в строку.Затем...

1
Kodzaev
3002 / 1891 / 1646
Регистрация: 30.04.2011
Сообщений: 3,054
20.01.2013, 00:02 #2
Лучший ответ Сообщение было отмечено Диман74 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Var
  f: Text;
  s: String;
BEGIN
Assign(f,'1.txt');
{$I-}
Reset(f);
{$I+}
If IOResult=0 Then
begin
  Readln(f);
  Readln(f);
  Readln(f,s);
  Close(f);
  Writeln(s);
end
Else Writeln('File not found');
Readln
END.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.01.2013, 00:02
Привет! Вот еще темы с решениями:

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

Создать текстовый файл, записать в него любые символы, и вывести max и min
Всем доброго времени суток, помогите с задачей. Нужно написать программу,...

Создать файл, состоящий из N целых чисел. Вывести содержимое этого файла на экран
1. Создать файл, состоящий из N целых чисел. Вывести содержимое этого файла на...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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