IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Записи!
programerNOX
сообщение 27.11.2003 21:18
Сообщение #1


Гость






Задание:
Составить програму упорядоченея списка бригады в порядке убывания производительности(ведомость сделать в файле);
То что я зделал:
Program Pr1;
  uses crt;
  const
      n=3;
      kolchasov=8;
  type
      y=record
        nn:integer;
        fio:string[15];
        kol:real;
        vp:array[1..8] of real;
        vrem:real;
        proiz:real;
      end;
      r=array[1..n] of y;
  var
     x:r;
     i,j:integer;
     s:y;
     fl:boolean;
  Procedure vvod;
    var
      i:integer;
      f:text;
  begin
      clrscr;
      writeln('Создание файла');
      readkey;
      assign(f,'c:vedomost.txt');
      rewrite(f);
      writeln('Файл создан­');
      readkey;
      for i:=1 to n do
        begin
            x[i].nn:=1;
            textcolor(3);
            writeln('Заполнение ведомости');
            write('ФИО : ');
            readln(x[i].fio);
            writeln(f,'ФИО : ', x[i].fio);
            write('Количество часов за смену : ');
            readln(x[i].kol);
            writeln(f,''Количество часов за смену :',x[i].kol:4 :2);
            write('Выпускаемая продукцыя : ');
             for j:=1 to kolchasov do
               begin
                 writeln('за ', j ,' час  ');
                 readln(x[i].vp[j]);
                 writeln(f,'за ',j,'час',x[i].vp[j]:4 :2);
               end;
             write('Время простоя : ');
             readln(x[i].vrem);
             writeln(f,'Время простоя : ', x[i].vrem);
             write('Произ. деталей в еденицу времени :');
             x[i].proiz:=x[i].vp[kolchasov]/(x[i].kol-x[i].vrem);
             writeln(x[i].proiz:4 :1);
             writeln(f,'Произ. деталей в еденицу времени :',x[i].proiz);
        end;
        close(f);
  end;
begin

  vvod;
end.

Как мне упорядочить список и как вывести содержымое списка(что находится в файле) на екран???
Пожалусто помогите к завтрешнему дню!
 К началу страницы 
+ Ответить 

Сообщений в этой теме
programerNOX   Записи!   27.11.2003 21:18
GLuk   Re: Записи!!!   28.11.2003 11:24
programerNOX   Re: Записи!!!   28.11.2003 20:39
programerNOX   Re: Записи!!!   4.12.2003 11:05
programerNOX   Re: Записи!!!   4.12.2003 20:06
programerNOX   Re: Записи!!!   7.12.2003 10:23


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 23.07.2025 3:43
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"