Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
1 / 1 / 0
Регистрация: 04.02.2011
Сообщений: 49
1

Построить блок схему по программе

03.07.2011, 12:40. Просмотров 596. Ответов 1
Метки нет (Все метки)

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
Uses crt;
Var f: text;
    prov,fam: string [20];
    v,n: integer;
    ot,d: integer;
    k,max,min,mn,mx: integer;
    o: char;
Begin
  clrscr;
  assign (f,'text.txt');
  {rewrite (f);
  repeat
    write ('Введите табельный номер: ');
    readln (n);
    write ('Введите фамлию: ');
    readln (fam);
    write ('Введите профессию: ');
    readln (prov);
    write ('Введите выработку: ');
    readln (v);
    writeln (f, n:5,fam:20,prov:20,v:5);
    write ('продолжить? Ответ: ');
    readln (o);
  until o in ['н','Н','N','n'];
  close (f);}
  writeln;
  write ('Введите предел выработки от: ');
  readln (ot);
  write ('Введите предел выработки до: ');
  readln (d);
  writeln;
  reset (f);
    k:=0;
    max:=0;
    min:=30000;
    mn:=30000;
    mx:=0;
    while not(eof(f)) do
      begin
        readln (f,n,fam,prov,v);
        if (ot<=v) and (v<=d) then inc(k);
        if (max<=v) and (v<=d) then max:=v;
        if (ot<=v) and (min>=v) and (v<=d) then min:=v;
        if mn>v then mn:=v;
        if mx<v then mx:=v;
      end;
  close (f);
  if k=0 then writeln ('Рабочих нету.')
  else
  begin
    begin
      writeln ('Список рабочих из заданных пределов.');
      writeln ('*** Табельный номер *** Фамилия *** Профессия *** Выработка ***');
      reset (f);
        while not(eof(f)) do
          begin
            readln (f,n,fam,prov,v);
            if (ot<=v) and (min>=v) and (v<=d) then writeln (n,fam,prov,v,' - Минимальная выработка.');
          end;
      close (f);
      reset (f);
        while not(eof(f)) do
          begin
            readln (f,n,fam,prov,v);
            if (ot<=v) and (v<=d) and not(v=min) and not (max=v) then writeln (n:5,fam:20,prov:20,v:5);
          end;
      close (f);
      reset (f);
        begin
          readln (f,n,fam,prov,v);
          if (max<=v) and (v<=d) then writeln (n,fam,prov,v,' - Максимальная выработка.');
          end;
      close (f);
    end;
  end;
  writeln;
  writeln ('Рабочий с минимальной выработкой.':25);
  reset (f);
    while not(eof(f)) do
      begin
        readln (f,n,fam,prov,v);
        if v=mn then writeln (n,fam,prov,v);
      end;
  close (f);
  writeln ('Рабочий с максимальной выработкой.':25);
  reset (f);
    while not(eof(f)) do
      begin
        readln (f,n,fam,prov,v);
        if v=mx then writeln (n,fam,prov,v);
      end;
  close (f);
  readkey;
End.

Заранее очень благодарен!!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.07.2011, 12:40
Ответы с готовыми решениями:

Построить блок-схему к программе
Напишите плиз блок схему к задаче) Program xy; uses crt; Var a: array of integer; i, j, m,...

Построить Блок-схему по программе (Ханойская Башня)
Program Hanoi3; Var N : byte; Procedure Hanoi(first,second,third,N : byte); Begin If N=1 then...

Составить блок-схему к программе 1 и к программе 2
1) var i, multiply,result:longint; digit:byte; fail:boolean; begin writeln('Input...

Составить блок-схему по программе
Составить блок-схему по программе

1
2853 / 1982 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
03.07.2011, 15:17 2
держите схему
1
Вложения
Тип файла: rar схема.rar (117.3 Кб, 41 просмотров)
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.07.2011, 15:17

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

написать блок схему по программе
program var_5; uses crt; var x,y:real; a,b,h:real; Fy:string; begin clrscr; ...

Нарисовать блок-схему по программе
Помогите нарисовать блок-схему по программе, пожалуйста))) очень надо!!!пожалуйста :cry: uses...

Сделать Блок-схему по программе
Помогите сделать блок-схему на программу выводящую в перевернутом виде каждое слово. Вот код....

Составьте блок-схему к программе
Uses Crt; const n=50; m=30; var s: real; i, j: integer; begin clrscr;


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

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

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