Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
demon31
0 / 0 / 2
Регистрация: 01.10.2013
Сообщений: 341
1

Блок-схема к программе

24.06.2014, 12:08. Просмотров 152. Ответов 0
Метки нет (Все метки)

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

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
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
program type_record;
 
type weapon=record
     model: string[30];
     kalibr: real;
     dalnost: real;
     oboima: integer;
     stoimost: real;
end;
 
TWeapon=array [1..100] of weapon;
var x: Tweapon;
    maxdal, maxkal: weapon;
    Fout: text;
    i, n, y, c, k: integer;
    Fin: file of weapon;
    FinS,FoutS: string;
 
procedure sort(var Arr:Tweapon;n:integer);
var i,j:integer;
    x:weapon;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
 if arr[i].stoimost<arr[j].stoimost then
  begin
    x:=arr[i];
    arr[i]:=arr[j];
    arr[j]:=x;
  end;
end;
 
begin
 FinS:='Result.bin';FoutS:='Result.txt';
 writeln('Выбирите действие ');
 writeln('1. Добавить оружие: ');
 writeln('2. Перезаписать оружие: ');
 writeln('3. Выйти:');
 readln(c);
 
 if c=1 then
 
begin
write('Введите количество марок: '); readln(k);
  assign(Fout, FoutS);assign(Fin, FinS);
  n:=1;
  if FileExists(FinS) then
     begin
       reset(Fin);
       while not eof(Fin) do
        begin
          read(Fin,x[n]);inc(n);
        end;
     end;
   for y := 1 to k do
   begin
    Write('Модель: '); ReadLn(x[n].model);
    Write('Калибр: '); ReadLn(x[n].kalibr);
    Write('Дальность: '); ReadLn(x[n].dalnost);
    Write('Объем обоймы: '); ReadLn(x[n].oboima);
    Write('Стоимость: '); ReadLn(x[n].stoimost);
    writeln;
   if x[n].kalibr > maxkal.kalibr then maxkal := x[n];
   if x[n].dalnost > maxdal.dalnost then maxdal := x[n];
    inc(n);
    end;
    sort(x,n-1);
    rewrite(Fout);rewrite(Fin);
    for i:= 1 to n-1 do
  begin
    writeln(Fout,'Модель оружия: ',x[i].model,'');
    writeln(Fout,'Калибр пули: ',x[i].kalibr,' mm');
    writeln(Fout,'Дальность стрельбы: ',x[i].dalnost,' метр(ов)');
    writeln(Fout,'Объём обоимы: ',x[i].oboima,' патрон(ов)');
    writeln(Fout,'Стоимость: ',x[i].stoimost,'$');
     writeln(Fout,'');
    write(Fin,X[i]);
  end;
close(fout);close(fin);
end;
 
if c=2 then
 
  begin
   write('Введите количество марок: '); readln(k);
     assign(Fout, FoutS); rewrite(Fout);
     assign(Fin, FinS); rewrite(Fin);
      n:=1;
       for y := 1 to k do
   begin
    Write('Модель: '); ReadLn(x[n].model);
    Write('Калибр: '); ReadLn(x[n].kalibr);
    Write('Дальность: '); ReadLn(x[n].dalnost);
    Write('Объем обоймы: '); ReadLn(x[n].oboima);
    Write('Стоимость: '); ReadLn(x[n].stoimost);
    writeln;
   if x[n].kalibr > maxkal.kalibr then maxkal := x[n];
   if x[n].dalnost > maxdal.dalnost then maxdal := x[n];
    inc(n);
    end;
 sort(x,n-1);
    for i:= 1 to n-1 do
  begin
    writeln(Fout,'Модель оружия: ',x[i].model,'');
    writeln(Fout,'Калибр пули: ',x[i].kalibr,' mm');
    writeln(Fout,'Дальность стрельбы: ',x[i].dalnost,' метр(ов)');
    writeln(Fout,'Объём обоимы: ',x[i].oboima,' патрон(ов)');
    writeln(Fout,'Стоимость: ',x[i].stoimost,'$');
     writeln(Fout,'');
    write(Fin,x[i]);
  end;
    close(fout);close(fin);
  end;
  
  if c=3 then exit;
  
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.06.2014, 12:08
Ответы с готовыми решениями:

Блок-схема по программе
program t; var a:array of integer; d,i,j:integer; begin randomize; for i:=1 to 10 do begin...

Блок схема по программе
напишите блок схему к задаче: program Project1; uses crt; var mass : array of Real; n,...

Блок-схема к программе
Составить блок-схему программы: uses crt; var k,i: integer; begin write ('k='); readln (k);...

Блок схема по программе
Ребят помогите пожалуйста. Вот исходная программа program parol; const pass='258456'; ...

Блок схема по программе
uses crt; const max=20; var k,i:byte; p:array of integer; pb:array of string; ...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.06.2014, 12:08

Блок-схема к программе
uses crt; var c: array of integer; n,i,j,sum,kp,a,b,k: integer; begin writeln('Для ввода...

Блок-схема к программе
var z,b:array of integer; k,l,sum,i,n:integer; begin for i:=1 to 15 do begin...

Блок-схема по написанной программе
program lab3; type mass=array of integer; var A,B,C,D: mass; n,m:integer; procedure...


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

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

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