Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Перезагрузить страницу записать в файл
Регистрация

Восстановить пароль		 Повторная активизация e-mail
Регистрация Задать
вопрос		 Заплачу
за решение		 Новые
сообщения 		Сообщения
за день 		Расширенный
поиск		 Правила Всё
прочитано

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.05.2012, 23:43   #1
Дашуля_18
Пользователь
 
Регистрация: 18.03.2012
Сообщений: 16
Восклицание записать в файл
помогите пожалуйста записать в файл и вывести на экран!! не получается сделать. Ошибка


Код:
program a;
uses crt;
 
const
   n = 5;
   m = 7;
   tek_god = 2008;
   min_zap = 100;
type anketa=record
   fio : string[45];
   god, deti : integer;
   invalid : boolean;
   ychv :  boolean;
   zarplata : integer;
   pomosch : integer;
   vsego : integer;
end;
var
   tablica: array [1..n] of anketa;
   i,j: integer;
   itogo : array [1..m] of LongInt;
   sredn_vozrast: real;
begin
   tablica[1].fio := 'Петров';
   tablica[2].fio := 'Иванов';
   tablica[3].fio := 'Соколов';
   tablica[4].fio := 'Федоров';
   tablica[5].fio := 'Котов';
   
   tablica[1].god := 1940;
   tablica[2].god := 1978;
   tablica[3].god := 1925;
   tablica[4].god := 1985;
   tablica[5].god := 1928;
 
   tablica[1].deti := 2;
   tablica[2].deti := 3;
   tablica[3].deti := 5;
   tablica[4].deti := 1;
   tablica[5].deti := 3;
 
   tablica[1].invalid := false;
   tablica[2].invalid := true;
   tablica[3].invalid := true;
   tablica[4].invalid := false;
   tablica[5].invalid := true;
 
 
   tablica[1].ychv := false;
   tablica[2].ychv := false;
   tablica[3].ychv := true;
   tablica[4].ychv := false;
   tablica[5].ychv := true;
 
   tablica[1].zarplata := 1500;
   tablica[2].zarplata := 1750;
   tablica[3].zarplata := 900;
   tablica[4].zarplata := 1600;
   tablica[5].zarplata := 1200;
   writeln;
   sredn_vozrast := 0;
   
   for i:=1 to n do
   begin
      write(tablica[i].fio:9);
      write(tablica[i].god:9);
      write(tablica[i].deti:9);
      if (tablica[i].invalid = true) then
      write('Да':9)
      else
      write('Нет':9);
      if (tablica[i].ychv = true) then
      write('Да':9)
      else
      write('Нет':9);
      write(tablica[i].zarplata:9);
 
      
      tablica[i].pomosch := 0;
      tablica[i].vsego := 0;
      if (tablica[i].deti > 2) then
      tablica[i].pomosch := tablica[i].pomosch + min_zap * tablica[i].deti;
 
   if (((tablica[i].invalid = true) or (tablica[i].ychv = true))
   and ((tek_god - tablica[i].god)>60)) then
      tablica[i].pomosch := tablica[i].pomosch +  min_zap * 2;
      
      tablica[i].vsego := tablica[i].zarplata + tablica[i].pomosch;
 
      sredn_vozrast := sredn_vozrast + (tek_god - tablica[i].god);
      
      write(tablica[i].pomosch:9);
      write(tablica[i].vsego:9);
      writeln;
   end;
   write('ИТОГО:':9);
   for i:=1 to n do
   begin
      itogo[1] := itogo[1] + tablica[i].god;
      itogo[2] := itogo[2] + tablica[i].deti;
      if (tablica[i].invalid = true) then
         itogo[3] := itogo[3] + 1;
      if (tablica[i].ychv = true) then
         itogo[4] := itogo[4] + 1;
      itogo[5] := itogo[5] + tablica[i].zarplata;
      itogo[6] := itogo[6] + tablica[i].pomosch;
      itogo[7] := itogo[7] + tablica[i].vsego;
   end;
 
   for i:=1 to m do
   begin
   write(itogo[i]:9)
   end;
   writeln;
 
   sredn_vozrast := sredn_vozrast / n;
   
   write('Средний возраст работников: ');
   writeln(sredn_vozrast);
   write('Ноябрь: ');
   writeln(tek_god);
   write('Минимальная зарплата: ');
   writeln(min_zap);
 
end.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.
Последний раз редактировалось Serge_Bliznykov; 25.05.2012 в 00:17.
Дашуля_18 вне форума Ответить с цитированием
Старый 26.05.2012, 17:43   #2
Дашуля_18
Пользователь
 
Регистрация: 18.03.2012
Сообщений: 16
Восклицание
Цитата:
Сообщение от Дашуля_18 Посмотреть сообщение
помогите пожалуйста записать в файл и вывести на экран!! не получается сделать. Ошибка


Код:
program a;
uses crt;
 
const
   n = 5;
   m = 7;
   tek_god = 2008;
   min_zap = 100;
type anketa=record
   fio : string[45];
   god, deti : integer;
   invalid : boolean;
   ychv :  boolean;
   zarplata : integer;
   pomosch : integer;
   vsego : integer;
end;
var
   tablica: array [1..n] of anketa;
   i,j: integer;
   itogo : array [1..m] of LongInt;
   sredn_vozrast: real;
begin
   tablica[1].fio := 'Петров';
   tablica[2].fio := 'Иванов';
   tablica[3].fio := 'Соколов';
   tablica[4].fio := 'Федоров';
   tablica[5].fio := 'Котов';
   
   tablica[1].god := 1940;
   tablica[2].god := 1978;
   tablica[3].god := 1925;
   tablica[4].god := 1985;
   tablica[5].god := 1928;
 
   tablica[1].deti := 2;
   tablica[2].deti := 3;
   tablica[3].deti := 5;
   tablica[4].deti := 1;
   tablica[5].deti := 3;
 
   tablica[1].invalid := false;
   tablica[2].invalid := true;
   tablica[3].invalid := true;
   tablica[4].invalid := false;
   tablica[5].invalid := true;
 
 
   tablica[1].ychv := false;
   tablica[2].ychv := false;
   tablica[3].ychv := true;
   tablica[4].ychv := false;
   tablica[5].ychv := true;
 
   tablica[1].zarplata := 1500;
   tablica[2].zarplata := 1750;
   tablica[3].zarplata := 900;
   tablica[4].zarplata := 1600;
   tablica[5].zarplata := 1200;
   writeln;
   sredn_vozrast := 0;
   
   for i:=1 to n do
   begin
      write(tablica[i].fio:9);
      write(tablica[i].god:9);
      write(tablica[i].deti:9);
      if (tablica[i].invalid = true) then
      write('Да':9)
      else
      write('Нет':9);
      if (tablica[i].ychv = true) then
      write('Да':9)
      else
      write('Нет':9);
      write(tablica[i].zarplata:9);
 
      
      tablica[i].pomosch := 0;
      tablica[i].vsego := 0;
      if (tablica[i].deti > 2) then
      tablica[i].pomosch := tablica[i].pomosch + min_zap * tablica[i].deti;
 
   if (((tablica[i].invalid = true) or (tablica[i].ychv = true))
   and ((tek_god - tablica[i].god)>60)) then
      tablica[i].pomosch := tablica[i].pomosch +  min_zap * 2;
      
      tablica[i].vsego := tablica[i].zarplata + tablica[i].pomosch;
 
      sredn_vozrast := sredn_vozrast + (tek_god - tablica[i].god);
      
      write(tablica[i].pomosch:9);
      write(tablica[i].vsego:9);
      writeln;
   end;
   write('ИТОГО:':9);
   for i:=1 to n do
   begin
      itogo[1] := itogo[1] + tablica[i].god;
      itogo[2] := itogo[2] + tablica[i].deti;
      if (tablica[i].invalid = true) then
         itogo[3] := itogo[3] + 1;
      if (tablica[i].ychv = true) then
         itogo[4] := itogo[4] + 1;
      itogo[5] := itogo[5] + tablica[i].zarplata;
      itogo[6] := itogo[6] + tablica[i].pomosch;
      itogo[7] := itogo[7] + tablica[i].vsego;
   end;
 
   for i:=1 to m do
   begin
   write(itogo[i]:9)
   end;
   writeln;
 
   sredn_vozrast := sredn_vozrast / n;
   
   write('Средний возраст работников: ');
   writeln(sredn_vozrast);
   write('Ноябрь: ');
   writeln(tek_god);
   write('Минимальная зарплата: ');
   writeln(min_zap);
 
end.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

помогите пожалуйстааааа!!! не могу сделать!
Дашуля_18 вне форума Ответить с цитированием
Старый 26.05.2012, 17:57   #3
ACE Valery
Сама себе режиссер
Старожил
 
Аватар для ACE Valery
 
Регистрация: 27.04.2007
Сообщений: 3,365
По умолчанию
Вы соизволите написать, какая ошибка, или будете продолжать ныть просьбами о помощи?
Если я вас напрягаю или раздражаю, вы всегда можете забиться в угол и поплакать
ACE Valery вне форума Ответить с цитированием
Старый 26.05.2012, 18:16   #4
Дашуля_18
Пользователь
 
Регистрация: 18.03.2012
Сообщений: 16
По умолчанию
в общем...вроде все сделала как надо....но раньше без записи в файл программа выполнялась и все выводилось на экран...а теперь просто пустой экран и пишется, что программа завершена....не могу что не так сделала!
Дашуля_18 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Записать в файл 777user777 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 5 04.02.2012 21:36
Символьный файл F. Записать в файл G компоненты файла F в обратном порядке,сначала все нечетные, затем чётные. Паскаль. ICE_LADY Помощь студентам 0 08.06.2011 17:32
Записать в Файл sanek_next Помощь студентам 0 19.10.2010 19:54
Записать в файл... Дмитрий ВМК Общие вопросы Delphi 1 26.04.2010 17:45
Как записать файл в файл программы? Хамяг Общие вопросы Delphi 2 02.11.2008 16:01

Реклама на форуме - Обратная связь - Правила - Исходники Delphi - Справочник Delphi - Архив - Вверх