Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 19.12.2010
Сообщений: 7

массивы

19.12.2010, 13:52. Показов 999. Ответов 12
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Здравствуйте , помогите пожалуйста решить задачу по одномерным массивам. Ввести массив , вывести .
Переставить в обратном порядке его элементы , исключая от перестановки элементы между максимумом и минимумом.
Подскажите что неправильно
program ABC;
const Nmass=1000;
var A:array[-1000..Nmass] of integer;
N,L,m,i,j,k,D, left, right,max, min, imax, imin, Lsort: byte;
buf:integer;
begin
cls;
//ручной ввод массива
writeLn('Введите N - количество элементов в массиве A');
readLn(N);
writeLn('Вводим элементы массива A:');
for i:=1 to N do
begin
write('A[',i,']=');
readLn(A[i]);
end;
//вывод массива до измененния
writeLn('Исходный массив A:');
for i:=1 to N do
write(A[i]:5);
writeLn;
max:=A[i];
Imax:=1;
min:=A[i];
Imin:=1;
for i:=2 to N do
begin
if A[i]>A[Imax] then
Imax:=i
else
if A[i]<A[Imin] then
Imin:=i;
end;
if Imax<Imin then
begin
Left:=Imax+1;
Right:=Imin-1;
end
else
begin
Left:=Imin+1;
Right:=Imax-1;
end;
for i:=1 to trunc(N/2) do
for i:=1 to left do
for i:=right to N do
begin
buf := A[i];
A[i] :=A[N-i+1];
A[N-i+1] := buf;
end;
//вывод массива поле измененния
writeLn;
writeLn('массив A после изменения:');
for i:=1 to N do
write(A[i]:5);
end.

Добавлено через 19 минут
Вот задача на двумерные массивы :Ввести матрицу N M A × , вывести ее. В каждой строке матрицы найти k –
количество положительных элементов. В строках все элементы после k-го
увеличить на сумму положительных элементов этой строки. Подскажите где неправильно , пожалуйста
program ABC;
const Nmass=10;
type T2m = array[1..Nmass,1..Nmass] of integer;
T1m = array[1..Nmass] of byte;
var A:T2m;
B:T1m;
N,M,L,i,j,k,ipol,jpol,kpol,S: byte;
begin
cls;
//ручной ввод массива A
writeLn('введите число строк:');
readLn(N);
writeLn('введите число столбцов');
readLn(M);
writeLn('Вводим элементы массива A:');
for i:=1 to N do
for j:=1 to M do
begin
write('A[',i,',',j,']=');
readLn(A[i,j]);
end;
//вывод массива A до измененния
writeLn('Исходный массив A:');
for i:=1 to N do
begin
for j:=1 to M do
write(A[i,j]:5);
writeLn;
end;
for i:=1 to N do
//находим количество положительных элементов
kpol:=0;
for j:=1 to M do
if A[i,j]>0 then
kpol:=kpol+1;
// находим сумму положительных элементов
begin
for i:=1 to N do
begin
S := 0;
for j:=1 to M do
if A[i,j]>0 then
S:=S+A[i,j];
end;
// увеличиваем элементы после k-ого на сумму положительных элементов
for i:=1 to N do
begin
for j:=1 to M do
if i=ipol then
if j>kpol then
A[i,j]:=A[i,j]+S;
end;
//вывод массива А после преобразования
writeLn('преобразованный массив A:');
for i:=1 to N do
begin
for j:=1 to M do
write(A[i,j]:5);
writeLn;
end;
end;
end.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
 19.12.2010, 13:52
Ответы с готовыми решениями:

Даны массивы а и b. Получить новые массивы a и b, элементы которых вычисляются по правилу: ai=bi, bi= -ai
Даны массивы а и b, состоящие из n-элементов каждый. Получить новые массивы a и b, элементы которых вычисляются по правилу: ai=bi, bi=...

Массивы
Program elem; uses crt; const n=12;m=10;p=120; type tvector=array of integer; var a:array of integer; ...

Массивы
Помогите решить задачу, №26

12
Фрилансер
Эксперт С++
 Аватар для Dekio
5845 / 1226 / 499
Регистрация: 23.11.2010
Сообщений: 3,373
Записей в блоге: 1
19.12.2010, 13:53
в теги [PASCAL] вставьте
0
0 / 0 / 0
Регистрация: 19.12.2010
Сообщений: 7
19.12.2010, 13:55  [ТС]
Если я завтра не сдам 2 эти темы , то не допустят до зачета , помогите , help , HEEELP.
0
Фрилансер
Эксперт С++
 Аватар для Dekio
5845 / 1226 / 499
Регистрация: 23.11.2010
Сообщений: 3,373
Записей в блоге: 1
19.12.2010, 13:57
я думаю вам всеровно на зачет.
если б вы его хотели сдать, то не поленились бы сделать код, как минимум, читабельным для тех кто может помочь
0
0 / 0 / 0
Регистрация: 19.12.2010
Сообщений: 7
19.12.2010, 13:57  [ТС]
program ABC;
const Nmass=10;
type T2m = array[1..Nmass,1..Nmass] of integer;
T1m = array[1..Nmass] of byte;
var A:T2m;
B:T1m;
N,M,L,i,j,k,ipol,jpol,kpol,S: byte;
begin
cls;
//ручной ввод массива A
writeLn('введите число строк:');
readLn(N);
writeLn('введите число столбцов');
readLn(M);
writeLn('Вводим элементы массива A:');
for i:=1 to N do
for j:=1 to M do
begin
write('A[',i,',',j,']=');
readLn(A[i,j]);
end;
//вывод массива A до измененния
writeLn('Исходный массив A:');
for i:=1 to N do
begin
for j:=1 to M do
write(A[i,j]:5);
writeLn;
end;
for i:=1 to N do
//находим количество положительных элементов
kpol:=0;
for j:=1 to M do
if A[i,j]>0 then
kpol:=kpol+1;
// находим сумму положительных элементов
begin
for i:=1 to N do
begin
S := 0;
for j:=1 to M do
if A[i,j]>0 then
S:=S+A[i,j];
end;
// увеличиваем элементы после k-ого на сумму положительных элементов
for i:=1 to N do
begin
for j:=1 to M do
if i=ipol then
if j>kpol then
A[i,j]:=A[i,j]+S;
end;
//вывод массива А после преобразования
writeLn('преобразованный массив A:');
for i:=1 to N do
begin
for j:=1 to M do
write(A[i,j]:5);
writeLn;
end;
end;
end.
0
Фрилансер
Эксперт С++
 Аватар для Dekio
5845 / 1226 / 499
Регистрация: 23.11.2010
Сообщений: 3,373
Записей в блоге: 1
19.12.2010, 14:00
есть хорошая цитата. наведу ее
если человек идиот, то это на долго ...
вам же сказали что надо сделать

Цитата Сообщение от Dekio Посмотреть сообщение
в теги [PASCAL] вставьте
1
0 / 0 / 0
Регистрация: 19.12.2010
Сообщений: 7
19.12.2010, 14:09  [ТС]
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

program ABC;
const Nmass=10;
type T2m = array[1..Nmass,1..Nmass] of integer;
T1m = array[1..Nmass] of byte;
var A:T2m;
B:T1m;
N,M,L,i,j,k,ipol,jpol,kpol,S: byte;
begin
cls;
//ручной ввод массива A
writeLn('введите число строк:');
readLn(N);
writeLn('введите число столбцов');
readLn(M);
writeLn('Вводим элементы массива A:');
for i:=1 to N do
for j:=1 to M do
begin
write('A[',i,',',j,']=');
readLn(A[i,j]);
end;
//вывод массива A до измененния
writeLn('Исходный массив A:');
for i:=1 to N do
begin
for j:=1 to M do
write(A[i,j]:5);
writeLn;
end;
for i:=1 to N do
//находим количество положительных элементов
kpol:=0;
for j:=1 to M do
if A[i,j]>0 then
kpol:=kpol+1;
// находим сумму положительных элементов
begin
for i:=1 to N do
begin
S := 0;
for j:=1 to M do
if A[i,j]>0 then
S:=S+A[i,j];
end;
// увеличиваем элементы после k-ого на сумму положительных элементов
for i:=1 to N do
begin
for j:=1 to M do
if i=ipol then
if j>kpol then
A[i,j]:=A[i,j]+S;
end;
//вывод массива А после преобразования
writeLn('преобразованный массив A:');
for i:=1 to N do
begin
for j:=1 to M do
write(A[i,j]:5);
writeLn;
end;
end;
end.
Добавлено через 1 минуту
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

program ABC;
const Nmass=1000;
var A:array[-1000..Nmass] of integer;
N,L,m,i,j,k,D, left, right,max, min, imax, imin, Lsort: byte;
buf:integer;
begin
cls;
//ручной ввод массива
writeLn('Введите N - количество элементов в массиве A');
readLn(N);
writeLn('Вводим элементы массива A:');
for i:=1 to N do
begin
write('A[',i,']=');
readLn(A[i]);
end;
//вывод массива до измененния
writeLn('Исходный массив A:');
for i:=1 to N do
write(A[i]:5);
writeLn;
max:=A[i];
Imax:=1;
min:=A[i];
Imin:=1;
for i:=2 to N do
begin
if A[i]>A[Imax] then
Imax:=i
else
if A[i]<A[Imin] then
Imin:=i;
end;
if Imax<Imin then
begin
Left:=Imax+1;
Right:=Imin-1;
end
else
begin
Left:=Imin+1;
Right:=Imax-1;
end;
for i:=1 to trunc(N/2) do
for i:=1 to left do
for i:=right to N do
begin
buf := A[i];
A[i] :=A[N-i+1];
A[N-i+1] := buf;
end;
//вывод массива поле измененния
writeLn;
writeLn('массив A после изменения:');
for i:=1 to N do
write(A[i]:5);
end.
0
0 / 0 / 0
Регистрация: 19.12.2010
Сообщений: 7
19.12.2010, 14:39  [ТС]
неужели никто не подскажет
0
411 / 330 / 42
Регистрация: 10.03.2010
Сообщений: 3,313
19.12.2010, 14:42
Бог поможет
0
0 / 0 / 0
Регистрация: 19.12.2010
Сообщений: 7
19.12.2010, 16:22  [ТС]
ну хоть кто-нибудь

Добавлено через 2 минуты
просто подскажите как переставить элементы , не переставляя элементы между макс. и мин.
0
4 / 4 / 1
Регистрация: 14.11.2010
Сообщений: 37
19.12.2010, 17:15
не интересно...
1
0 / 0 / 0
Регистрация: 19.12.2010
Сообщений: 7
20.12.2010, 02:02  [ТС]
одну все-таки сделал , двумерный массив.Подскажите кто-нибудь по одномерному.

Добавлено через 1 минуту
Пожалуйста , очень срочно надо!!!!!!!!!!!!!!!!!!!

Добавлено через 30 минут
Ну хоть кто-нибудь , просто подскажите как исключить при перестановке элементы.
0
 Аватар для use
180 / 180 / 81
Регистрация: 18.12.2010
Сообщений: 346
20.12.2010, 03:08
Цитата Сообщение от алекс1234 Посмотреть сообщение
Подскажите кто-нибудь по одномерному
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

min:=1;
max:=1;
for i:=2 to n do begin
  if a[i]<a[min] then min:=i;
  if a[i]>a[max] then max:=i
end;
if min>max then begin
  b:=min;
  min:=max;
  max:=b
end;
for i:=1 to n div 2 do begin
  j:=n-i+1;
  if ((i<min)or(i>max))and((j<min)or(j>max)) then begin  //если оба переставляемых не между мин и макс
    b:=a[i];
    a[i]:=a[j];
    a[j]:=b
  end
end;
Только переделай тип с byte на integer (у тебя же диапазон от -1000 до 1000).
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
 20.12.2010, 03:08
Помогаю со студенческими работами здесь

Массивы
Пожалуйста помогите решить задачу.: Вывести элемент массива с нечётными номерами в порядке убывания номеров: АN, AN-2, AN-4, … , A1( где...

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

Массивы
Подскажите как в программе записать следующие строки? Определить с помощью FUNCTION для каждого массива сумму элементов с нечетными...

Массивы?
program lab8; uses crt; type mas=array of integer; procedure Massiv(var v:mas;x:byte;a,b,d:integer;c:char); var i:byte; begin ...

массивы
ребят послезавтра зачет я уже 2 дня ломаю голову над след. задачами а вам наверно делов на 5 минут.. 1 Массив вещественных чисел A(N)...


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

Или воспользуйтесь поиском по форуму:
13
Ответ Создать тему
Новые блоги и статьи
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru