Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
C.J.
1 / 1 / 1
Регистрация: 19.11.2009
Сообщений: 42
#1

Файлы - Pascal

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

Уважаемые модератоы. Помогите, пожалуйста с решением, если это не составит труда. Просто я не очень разбираюсь с файлами в паскале.
http://www.cyberforum.ru/pascal/thread125494.html
В файле хранятся реквизиты рабочих: фамилия, имя, отчество, дата рождения, адрес, количество детей, количество отработанных часов, расценка одного часа. Заработная плата вычисляется умножением количества отработанных часов на расценку минус 12% налога. Величина налога уменьшается на 0,01% на каждого имеющегося ребенка. Записать в другой файл фамилии и инициалы рабочих и их дату рождения.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.02.2010, 20:19
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Файлы (Pascal):

Файлы.
дополнение каждой сроки заданым символом таким образом, чтобы ее длина стала...

файлы
имеется файл,который состоит из ФИО, 5 зачетов, 5 оценок. получить новый...

файлы
в общем есть текстовый файл, в нем 10 слов, как эти слова можно записать в...

файлы
Не подскажете где ошибка? program files; const nmax=10; ...

Файлы\\
заданы файлы f1, f2, f3, f4, f5, компонентами которого являються действительные...

2
yanyk1n
4331 / 1462 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
22.02.2010, 20:37 #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
C.J.
1 / 1 / 1
Регистрация: 19.11.2009
Сообщений: 42
22.02.2010, 20:41  [ТС] #3
Благодарю, на счёт даты понял. А на счёт задания, всё в порядке. Просто у нас задания частенько неккоректо составляют им казусы бывают.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.02.2010, 20:41
Привет! Вот еще темы с решениями:

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

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

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

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


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

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

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