Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
vonemes1
#1

Сформировать целочисленную матрицу - Pascal

12.12.2010, 14:39. Просмотров 785. Ответов 1
Метки нет (Все метки)

Помогите решить пару задачек на Pascal///
Двумерные массивы:
1) Сформировать целочисленную матрицу А размером 7х8, состоящую из 0 и 1 по следующему правилу: если сумма индексов элемента четная, элемент будет нулевым, если нечетная-единичным.
2) Дана вещественная матрица Х размера 6х8. В каждом столбце найти наибольшее значение и сформировать одномерный массив из найденных значений.
Подпрограммы:
3) Даны три матрицы: Х, Y, Z размером NxM (n,m ≤12). Определить, в какой из них среднее арифметическое положительных элементов больше.
Строки:
4) Дана строка символов. Заменить в ней большие (прописные) русские буквы на маленькие (строчные), а маленькие на большие, остальные символы оставить без изменения.
5) Дана строка, содержащая последовательность слов, разделенных любым количеством пробелов и знаками препинания, и заканчивающаяся точкой. Подсчитать, сколько она содержит.

Добавлено через 12 минут
Помогите решить пару задачек на Pascal///
Двумерные массивы:
1) Сформировать целочисленную матрицу А размером 7х8, состоящую из 0 и 1 по следующему правилу: если сумма индексов элемента четная, элемент будет нулевым, если нечетная-единичным.
2) Дана вещественная матрица Х размера 6х8. В каждом столбце найти наибольшее значение и сформировать одномерный массив из найденных значений.
Подпрограммы:
3) Даны три матрицы: Х, Y, Z размером NxM (n,m ≤12). Определить, в какой из них среднее арифметическое положительных элементов больше.
Строки:
4) Дана строка символов. Заменить в ней большие (прописные) русские буквы на маленькие (строчные), а маленькие на большие, остальные символы оставить без изменения.
5) Дана строка, содержащая последовательность слов, разделенных любым количеством пробелов и знаками препинания, и заканчивающаяся точкой. Подсчитать, сколько
Цитата Сообщение от vonemes1 Посмотреть сообщение
слов
она содержит.
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.12.2010, 14:39
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Сформировать целочисленную матрицу (Pascal):

Сформировать целочисленную матрицу - Pascal
Даны целые положительные числа M и N. Сформировать целочисленную матрицу размера MxN, у которой все элементы I-й строки имеют значение 10*I...

Сформировать целочисленную матрицу, у которой все элементы 3-го столбца имеют значение 5 - Pascal
Даны целые положительные числа M и N. Сформировать целочисленную матрицу размера M х N, у которой все элементы 3-го столбца имеют значение...

даны целые положительные числа M и M. сформировать целочисленную матрицу размера MxN - Pascal
даны целые положительные числа M и M. сформировать целочисленную матрицу размера MxN, у которой все элементв jго столбца имеют ...

Вычислить целочисленную матрицу - Pascal
вычислить целочисленную матрицу m*n вывести номер строки и номер столбца для элемента матрицы ,который одновременно является наименьшим в...

Получить целочисленную квадратную матрицу - Pascal
Получить целочисленную квадратную матрицу порядка 7, элементами которой являются числа 1,2,...,49, расположенные в ней по спирали.

Пузырьковым методом отсортировать целочисленную квадратную матрицу - Pascal
Помогите пожалуйста, очень срочно нужно решить. Пузырьковым методом отсортировать целочисленную квадратную матрицу. Элементы под главной...

1
gerardino
13 / 4 / 3
Регистрация: 12.12.2010
Сообщений: 19
12.12.2010, 20:30 #2
Дана вещественная матрица Х размера 6х8. В каждом столбце найти наибольшее значение и сформировать одномерный массив из найденных значений.

const n=6;
m=8;
var a:array[1..n,1..m] of integer;
b:array[1..m] of integer;
i,j,max:integer;
begin
randomize;
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(20)-10;
write(a[i,j]:4);
end;
writeln;
end;
writeln;

for j:=1 to m do
begin max:=a[1,j];
for i:=1 to n do

if (max<a[i,j]) then max:=a[i,j];

b[j]:=max; end;
for j:=1 to m do begin
write(b[j]:4); end; writeln;
readln; writeln;

end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.12.2010, 20:30
Привет! Вот еще темы с ответами:

Сформировать матрицу - Pascal
Сформировать матрицу 10*10 из ответов на таблицу умножения, и при вводе числа от 1 до 100 выдать сколько раз оно повторяется.

Сформировать матрицу - Pascal
Написать программу, которая создаёт квадратную матрицу порядка n (n задать константой). \begin{bmatrix}1 &amp; 1 &amp; \cdots &amp; 1 &amp; 1\\\\0...

Сформировать матрицу - Pascal
Дана матрица C, сформированная из значений функции y=8.2*cos(x) - 0.9*sin(2x) для x, изменяющегося на интервале с шагом Dx=0.3. Если...

Сформировать матрицу - Pascal
1)Сформировать из строк матрицы В с положительным первым элементом матрицу C с размером k x n , где k меньше равно m - количество таких...


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

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

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