С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal Вычислить число положительных чисел, меньших числа А К этой задаче применить процедуру...я ни наю как(...сделайте пжалуйста. Текст задачи вот: Вычислить число положительных чисел, меньших числа А. ======================================================= var i,s,n,a: integer; m:array of integer; begin write ('vvedite kol-vo chisel = '); readln (n); write ('a='); https://www.cyberforum.ru/ pascal/ thread320128.html двумерные массивы Pascal
найти произведение тех элементов массива содержащего натуральныйе числа произведение цифр которых больше заданного к
Pascal записи Требуется удалить из данной переменной Bagaje сведения о багаже, общий вес вещей в котором меньше, чем 10 кг. Использовать вспомогательную переменную F. https://www.cyberforum.ru/ pascal/ thread320076.html Pascal множества Дан массив из n слов произвольной длины (длина слова не превышает 80 символов). В качестве символов могут использоваться только арабские цифры. Удалить из массива слово, содержащее наибольшее количество четных цифр. https://www.cyberforum.ru/ pascal/ thread320074.html
Pascal Процедуры и функции
Определить, есть ли в массиве хотя бы одна пара одинаковых соседних элементов. В случае положительного ответа определить номера элементов первой из таких пар. Сделать с помощью процедур или функций. Напишите плизз программу оч прошу. 		Pascal Вывести созданный массив на экран, расположив элементы в одну строку через пробелы https://www.cyberforum.ru/ pascal/ thread320041.html
1. Заполнить массив случайными числами (положительными и отрицательными) из произвольного диапазона. Вывести созданный массив на экран, расположив элементы в одну строку через пробелы. Посчитать общее количество элементов, кратных 3 и нечетных элементов в получившемся массиве.
Pascal Вычисление последовательностей https://www.cyberforum.ru/ pascal/ thread319987.html
. Для данного действительного числа х вычислить по схеме Горнера: Y = x10 + 2x9 + 3x8 + … + 10x + 11. 		Многомермые массивы Pascal
Составить программу обнуления гл. диагонали массива А(N,N), если в массиве будет хотябы один нулевой элемент. Вывести новый и старый массив!!
Pascal Нужно напечатать числа в виде таблицы Честно признаюсь что не имею представления как делать такое задание,с задачами легче 1) 0 1 0 2 1 0 3 2 1 0 4 3 2 1 0 2) 20 21 22 23 24 https://www.cyberforum.ru/ pascal/ thread319898.html Pascal нужна блок-схема срочно выручайте uses crt; const nmax=20; var a:array of integer; m,i,j,k,imax:byte; x,s:integer; begin clrscr; randomize; repeat write('Размер матрицы до ',nmax,' m='); https://www.cyberforum.ru/ pascal/ thread319830.html
Pascal Маленько намудрил, пoмогите доделать...
Задание у меня такое • создания динамического линейного списка, выбирая числа из текстового файла; • вывода динамического линейного списка; • обработка динамического списка по алгоритму. Описать процедуру, которая вставляет: 2.4 в непустой список L, элементы которого упорядочены по неубыванию (т.е. по возрастанию или равные), новый элемент Е так, чтобы сохранилась упорядоченность; Описать... 		Pascal Программы на Паскале https://www.cyberforum.ru/ pascal/ thread319779.html
Помогите решить несколько задач: 1. Составить блок-схему алгоритма и программу для вычисления таблицы значений функции y=x*x+3*cos(в квадрате)2x на отрезке , если X на этом отрезке изменяется с шагом 0.2. Найти сумму, произведение, количество, среднее арифметическое и среднее геометриче¬ское значений функции. 2. Составить программу, которая вычисляет сумму целых по¬следовательных чётных и сумму...
Mobile Software Engineer
Эксперт С++
5381 / 1585 / 956
Регистрация: 23.01.2011
Сообщений: 3,214
16.06.2011, 16:47 0

Процедура: все четные элементы массива увеличить в два раза - Pascal - Ответ 1765610

16.06.2011, 16:47. Показов 2292. Ответов 4
Метки (Все метки)

Ответ

а исходный массив выводить не нужно?

Добавлено через 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

const
 n = 5;
type
 TArr = array[1..100] of integer;
var
 arr: TArr;
 
procedure Gen_Prnt(var arr:TArr);
var
 i: integer;
begin
  for i:=1 to n do
   begin
    arr[i]:=random(100);
    write(arr[i], ' ');
   end;
 writeln;
end;
 
procedure Zamena(arr: TArr);
var
 i: integer;
begin
  for i:=1 to n do
   begin
     if arr[i] mod 2 = 0 then
      arr[i]:=arr[i]*2;
    write(arr[i], ' ');
   end;
end;
 
begin
 Gen_Prnt(arr);
 Zamena(arr);
end.


Вернуться к обсуждению:
Процедура: все четные элементы массива увеличить в два раза Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 16.06.2011, 16:47
Готовые ответы и решения:

Наибольший и наименьший элементы массива увеличить в три раза, а все остальные – в два раза
В заданном одномерном массиве X(N) (N<=70) наибольший и наименьший элементы увеличить в три раза, а...

Массив. Чётные элементы массива увеличить в 2 раза, а нечётные увеличить в 3 раза
извините опять нарушаю правила в форуме. эта задача была уже на форуме но она работает не...

Все четные элементы матрицы увеличить в 3 раза.
Дана матрица 4х4 целых чисел. Все четные элементы увеличить в 3 раза. Все нечетные разделить на 5

Вывести массив на экран. Увеличить все элементы массива A (n) в два раза.
ПК вводит с клавиатуры n чисел и записывает их в массив A (n). Вывести массив на экран. Увеличить...

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

Четные элементы массива увеличить в 2 раза, а нечетные увеличит в 3 раза
Задан массив A(n) n=9.четные элементы массива увеличить в 2 раза, а нечетные увеличит в 3 раза....

Все положительные элементы массива, расположенные правее первого нулевого элемента, увеличить в два раза
10. Все положительные элементы массива а1, а2 , ..., а20, расположенные правее первого нулевого...

В одномерном массиве все отрицательные элементы увеличить в пять раз, а все положительные элементы уменьшить в два раза.
В одномерном массиве все отрицательные элементы увеличить в пять раз, а все положительные элементы...

В одномерном массиве все отрицательные элементы увеличить в пять раз, а все положительные элементы уменьшить в два раза
В одномерном массиве все отрицательные элементы увеличить в пять раз, а все положительные элементы...

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