Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC Написать программу для вывода на экран степеней (от 1 до 10) числа 3 Написать программу для вывода на экран степеней (от 1 до 10) числа 3. https://www.cyberforum.ru/ pascalabc/ thread698494.html Pascal ABC Определить сумму максимальных элементов каждого столбца матрицы
Задана вещественная матрица размером N×M. Определить сумму максимальных элементов каждого столбца матрицы.
Pascal ABC Проверить, попадает ли точка с координатами в заданную область https://www.cyberforum.ru/ pascalabc/ thread698463.html
Проверить, попадает ли точка М(х, у) с координатами х и у в заданную область. 		Pascal ABC Определить, у скольких изделий фактическая трудоемкость ниже плановой https://www.cyberforum.ru/ pascalabc/ thread698449.html
Имеется две последовательности показателей: одна — плановых, другая — фактических трудоемкость K изделий. Определить, у скольких изделий фактическая трудоемкость ниже плановой.
метод гаусса в паскале Pascal ABC
исправьте программу., она не правильно считает и не работает, выдает ошибку деление на ноль или что то в этом роде. код программы: program Gayss; const n=3; var i,j,k:integer; c,s:real; a:array of real; b:array of real; 		Pascal ABC Разработать программу, которая при нажатии клавиши <F9> выводит на экран подвижное текстовое окно https://www.cyberforum.ru/ pascalabc/ thread698357.html
Разработать программу, которая при нажатии клавиши <F9> выводит на жран текстовое окно. При нажатии клавиши (←) сдвигается влево левая рамка окна, при нажатии (→) - вправо правая рамка окна, при нажатии (↓)- вниз нижняя рамка окна, при нажатии (↑) - вверх верхняя рамка окна. Здравствуйте, выручите пожалуйста, окно само сделал, вот только движется не правильно, только влево и вверх. ...
Pascal ABC Найти произведение элементов массива, номера которых кратны трем https://www.cyberforum.ru/ pascalabc/ thread698353.html
Задать случайным образом одномерный массив из 13 целочисленных элементов, принадлежащих отрезку . Найти произведение элементов массива, номера которых кратны трем. Закрасить указанные элементы. 		Найти сумму четных элементов, умножить элементы последнего столбца на максимальный элемент матрицы Pascal ABC
1) Найти сумму четных элементов матрицы. Закрасить указанные элементы. 2) Умножьте все элементы последнего столбца на максимальный элемент матрицы. Закрасить элементы, расположенные в последнем столбце.
Pascal ABC Определить какие буквы алфавита не встречаются данной строке. Определить какие буквы алфавита не встречаются данной строке. И подсчитать их. https://www.cyberforum.ru/ pascalabc/ thread698328.html Pascal ABC Дробь Помогите решить=) https://www.cyberforum.ru/ pascalabc/ thread698326.html
Дано a1 a2 an. Вычислить количество элементов находящихся в интервале [5,10] Pascal ABC
Дано a1 a2 an. Вычислить количество элементов находящихся в интервале . Помогите пожалуйста, сроочно... задача не очень сложная, заранее спасибо Добавлено через 45 минут Сделал... program sanek; uses crt; var a:array of integer ; i,k,c,m:integer; begin 		Pascal ABC Составить* программу для вычисления W=A*B/C+2 2) Составить* программу для вычисления W=A*B/C+2 A - наибольший элемент массива; B - произведение элементов массива с четными номерами; C - количество элементов массива, больших D (с клавиатуры) Помогите пожалуйста решить https://www.cyberforum.ru/ pascalabc/ thread698290.html
Почетный модератор
64305 / 47600 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
24.11.2012, 07:29 0

Вставить произвольное число К после всех максимальных элементов в массиве - Pascal ABC - Ответ 3746110

24.11.2012, 07:29. Показов 1995. Ответов 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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54

uses crt;
const nmax=50;
type mas=array[1..2*nmax] of integer;
procedure vvod(var a:mas;var n:integer);
var i:integer;
begin
repeat
write('Размер массива до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(20);
  write(a[i]:4);
 end;
writeln;
end;
function max(a:mas;n:integer):integer;
var i,mx:integer;
begin
mx:=a[1];
for i:=1 to n do
if a[i]>mx then mx:=a[i];
max:=mx;
end;
procedure vstav(var a:mas;var n:integer;k:integer);
var i,j:integer;
begin
write('Введите челое число для вставки k=');
read(k);
i:=1;
while i<=n do
if a[i]=max(a,n) then
 begin
  n:=n+1;
  for j:=n downto i+2 do
  a[j]:=a[j-1];
  a[i+1]:=k;
  i:=i+2;
 end
else i:=i+1;
writeln('Массив после вставок:');
for i:=1 to n do
write(a[i]:4);
end;
var a:mas;
    n,k:integer;
begin
randomize;
vvod(a,n);
writeln('Максимальный элемент=',max(a,n));
vstav(a,n,k);
end.


Вернуться к обсуждению:
Вставить произвольное число К после всех максимальных элементов в массиве Pascal ABC
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 24.11.2012, 07:29
Готовые ответы и решения:

В одномерном массиве вставить новый элемент после всех максимальных
Помогите в одномерном массиве вставить новый элемент после всех максимальных

Вставить в массив заданное число после любого из максимальных элементов
Дан целочисленный линейный массив. Вставить в него заданное число после любого из максимальных...

Вставить число k1 после всех чисел в массиве больше чем digit
int i; int size_of_array=10; int last_element; int second; int even; int...

Отсортировать массив по возрастанию. Найти максимальные в массиве, который будет создан после удаления всех максимальных элементов
Условие: Отсортировать массив по возрастанию. Найти максимальные в массиве, который будет создан...

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

Вставить число К после всех четных элементов
Вставить число К после всех четных элементов

Вставить число после всех нечетных элементов
Нашел нечетные элементы массива, подскажите, как после всех нечетных элементов вставить число 400 ?...

В двумерном массиве вставить последнюю строку после всех строк, в которых есть заданное число А
В двумерном массиве вставить последнюю строку после всех строк, в которых есть заданное число А.

Вставить число 444 после всех нечетных элементов
Вставить число 444 после всех нечетных элементов. Элементы вводятся в программе.

Вставить в массив заданное число x после всех отрицательных элементов
2.Заданный массив с n чисел. Вставить в массив заданное число x после всех отрицательных элементов....

Вставить в массив заданное число x после всех отрицательных элементов
Заданный массив с n чисел. Вставить в массив заданное число x после всех отрицательных элементов....

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