Разработка массивов данных

Порфирий · 10.03.2017, 00:34

Из символов произвольного предложения сформировать массив целых чисел, соответствующих порядковому номеру литер в коде КОИ-7. Определить максимальный элемент этого массива.

Vladimir_S · 10.03.2017, 10:03

Цитата:

Сообщение от Порфирий

в коде КОИ-7

За это не ручаюсь. Какая установлена кодировка кириллицы, в той и будет. Во всяком случае, для латиницы это значения не имеет.

Код:

Var
 S:String;
 A:Array[1..255] of Byte;
 i,n,Mx:Byte;

Begin
 Writeln('Enter the string:');
 Readln(S);
 Mx:=0;
 i:=1;
 n:=0;
 Repeat
  if S[i]<>' ' then
   begin
    n:=n+1;
    A[n]:=Ord(S[i]);
    if A[n]>Mx then Mx:=A[n];
   end;
  i:=i+1;
 Until i>Length(S);
 for i:=1 to n do write(A[i]:4);
 writeln;
 writeln('Max = ',Mx);
 Readln
End.

Порфирий · 19.03.2017, 15:36

Vladimir_S, а могли бы в виде Блок-схемы изобразить эту программу?

Vladimir_S · 19.03.2017, 18:52

Цитата:

Сообщение от Порфирий

Vladimir_S, а могли бы в виде Блок-схемы изобразить эту программу?

Нет, не мог бы. Блок-схемами, извините, не занимаюсь и не пользуюсь. Поищите в Сети OnLine сервисы для рисования блок-схем по готовым программам, либо приложения, которые делают это же. Давно не проверял, но еще сравнительно недавно такого добра было навалом.
P.S. И да, если будете пользоваться такими сервисами, команду Readln во второй снизу строке уберите. (Это "останов", а на блок-схеме отобразится ввод непонятно чего. Лучше без неё).

Порфирий · 26.03.2017, 13:13

ЗАДАНИЕ: Составить массив B[5] из суммы элементов строк матрицы A[5*6].
Я составил программу, но выдает какую-то ошибку. Помогите найти её и исправить.
Вот текст программы, который я написал.

const
m = 5;
n = 6;
var
a: array[1..m,1..n] of byte;
s: array[1..5] of byte;
i,j, sum: byte;
begin
randomize;
for i := 1 to m do begin
for j := 1 to n do begin
a[i,j] := random(10);
write (a[i,j]:3)
end;
writeln
end;
writeln ('vvivod:');
for j := 1 to n do begin
for i := 1 to m do begin
s[j] := s[j] + a[i,j];
sum := sum + a[i,j]
end;
write (s[j]:3)
end;
write ('sum = ', sum);
readln
end.

Vladimir_S · 26.03.2017, 14:23

Цитата:

Сообщение от Порфирий

Я составил программу, но выдает какую-то ошибку

Естественно, выдаёт! Потому что j в цикле подсчета сумм у Вас меняется от 1 до 6, а массиву s Вы задаёте диапазон 1..5. Так что разбирайтесь внимательно со строками/столбцами.

10.03.2017, 00:34	#1 (permalink)
Порфирий Member Регистрация: 17.02.2017 Сообщений: 12 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Разработка массивов данных Из символов произвольного предложения сформировать массив целых чисел, соответствующих порядковому номеру литер в коде КОИ-7. Определить максимальный элемент этого массива.

10.03.2017, 00:34
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	На форуме много схожих тем, можете полистать Обработка массивов Массив массивов C# Восстановление данных с RAID-массивов и серверов Обработка массивов Разработка приложений для обработки текстовых данных

19.03.2017, 15:36	#3 (permalink)
Порфирий Member Регистрация: 17.02.2017 Сообщений: 12 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Vladimir_S, а могли бы в виде Блок-схемы изобразить эту программу?

26.03.2017, 13:13	#5 (permalink)
Порфирий Member Регистрация: 17.02.2017 Сообщений: 12 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	ЗАДАНИЕ: Составить массив B[5] из суммы элементов строк матрицы A[5*6]. Я составил программу, но выдает какую-то ошибку. Помогите найти её и исправить. Вот текст программы, который я написал. const m = 5; n = 6; var a: array[1..m,1..n] of byte; s: array[1..5] of byte; i,j, sum: byte; begin randomize; for i := 1 to m do begin for j := 1 to n do begin a[i,j] := random(10); write (a[i,j]:3) end; writeln end; writeln ('vvivod:'); for j := 1 to n do begin for i := 1 to m do begin s[j] := s[j] + a[i,j]; sum := sum + a[i,j] end; write (s[j]:3) end; write ('sum = ', sum); readln end.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070