Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Pascal Замените элементы стоящие в четных строках, на цифру 100 Нужны алгоритм и программа. Заполнить двумерный числовой массив B(6,6) случайными целыми числами в интервале . Вывести значения элементов массива в виде матрицы, причём на каждый элемент отвести 4 позиции. Ответ задачи следует выводить с новой строки и с пояснительным текстом. Кроме того, следует каждый раз производить вывод массива на экран, если в нём произошли изменения: перестановка, замена,... https://www.cyberforum.ru/ pascal/ thread1217950.html Найдите произведение отрицательных элементов побочной диагонали матрицы Pascal
Нужны алгоритм и программа. Заполнить двумерный числовой массив B(6,6) случайными целыми числами в интервале . Вывести значения элементов массива в виде матрицы, причём на каждый элемент отвести 4 позиции. Ответ задачи следует выводить с новой строки и с пояснительным текстом. Кроме того, следует каждый раз производить вывод массива на экран, если в нём произошли изменения: перестановка, замена,...
Pascal Переписать код методом ООП с модулем https://www.cyberforum.ru/ pascal/ thread1217873.html
Переписать методом Объектно-Ориентированного Программирования и чтобы он содержал модуль. Var a:array of integer; i,max,j:byte; begin randomize; max:=a; for i:=1 to 15 do begin a:=random(46)-15; if a>max 		Pascal Определить, что будет выведено на печать в каждом из 4-х вариантов https://www.cyberforum.ru/ pascal/ thread1217845.html
3. Определить, что будет выведено на печать в каж-дом из 4-х вариантов: Var c,d : integer; Procedure P (x,y : integer) begin y:=x+1 end; Procedure Q (x : integer; var y : integer) begin y:=x+1 end; Procedure R (var x, y : integer) begin y:=x+1 end; c:=-5; d:=4; P(c+d, d); writeln (d); c:=-5; d:=4; Q(c+d, d); writeln (d);
Pascal Найти общее количество элементов, кратных 4, для 3-х массивов
2. Заполнить случайными числами 3 массива a, b, c. Найти общее количество элементов, кратных 4, для всех 3-х массивов. 		Pascal Вычислить S(n) для n от 1 до 5 с шагом 1 https://www.cyberforum.ru/ pascal/ thread1217843.html
1. Написать функцию для вычисления и вычислить S(n) для n от 1 до 5 с шагом 1. S\left( n\right)=\sum_{i=1}^{n}\frac{2i^n}{\left( n+2\right)!}
Pascal Оператор выбора - допустимо ли оформить код приведенным способом Можно ли так написать: case e or f of 3..365:Оператор1; else Оператор2 end; https://www.cyberforum.ru/ pascal/ thread1217592.html Pascal Написать программу для вычисления среднего арифметического значения элементов масива
Дано массив с N элементами целого типа. Написать программу для вычисления среднего арифметического значения элементов массива.
Pascal Определить в каком из двух файлов находится самый высокий человек и вывести всю информацию о нём Дан файл, состоящий из записей вида. Разработать функцию определения номера самого высокого человека в файле. Используя эту функцию, определить в каком из двух файлов находится самый высокий человек и вывести всю информацию о нём. №п/п|ФИО|Рост|Вес|Пол |||| https://www.cyberforum.ru/ pascal/ thread1217542.html Pascal Создайте процедуру, печатающую все числа, кроме единицы, на которые без остатка делится число N Дана задача: Создайте процедуру, печатающую все числа, кроме единицы, на которые без остатка делится число N, где N параметр процедуры.Напишите программу для проверки этой процедуры. Решение которое дано в книге: procedure Test (N : integer); var i: integer; begin for i:=2 to N div 2 do if N mod I = 0 then Writeln(i); Readln; end; https://www.cyberforum.ru/ pascal/ thread1217514.html
Соединить три части программы "Лабиринт" в одну Pascal
Всем доброго времени суток.Это моя первая тема и все такое поэтому если будет что-то не так не серчайте. Проблема в том что у меня есть 3 части программы их нужно соединить.Сам я пытался .Не получается.Может поможет кто? По отдельности они работают. //1 часть program labirint; uses graphABC, Events; var 		Pascal В каждой строке выделить наибольшую последовательность цифр https://www.cyberforum.ru/ pascal/ thread1217335.html
создать текстовый файл, строка которого содержит цифры и символы. В каждой строке выделить наибольшую последовательность цифр. Длины этих последовательностей записать первыми символами строк цифрового файла. помогите плиз ...
3030 / 1916 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
27.06.2014, 13:00 0

Создайте новый одномерный массив из элементов двумерного массива, имеющих нечетное значение - Pascal - Ответ 6371088

27.06.2014, 13:00. Показов 1977. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено liken как решение

Решение

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

const
  size = 6;
 
var
  b: array [1..size, 1..size] of integer;
  a: array [1..size * size] of integer;
  i, j, t: integer;
 
begin
  Randomize;
  WriteLn('Матрица:');
  for i := 1 to size do
  begin
    for j := 1 to size do
    begin
      b[i, j] := Random(131) - 65;
      if Odd(b[i, j]) then
      begin
        t := t + 1;
        a[t] := b[i, j]
      end;
      Write(b[i, j]:4);
    end;
    WriteLn
  end;
  WriteLn('Массив, полученный из нечетных значений матрицы:');
  for i := 1 to t do
    Write(a[i]:4);
  WriteLn;
  WriteLn('Программа завершена. Нажмите Enter...');
  ReadLn
end.


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

Создайте новый одномерный массив из элементов двумерного массива, стоящих на главной диагонали
Дан массив d(8,8) случайными целыми числами в интервале . Введите значения элементов массива в виде...

Создайте новый одномерный массив из элементов двумерного массива, стоящих в столбцах, номера которых кратны 3
Создайте новый одномерный массив из элементов двумерного массива, стоящих в столбцах, номера...

Массив: Найти среднее арифметическое элементов массива, имеющих нечетное значение
Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от //0 до...

Создать новый одномерный массив из элементов матрицы, имеющих четное значение
Создайте новый одномерный массив из элементов двумерного массива имеющих четное значение Program...

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

Перенос положительных элементов двумерного массива в новый одномерный массив
Написать программу переноса положительных элементов двумерного массива в новый одномерный массив....

Найти сумму элементов массива, имеющих нечетное значение
Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры. Найти: −...

Найти сумму элементов массива, имеющих нечетное значение
Решите задачи на работу с одномерными массивами с использованием ввода элементов массива с помощью...

Найти сумму элементов массива, имеющих нечетное значение
Помогите пожалуйста! 1. Дан массив целых чисел из n элементов, заполненный случайным образом...

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