Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Sergey_SH
0 / 0 / 0
Регистрация: 22.01.2015
Сообщений: 1
1

Сформировать из положительных элементов файла квадратную матрицу максимально возможного размера

22.01.2015, 20:28. Просмотров 319. Ответов 3
Метки нет (Все метки)

Дан файл f.Сформировать из его положительных элементов квадратную мутрицу максимально возможного размера.буду очень благодарен

Добавлено через 58 минут
можно или паскаль или блок-схему
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.01.2015, 20:28
Ответы с готовыми решениями:

Сформировать квадратную матрицу и подсчитать сумму заданных элементов
Буду очень благодарна. Дано чётное натуральное n>9 и целое k. Создать квадратную матрицу порядка...

Из положительных элементов матрицы N сформировать матрицу M
помогите решить задачу.Буду очень благодарна N(10, 10) Из положительных элементов матрицы N...

Сформировать квадратную матрицу
Помогите решить задачи. 1. Сформировать квадратную матрицу по заданному образцу: 1 1 1 ...

Сформировать квадратную матрицу
Сформировать квадратную матрицу порядка n, по заданному образцу.

Сформировать квадратную матрицу по образцу
Помогите пожалуйста \begin{matrix}n & 0 & 0 & \cdots & \ 0\ & \ 0\ & \ 0\ \\\\ 0 & n-1 & 0 &...

3
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4009 / 2943 / 3685
Регистрация: 05.06.2014
Сообщений: 14,574
23.01.2015, 09:28 2
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
var
  m,i,j,k,n,buf:integer;
  a:array[1..100,1..100] of integer;
  b:array[1..10000] of integer;
  f:file of integer;
begin
  write('Введите количество элементов файла (<=10000): '); readln(k);
  assign(f,'numbers.dat');
  rewrite(f);
  for i:=1 to k do
    begin
//      m:=random(k)-k div 2; // random
      write('Введите ',i,'-ю компоненту файла: '); readln(m);
      write(f,m);
    end;
  close(f);
 
  k:=0;
  reset(F);
  while not eof(f) do
    begin
      read(F,buf);
      if buf>0 then
        begin
          inc(k);
          b[k]:=buf;
        end;
    end;
  close(f);
  m:=1;
//  k:=4; b[1]:=1; b[2]:=2; b[3]:=3; b[4]:=4;// Отладка
  if frac(sqrt(k))=0 then
    begin
      n:=round(sqrt(k));
      for i:=1 to N do
        begin
          for j:=1 to n do
            begin
              A[i,j]:=b[m];
              inc(m);
              write(a[i,j]:4)
            end;
          writeln;
        end;
    end
  else
    begin
      writeln('В файле F недостаточно компонент для построения квадратной матрицы.');
    end;
  readln;
end.
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
4041 / 2659 / 2135
Регистрация: 22.11.2013
Сообщений: 7,466
23.01.2015, 11:08 3
Можно как-то так:
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
const
  nmax=100; LIM1=99; LIM2=199;
var
  a: array [1..nmax,1..nmax] of Integer;
  f: file of Integer;
  i, j, n, p: Integer;
begin
  Randomize;
  Assign(f,'nums.dat'); Rewrite(f);
  { формирование файла }
  repeat
    Write('Количество элементов в файле (1..',sqr(nmax),'): '); ReadLn(n);
  until (n>0) and (n<=sqr(nmax));
  for i:=1 to n do begin
    p:=-LIM1 div 2+Random(LIM2); Write(f,p);
  end;
  { подсчет положительных }
  n:=0; Seek(f,0); WriteLn('Содержимое файла:');
  while not EOF(f) do begin
    Read(f,p); Write(p:W);
    if p>0 then Inc(n);
  end; WriteLn;
  { формирование и вывод матрицы }
  n:=Trunc(sqrt(n));
  if n<2 then WriteLn('Недостаточно элементов для квадратной матрицы')
  else begin
    Seek(f,0); WriteLn('A=');
    for i:=1 to n do begin
      for j:=1 to n do begin
        repeat Read(f,a[i,j]) until a[i,j]>0;
        Write(a[i,j]:4);
      end; WriteLn;
    end;
  end;
  Close(f);
end.
Добавлено через 5 минут
ZX Spectrum-128,
с Frac и Round как-то спорно, не находите?
1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4009 / 2943 / 3685
Регистрация: 05.06.2014
Сообщений: 14,574
23.01.2015, 11:11 4
bormant, согласен.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.01.2015, 11:11

Сформировать квадратную матрицу по образцу
Сформировать матрицу порядка n...

Сформировать квадратную матрицу по образцу
сформировать квадратную матрицу порядка n по заданному образцу 1 0 0 . . . 0 0 1 1 1 0 . . . 0...

Сформировать квадратную матрицу по образцу
Вот такую матрицу 10...01 01...10 ... .. .. . .. .. ... 01...10 10...01


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

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

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