Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal Записать элементы матрицы по столбцам в одномерный массив и найти его максимальный элемент https://www.cyberforum.ru/ pascal/ thread25841.html
Программа у меня сделана...ток там не хватает одномерного массива.Помогите, пожалуйста, переделать. program LabWork6; const nmax=10; type TElem=integer; TIndex=1..nmax; TArr=array of TElem; var 		Pascal Для заданной квадратной матрицы сформировать одномерный массив из ее диагональных элементов
1.Задана квадратная матрица. Переставить строку с макси¬мальным элементом на главной диагонали со строкой с заданным номером. 2.Заданы матрица (размером N*N) и число К (0<=K<N). Столбец с максимальным по модулю элементом в К-й строке пере¬ставить с К-м столбцом. 3.Для заданной квадратной матрицы сформировать одномер¬ный массив из ее диагональных элементов. Найти след матрицы, суммируя элементы...
Pascal Задача с заменой элементов перед максимумом и минимумом https://www.cyberforum.ru/ pascal/ thread25831.html
Помогите, пожалуйста! Задача легкая, а решить ее у меня не получается. По возможности объясните мне, что я делаю неправильно. Задание: Найти в массиве максимум и минимум, все элементы до максимума заменить нулями, а до минимума — единицами. Программу паскаль выполняет так: допустим ввожу массив: 2 4 8 0 1 5 6 9 8 8, паскаль заменяет их так: 1 1 1 1 1 0 0 0 0 8, а должно бы быть: 1 1 1 1 0 0 0... 		Pascal Надо нарисовать электрическую цепь (в 3D) чтоб там работали амперметр, вольтметр, резистор, лампочка, ключ Надо нарисовать электрическую цепь (в 3D) чтоб там работали амперметр, вольтметр, резистор, лампочка, ключ... И всё это должно функционировать (чтоб можно было например изменить резистором сопративление, и это отражалось на всех элементах цепи). Кому не слабо помогите!!!!! https://www.cyberforum.ru/ pascal/ thread25824.html
Pascal Исследовать область определения и построить график функций
Паскаль. Исследовать область определения и п остроить график функций y=(x+3)/(x-2); 		Pascal Написать программу с использованием подпрограмм – не менее двух процедур и одной функции https://www.cyberforum.ru/ pascal/ thread25801.html
здраствуйте помогите пожалуйста решить задачу на паскале: :wall: :help: Написать программу с использованием подпрограмм – не менее двух процедур и одной функции. В программе должен быть предусмотрен ввод пользователем количества строк и столбцов матрицы при исполнении программы. Вот задание:
Pascal Написать программу, которая записывает в новый файл сведения о тех студентах, которые успешно сдали все экзамены. https://www.cyberforum.ru/ pascal/ thread25795.html
Имеется запись: type stud=record fio:record f, im, of : string; end; oz: array of 2..5; группа: integer; end; Написать программу, которая записывает в новый файл сведения о тех студентах, которые успешно сдали все экзамены. Выводит на экран сведения о студентах, имеющих хотя бы одну... 		Определить индексы наибольшего, по абсолютной величине, элемента матрицы BZ{m, n} и заменить найденный элемент числом 5.57Е-05. m=4 n=3 Pascal
Определить индексы наибольшего, по абсолютной величине, элемента матрицы BZ{m, n} и заменить найденный элемент числом 5.57Е-05. m=4 n=3
Pascal Пересортировать массив используя подпрограммы и Написать подпрограмму функцию определяющую число элементов массива. Здравствуйте. Если это возможно,хотелось бы попросить помощи в рещении нескольких задач. 1) Дан линейный массив из 15 целых чисел.Пересортировать массив используя подпрограммы по закону:первый элемент заменяется последним,второй последующим и т.д. Ввод и вывод массива осуществить с помощью подпрограмм. 2) Написать подпрограмму функцию определяющую число элементов массива A(n), которые... https://www.cyberforum.ru/ pascal/ thread25768.html Pascal Описать пользовательский тип данных с именем MARSH типа запись https://www.cyberforum.ru/ pascal/ thread25765.html
1. Описать пользовательский тип данных с именем MARSH типа запись (RECORD), содержащий следующие поля: - BEGST - название начального пункта маршрута - (тип STRING); - TERM - название конечного пункта маршрута - (тип STRING); - NUMER - номер маршрута (тип INTEGER). 2. Написать программу, выполняющую следующие действия: - ввод с клавиатуры данных в массив TRAFIC, состоящий из 8-и эле- ментов...
С помощью генератора случайных значений сформировать три массива Pascal
Задача 1 С помощью генератора случайных значений сформировать три массива A, B, C вещественных значений, в каждом из которых не более 20 элементов. Значения элементов массивов формируются в диапазоне , где значение m>5 вводится с клавиатуры. Написать программу, в которой вывести на экран три сформированных вектора и затем вывести имя (имена) массива(ов) с максимальной суммой положительных... 		Pascal программа по массиву написать программу которая формирует новый массив, элементами которго являются все нечетные элементы расположенные в четных ячейках заданного массива. https://www.cyberforum.ru/ pascal/ thread25740.html
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
07.06.2009, 16:44 0

Двумерные массивы - Pascal - Ответ 185668

07.06.2009, 16:44. Показов 774. Ответов 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

program sort;
uses crt;
const n=6;
var m:array[1..n,1..n]of integer;
    i,j,index,k,max,buf:integer;
begin
clrscr;
randomize;
writeln('Матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    m[i,j]:=random(10);
    write(m[i,j]:3);
   end;
  writeln;
 end;
max:=m[1,1];
index:=1;
for i:=1 to n do
if m[i,i]>max then
 begin
  max:=m[i,i];
  index:=i;
 end;
writeln('Максимальный элемент=',max,' строка=',index);
repeat
write('Номер строки для перестановки k=');
readln(k);
until k in [1..n];
if index<>k then
for i:=1 to n do
  begin
   buf:=m[index,i];
   m[index,i]:=m[k,i];
   m[k,i]:=buf;
 end;
writeln('Измененная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(m[i,j]:3);
  writeln;
 end;
readln
end.


Вернуться к обсуждению:
Двумерные массивы Pascal
2
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 07.06.2009, 16:44
Готовые ответы и решения:

Двумерные массивы
Дано: массивы A(N1,M1),B(N2,M2),C(N2,M2). Используя подпрограмму упорядочить по убыыванию элементы...

Двумерные массивы
В двумерных массивах A и B упорядочить элементы главной диагонали в порядке возростания. Определить...

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

Двумерные массивы
n 0 0 … 0 0 0 0 n-1 0 … 0 0 0 0 0 n-2 … 0 0 0 … … … … … … … 0 0 0 … 0 2 0 0 0 0 … 0 0 1

5
07.06.2009, 16:44
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 07.06.2009, 16:44
Помогаю со студенческими работами здесь

Двумерные массивы
n 0 0 … 0 0 0 0 n-1 0 … 0 0 0 0 0 n-2 … 0 0 0 … … … … … … … 0 0 0 … 0 2 0 0 0 0 … 0 0 1

двумерные массивы
уважаемые пользователи никак не могу разобраться с задачей: дана целочисленная прямоугольная...

двумерные массивы
Дана матрица M x N. Элементы, у которых сумма номеров строки и столбца четные оставить без...

Двумерные массивы
Определить, есть ли в данном массиве строка (столбец), сотстоящая только из элементов,...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru