0 / 0 / 1
Регистрация: 10.03.2010
Сообщений: 66
1

Сложное сочетание данных разной структуры.

24.05.2010, 21:46. Показов 5404. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Методика выполнения работы.

Дана переменная B и матрица А, состоящая из m строк и m столбцов. Элементы C либо образуют одномерный массив из m элементов (для четных пунктов заданий 2,4,6,...), либо задано C1 и разность R арифметической прогрессии, которую образуют эти числа (нечетные пункты задания 1,3,5,...). Требуется составить алгоритм и программу вычисления значений элементов одномерного массива X1,X2, ..., Xm-1 (когда вычисляется Xi, P равно Xi-1 ). S – сумма элементов главной диагонали матрицы А, вычисляемая в алгоритме.
Программа должна включать:
1) объявление массивов вещественных данных;
2) открытие файлов для чтения (ввода) данных и для записи (вывода) данных;
3) с помощью отдельных процедур с параметрами выполнить:
4) ввод исходных данных (учесть три возможности ввода данных: с клавиатуры, случайным образом, из файла);
5) вывод массива исходных данных (для улучшения качества просмотра предпочтение отдать табличному виду и формату с фиксированной точкой);
6) обработку данных в соответствии с заданным вариантом;
7) вывод результатов выполнения программы (в процессе отладки программы – на экран; после отладки – в файл);
8) для управления работой программой разработать структуру меню для вызова каждой процедуры (формирование меню осуществляется средствами модуля CRT);
9) для тестирования программы сформировать исходные данные таким образом, чтобы проверить каждый вариант альтернативы каждого разветвления алгоритма.

помогите..
Миниатюры
Сложное сочетание данных разной структуры.  
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.05.2010, 21:46
Ответы с готовыми решениями:

Сложное сочетание данных разной структуры ?!
Объясните пожалуйста, я не понимаю самого задания, я непрошу решения, просто объясните! Дана...

Сложное сочетание данных разной структуры
Дана переменная В и матрица А, состоящая из m строк и m столбцов. Элементы С образуют одномерный...

Сложное сочетание данных разной структуры
Дана переменная В и матрица А, состоящая из m строк и m столбцов. Элементы С образуют одномерный...

Понятие структуры данных. Элементарные структуры данных. Простые структуры данных
Понятие структуры данных. Элементарные структуры данных. Простые структуры данных: методы...

4
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
27.05.2010, 06:12 2
Лучший ответ Сообщение было отмечено как решение

Решение

Цитата Сообщение от eryana Посмотреть сообщение
Элементы C либо образуют одномерный массив из m элементов (для четных пунктов заданий 2,4,6,...),
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
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
uses crt;
const nmax=50;
type matr=array[1..nmax,1..nmax] of real;
     mas=array[1..nmax] of real;
      {массив названий пунктов меню}
const glav:array[1..4] of string=('1-Ввод',
                                  '2-Обработка ',
                                  '3-Вывод',
                                  '4-Выход');
      vvod:array[1..3] of string=('1-Из файла',
                                  '2-С клавиатуры',
                                  '3-Случайным образом ');
      vyvod:array[1..2] of string=('1-На экран',
                                   '2-В файл');
var f1,f2,f3:boolean;
procedure Menyu(var k: byte;kol:byte);
var kod: char;
    i:byte;
begin
clrscr;
k:=1;
gotoxy(5,1);
k:=1;
repeat
  for i:=1 to kol do
   begin
     if i=k then
      begin
         textbackground(3);
         textcolor(12);
      end
     else
      begin
         textbackground(0);
         textcolor(15)
      end;
     gotoxy(12*(i-1)+1,1);
     write(glav[i]);
   end;
  repeat
  kod:=readkey;
  until kod in [#13, #75, #77];
  case kod of
  #75: begin  {стрелка влево}
       k:=k-1;
       if k=0 then k:=kol;{если левый край, в конец}
       end;
  #77: begin  {стрелка вправо}
       k:=k+1;
       if k>kol then k:=1;{если правый край, в нвчало}
       end;
   end;
 until kod=#13;
end;
 
procedure SubMenyu(var k:byte;kol1,kol2:byte);{создание и вывод на экран основного меню}
var kod: char;
    i:byte;
begin
window(1,1,80,25);
textbackground(0);
clrscr;
for i:=1 to kol2 do{воостановим главное меню}
 begin
  gotoxy(12*(i-1)+1,1);
  write(glav[i]);
 end;
k:=1;
gotoxy(4,2);
k:=1; {выведен первый пункт меню}
repeat
for i:=1 to kol1 do
 begin
  if i=k then {выделенный пункт}
   begin
    textbackground(3);
    textcolor(9);
   end
  else  {остальные}
   begin
    textbackground(0);
    textcolor(15)
   end;
gotoxy(1,i+1);{ставим курсор}
if kol1=3 then write(vvod[i]){выводим пункты}
else write(vyvod[i]);
end;
repeat
kod:=readkey;
until Kod in [#13, #72, #80];
case kod of
#72: begin{стрелка вверх}
     k:=k-1;
     if k=0 then k:=kol1;{если выше верха, вниз}
     end;
#80: begin {стрелка вниз}
     k:=k+1;
     if k>kol1 then k:=1;{если ниже низа, вверх}
     end;
end;
until kod=#13;{нажат Enter, выходим из меню в выбранную процедуру}
end;
procedure ReadFile(var f:text;var a:matr;var c:mas;var m:byte;var b:real;var f1:boolean);
var name:string;
    i,j:byte;
begin
textbackground(0);
textcolor(15);
clrscr;
write('Имя файла для чтения: ');
readln(name);
name:=name+'.txt';
assign(f,name);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Не могу открыть файл ',name);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
read(f,m);{читаем одно число в первой строке-размер матрицы и массива}
{читаем М строк по М чисел - матрица}
writeln('Исходная матрица А:');
for i:=1 to m do
 begin
  for j:=1 to m do
   begin
    read(f,a[i,j]); {читаем матрицу}
    write(a[i,j]:6:2,' ');
   end;
  writeln;
 end;
{читаем предпоследнюю строку - массив С}
writeln('Исходный массиа С:');
for i:=1 to m do
 begin
  read(f,c[i]);
  write(c[i]:0:2,' ');
 end;
writeln;
{читаем число в последней строке - коэффициент b}
read(f,b);
writeln('Коэффициент b=',b:0:2);
f1:=true;{матрица создана}
close(f);
write('Нажмите любую клавишу...');
readln
end;
procedure VvodKlav(var a:matr;var c:mas;var m:byte;var b:real;var f1:boolean);
var i,j:byte;
begin
textbackground(0);
textcolor(15);
clrscr;
repeat
write('Размер матрицы до ',nmax,' = ');
readln(m);
until m in [1..nmax];
writeln('Введите ',m*m,' вещественных чисел - элементов матрицы A:');
for i:=1 to m do
for j:=1 to m do
 begin
  write('el[',i,',',j,']=');
  readln(a[i,j]);
 end;
writeln('Введите ',m,' элементов массива C:');
for i:=1 to m do
 begin
  write('el[',i,']=');
  readln(c[i]);
 end;
clrscr;
writeln('Исходная матрица A:');
for i:=1 to m do
 begin
  for j:=1 to m do
  write(a[i,j]:6:2,' ');
  writeln;
 end;
writeln;
writeln('Исходный массив C:');
for i:=1 to m do
write(c[i]:0:2,' ');
writeln;
writeln;
repeat
write('Введите коэффициент, отличный от ноля b=');
readln(b);{обязательно меньше 1, тоже в знаменателе, да еще умножать на него}
until b<>0;
f1:=true;
write('Нажмите любую клавишу...');
readln
end;
procedure VvodRand(var a:matr;var c:mas;var m:byte;var b:real;var f1:boolean);
var i,j:byte;
begin
textbackground(0);
textcolor(15);
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' = ');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=4*random;
    write(a[i,j]:6:2);
   end;
  writeln;
 end;
writeln;
writeln('Исходный массив C:');
for i:=1 to m do
 begin
  c[i]:=8*random;
  write(c[i]:0:2,' ');
 end;
writeln;
writeln;
repeat
write('Введите коэффициент, отличный от ноля b=');
readln(b);{обязательно меньше 1, тоже в знаменателе, да еще умножать на него}
until b<>0;
f1:=true;
write('Нажмите любую клавишу...');
readln
end;
procedure CreateMass(a:matr;m:byte;b:real; var c,x:mas;
                     var s:real;f1:boolean;var f2:boolean);
var i,k:byte;
    p,pr:real;
begin
textbackground(0);
textcolor(15);
clrscr;
if f1=false then
 begin
  writeln('Массив еще не создан, вернитесь к пункту 1.');
  write('Нажмите любую клавишу...');
  f1:=false;
  readln;
  exit;
 end;
s:=0;
for i:=1 to m do
s:=s+a[i,i];
p:=s/(a[1,1]+b*c[1]);{нулевой элемент, Р пока нет, Сk=Ci=C[1], сокращаются}
for i:=2 to m do{начинаем со второго}
 begin
  pr:=1;{вычисляем очкредное произведение в скобке П}
  for k:=1 to m do
  pr:=pr*c[k]/(a[k,i]+b*c[k]);
  x[i-1]:=s*p*pr/c[i];{вычисляем элемент массива, его номер на 1 меньше}
  p:=x[i-1];{новое значение Р=Х(i-1)}
 end;
f2:=true;{обработка матрицы выполнена}
write('Нажмите любую клавишу...');
readln
end;
procedure WriteFile(var f:text;s:real;c,x:mas;m:byte;f1,f2:boolean);
var i,j:byte;
    name:string;
begin
textbackground(0);
textcolor(15);
clrscr;
if f1=false then
 begin
  writeln('Массив еще не создан, вернитесь к пункту 1.');
  write('Нажмите любую клавишу...');
  readln;
  exit;
 end;
if f2=false then
 begin
  writeln('Массив еще не обработан, вернитесь к пункту 2.');
  write('Нажмите любую клавишу...');
  readln;
  exit;
 end;
write('Имя файла для записи: ');
readln(name);
name:=name+'.txt';
assign(f,name);
rewrite(f);
writeln(f,'Summa elementov glavnoj diagonali = ',s:0:2);
writeln(f,'Massiv C:');
for i:=1 to m do
write(f,c[i]:0:2,' ');
writeln(f,'');
writeln(f,'Massiv X:');
for i:=1 to m-1 do
write(f,x[i]:0:6,'  ');
close(f);
write('Нажмите любую клавишу...');
readln
end;
procedure Print(s:real;c,x:mas;m:byte;f1,f2:boolean);
var i,j:byte;
begin
textbackground(0);
textcolor(15);
clrscr;
if f1=false then
 begin
  writeln('Массив еще не создан, вернитесь к пункту 1.');
  write('Нажмите любую клавишу...');
  readln;
  exit;
 end;
if f2=false then
 begin
  writeln('Массив еще не обработан, вернитесь к пункту 2.');
  write('Нажмите любую клавишу...');
  readln;
  exit;
 end;
writeln('Сумма элементов главной диагонали=',s:0:2);
writeln('Массив С:');
for i:=1 to m do
write(c[i]:0:2,' ');
writeln;
writeln;
writeln('Массив X:');
for i:=1 to m-1 do
write(x[i]:0:6,'  ');
writeln;
write('Нажмите любую клавишу...');
readln
end;
 
{основная программа}
var a:matr;
    c,x:mas;
    f:text;
    b,c1,r,s:real;
    i,m,k,w,q:byte;
begin
textbackground(0);
textcolor(15);
clrscr;
f1:=false;
repeat
   textbackground(0);
   textcolor(15);
   Menyu(k,4);{выводим меню}
   clrscr;
   case k of{выбираем стрелками действие}
   1:begin
     SubMenyu(w,3,4);
     case w of
     1:ReadFile(f,a,c,m,b,f1);
     2:VvodKlav(a,c,m,b,f1);
     3:VvodRand(a,c,m,b,f1);
     end;
     end;
   2:CreateMass(a,m,b,c,x,s,f1,f2);
   3:begin
     SubMenyu(w,2,4);
     case w of
     1:Print(s,c,x,m,f1,f2);
     2:WriteFile(f,s,c,x,m,f1,f2);
     end;
     end;
   4: begin
      window(1,1,80,25);
      textbackground(0);
      clrscr;
      textcolor(15);
      writeln('Работа программы завершена! Нажмите Enter для выхода...');
      readln;
      end;
   end;
 until k=4;
end.
Цитата Сообщение от eryana Посмотреть сообщение
либо задано C1 и разность R арифметической прогрессии, которую образуют эти числа (нечетные пункты задания 1,3,5,...).
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
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
uses crt;
const nmax=50;
type matr=array[1..nmax,1..nmax] of real;
     mas=array[1..nmax] of real;
      {массив названий пунктов меню}
const glav:array[1..4] of string=('1-Ввод',
                                  '2-Обработка ',
                                  '3-Вывод',
                                  '4-Выход');
      vvod:array[1..3] of string=('1-Из файла',
                                  '2-С клавиатуры',
                                  '3-Случайным образом ');
      vyvod:array[1..2] of string=('1-На экран',
                                   '2-В файл');
var f1,f2,f3:boolean;
procedure Menyu(var k: byte;kol:byte);
var kod: char;
    i:byte;
begin
clrscr;
k:=1;
gotoxy(5,1);
k:=1;
repeat
  for i:=1 to kol do
   begin
     if i=k then
      begin
         textbackground(3);
         textcolor(12);
      end
     else
      begin
         textbackground(0);
         textcolor(15)
      end;
     gotoxy(12*(i-1)+1,1);
     write(glav[i]);
   end;
  repeat
  kod:=readkey;
  until kod in [#13, #75, #77];
  case kod of
  #75: begin  {стрелка влево}
       k:=k-1;
       if k=0 then k:=kol;{если левый край, в конец}
       end;
  #77: begin  {стрелка вправо}
       k:=k+1;
       if k>kol then k:=1;{если правый край, в нвчало}
       end;
   end;
 until kod=#13;
end;
 
procedure SubMenyu(var k:byte;kol1,kol2:byte);{создание и вывод на экран основного меню}
var kod: char;
    i:byte;
begin
window(1,1,80,25);
textbackground(0);
clrscr;
for i:=1 to kol2 do{воостановим главное меню}
 begin
  gotoxy(12*(i-1)+1,1);
  write(glav[i]);
 end;
k:=1;
gotoxy(4,2);
k:=1; {выведен первый пункт меню}
repeat
for i:=1 to kol1 do
 begin
  if i=k then {выделенный пункт}
   begin
    textbackground(3);
    textcolor(9);
   end
  else  {остальные}
   begin
    textbackground(0);
    textcolor(15)
   end;
gotoxy(1,i+1);{ставим курсор}
if kol1=3 then write(vvod[i]){выводим пункты}
else write(vyvod[i]);
end;
repeat
kod:=readkey;
until Kod in [#13, #72, #80];
case kod of
#72: begin{стрелка вверх}
     k:=k-1;
     if k=0 then k:=kol1;{если выше верха, вниз}
     end;
#80: begin {стрелка вниз}
     k:=k+1;
     if k>kol1 then k:=1;{если ниже низа, вверх}
     end;
end;
until kod=#13;{нажат Enter, выходим из меню в выбранную процедуру}
end;
procedure ReadFile(var f:text;var a:matr;var m:byte;var b,c1,r:real;var f1:boolean);
var name:string;
    i,j:byte;
begin
textbackground(0);
textcolor(15);
clrscr;
write('Имя файла для чтения: ');
readln(name);
name:=name+'.txt';
assign(f,name);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Не могу открыть файл ',name);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
read(f,m);{читаем одно число в первой строке-размер матрицы и массива}
{читаем М строк по М чисел - матрица}
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to m do
   begin
    read(f,a[i,j]); {читаем матрицу}
    write(a[i,j]:6:2,' ');
   end;
  writeln;
 end;
{читаем три числа в последней строке - коэфф b, С1, r}
read(f,b);
writeln('Коэффициент b=',b:0:2);
read(f,c1);
writeln('Первый цлен прогрессии c1=',c1:0:2);
read(f,r);
writeln('Разность прогрессии r=',r:0:2);
f1:=true;{матрица создана}
close(f);
write('Нажмите любую клавишу...');
readln
end;
procedure VvodKlav(var a:matr;var m:byte;var b,c1,r:real;var f1:boolean);
var i,j:byte;
begin
textbackground(0);
textcolor(15);
clrscr;
repeat
write('Размер матрицы до ',nmax,' = ');
readln(m);
until m in [1..nmax];
writeln('Введите ',m*m,' вещественных чисел - элементов матрицы:');
for i:=1 to m do
for j:=1 to m do
 begin
  write('el[',i,',',j,']=');
  readln(a[i,j]);
 end;
clrscr;
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to m do
  write(a[i,j]:6:2,' ');
  writeln;
 end;
write('Введите первый член последовательности c1=');
readln(c1);{небольшде значение}
write('Введите разность прогрессии r=');
readln(r);{желательно поменьше}
repeat
write('Введите коэффициент, отличный от ноля b=');
readln(b);{обязательно меньше 1, тоже в знаменателе, да еще умножать на него}
until b<>0;
f1:=true;
write('Нажмите любую клавишу...');
readln
end;
procedure VvodRand(var a:matr;var m:byte;var b,c1,r:real;var f1:boolean);
var i,j:byte;
begin
textbackground(0);
textcolor(15);
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' = ');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=4*random;
    write(a[i,j]:6:2);
   end;
  writeln;
 end;
write('Введите первый член последовательности c1=');
readln(c1);{небольшде значение}
write('Введите разность прогрессии r=');
readln(r);{желательно поменьше}
repeat
write('Введите коэффициент, отличный от ноля b=');
readln(b);{обязательно меньше 1, тоже в знаменателе, да еще умножать на него}
until b<>0;
f1:=true;
write('Нажмите любую клавишу...');
readln
end;
procedure CreateMass(a:matr;m:byte;b,c1,r:real; var c,x:mas;
                     var s:real;f1:boolean; var f2:boolean);
var i,k:byte;
    p,pr:real;
begin
textbackground(0);
textcolor(15);
clrscr;
if f1=false then
 begin
  writeln('Массив еще не создан, вернитесь к пункту 1.');
  write('Нажмите любую клавишу...');
  f1:=false;
  readln;
  exit;
 end;
c[1]:=c1;
for i:=2 to m do
c[i]:=c[i-1]+r;
s:=0;
for i:=1 to m do
s:=s+a[i,i];
p:=s/(a[1,1]+b*c[1]);{нулевой элемент, Р пока нет, Сk=Ci=C[1], сокращаются}
for i:=2 to m do{начинаем со второго}
 begin
  pr:=1;{вычисляем очкредное произведение в скобке П}
  for k:=1 to m do
  pr:=pr*c[k]/(a[k,i]+b*c[k]);
  x[i-1]:=s*p*pr/c[i];{вычисляем элемент массива, его номер на 1 меньше}
  p:=x[i-1];{новое значение Р=Х(i-1)}
 end;
f2:=true;{обработка матрицы выполнена}
write('Нажмите любую клавишу...');
readln
end;
procedure WriteFile(var f:text;s:real;c,x:mas;m:byte;f1,f2:boolean);
var i,j:byte;
    name:string;
begin
textbackground(0);
textcolor(15);
clrscr;
if f1=false then
 begin
  writeln('Массив еще не создан, вернитесь к пункту 1.');
  write('Нажмите любую клавишу...');
  readln;
  exit;
 end;
if f2=false then
 begin
  writeln('Массив еще не обработан, вернитесь к пункту 2.');
  write('Нажмите любую клавишу...');
  readln;
  exit;
 end;
write('Имя файла для записи: ');
readln(name);
name:=name+'.txt';
assign(f,name);
rewrite(f);
writeln(f,'Summa elementov glavnoj diagonali = ',s:0:2);
writeln(f,'Progressia:');
for i:=1 to m do
write(f,c[i]:0:2,' ');
writeln(f,'');
writeln(f,'Massiv X:');
for i:=1 to m-1 do
write(f,x[i]:0:6,'  ');
close(f);
write('Нажмите любую клавишу...');
readln
end;
procedure Print(s:real;c,x:mas;m:byte;f1,f2:boolean);
var i,j:byte;
begin
textbackground(0);
textcolor(15);
clrscr;
if f1=false then
 begin
  writeln('Массив еще не создан, вернитесь к пункту 1.');
  write('Нажмите любую клавишу...');
  readln;
  exit;
 end;
if f2=false then
 begin
  writeln('Массив еще не обработан, вернитесь к пункту 2.');
  write('Нажмите любую клавишу...');
  readln;
  exit;
 end;
writeln('Сумма элементов главной диагонали=',s:0:2);
writeln('Прогрессия:');
for i:=1 to m do
write(c[i]:0:2,' ');
writeln;
writeln;
writeln('Массив X:');
for i:=1 to m-1 do
write(x[i]:0:6,'  ');
writeln;
write('Нажмите любую клавишу...');
readln
end;
 
{основная программа}
var a:matr;
    c,x:mas;
    f:text;
    b,c1,r,s:real;
    i,m,k,w,q:byte;
begin
textbackground(0);
textcolor(15);
clrscr;
f1:=false;
repeat
   textbackground(0);
   textcolor(15);
   Menyu(k,4);{выводим меню}
   clrscr;
   case k of{выбираем стрелками действие}
   1:begin
     SubMenyu(w,3,4);
     case w of
     1:ReadFile(f,a,m,b,c1,r,f1);
     2:VvodKlav(a,m,b,c1,r,f1);
     3:VvodRand(a,m,b,c1,r,f1);
     end;
     end;
   2:CreateMass(a,m,b,c1,r,c,x,s,f1,f2);
   3:begin
     SubMenyu(w,2,4);
     case w of
     1:Print(s,c,x,m,f1,f2);
     2:WriteFile(f,s,c,x,m,f1,f2);
     end;
     end;
   4: begin
      window(1,1,80,25);
      textbackground(0);
      clrscr;
      textcolor(15);
      writeln('Работа программы завершена! Нажмите Enter для выхода...');
      readln;
      end;
   end;
 until k=4;
end.
Вложения
Тип файла: rar программы.rar (5.1 Кб, 154 просмотров)
5
0 / 0 / 0
Регистрация: 21.09.2018
Сообщений: 2
23.09.2018, 11:09 3
Добавлено через 2 минуты
В 115 строке выдает неизвестное имя
Что там нужно написать?
0
Модератор
9254 / 6032 / 2379
Регистрация: 21.01.2014
Сообщений: 25,784
Записей в блоге: 3
24.09.2018, 11:49 4
Ничего там не надо писать... функция IOResult должна быть определена изначально... Что-то Вы там не так написали...
0
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
24.09.2018, 14:18 5
Цитата Сообщение от Om1 Посмотреть сообщение
В 115 строке выдает неизвестное имя
Просто код написан для Турбо Паскаль, как и называется раздел, а в чем Вы пытаетесь запустить нам не известно.
0
24.09.2018, 14:18
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.09.2018, 14:18
Помогаю со студенческими работами здесь

Собрать из большой кучи файлов разной структуры некоторые данные в один - VBA
Добрый день, с VBA не знакома, прошу подсказать - по форуму поиском смотрю - есть темы -...

Сложное восстановление данных
Всем привет,столкнулся с такой проблемой,перекинул папку с 256 фотографиями с ноутбка на телефон...

Оперативная память с разной частоты и разной пропускной способностью
Здравствуйте, уважаемые форумчане! Решил собрать новый ПК, у меня уже есть две планки оперативной...

Сложное разделение данных из одного поля в несколько
Добрый вечер Господа форумчане, вечер добрый, очень прошу совета. Пользуюсь Access 2010. Дело...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru