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

Файлы

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

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

Файлы
Доброго времени суток возник вопросик: Дан текстовой файл и некоторое слово....

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

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

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

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

2
yanyk1n
4331 / 1463 / 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

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

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

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


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

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

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