Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
yanyk1n
4331 / 1462 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
22.02.2010, 20:37

Файлы - Pascal

22.02.2010, 20:37. Просмотров 371. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено C.J. как решение

Решение

Считаем, что дата вводится как ДД-ММ-ГГГГ (т.е. не содержит внутри себя пробелов).
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
27
28
var input,output:text;
st,st2,f,i,o,d:string;
 
begin
 assign(input,'input.txt');
 assign(output,'output.txt');
 reset(input);
 rewrite(output);
 while not eof(input) do
 begin
  readln(input,st);
  while st[1]=' ' do delete(st,1,1);
  f:=copy(st,1,pos(' ',st)-1);
  delete(st,1,pos(' ',st));
  while st[1]=' ' do delete(st,1,1);
  i:=copy(st,1,pos(' ',st)-1);
  delete(st,1,pos(' ',st));
  while st[1]=' ' do delete(st,1,1);
  o:=copy(st,1,pos(' ',st)-1);
  delete(st,1,pos(' ',st));
  while st[1]=' ' do delete(st,1,1);
  d:=copy(st,1,pos(' ',st));
  st2:=f+' '+i[1]+'. '+o[1]+'. '+d;
  writeln(output,st2);
 end;
 close(input);
 close(output);
end.
Только не понимаю, причём тогда зарплата, если в выводе только имя и дата рождения?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.02.2010, 20:37
Темы с ответами и решениями для Pascal Файлы:

Файлы
Дан файл Товар, содержащий сведения об экспортируемых товарах: 1) наименование...

Файлы
type stroka=array of char; textfile=file of char; Описать процедуру...

файлы
надо позарез""" Прямо сейчас!!!!!!!!!! Дано два файла g1 и g2, содержащих...

Файлы
Доброго времени суток всем. Мне нужно написать 2 проги, наработок пока нету,...

0
Файлы Pascal   Следующее сообщение темы 
Другие темы раздела
Pascal Заменить в файле все пустые строки на строку S. http://www.cyberforum.ru/pascal/thread98098.html
Дана строка S и текстовый файл. Заменить в файле все пустые строки на строку S.
Pascal В типизированном файле поменять местами минимальный и максимальный элементы. Дан файл вещественных чисел. Поменять в нем местами минимальный и максимальный элементы. http://www.cyberforum.ru/pascal/thread98096.html
Pascal Логическая переменная
есть одна переменная (допустим R) мне нужно чтобы из R выходило 3 цвета. При вводе цифры 1 - красный цвет, при 2 - синий, при 3 - оранжевый есть набросок: program tig; var R:boolean; begin if R...
Формировка массива суммой опр. числа. Pascal
Pascal Дано число N, требуется сформировать массивы с одинаковой размерностью в которых будет сумма числа N. Размерность чисел в массиве 1-50. Причём кол-во массивов должно быть определённое,...
Pascal Дан текстовый файл. удалить в каждом слове последнюю букву http://www.cyberforum.ru/pascal/thread98072.html
помогите...
Pascal написать программу на pascal ребят помогите пожалуйста.!.. нужно составить программы. 1. написать программу с использованием процедуры. в действительных матрицах В(4,5) и С(5,6) поменять местами строку содержащую элемент с... подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru