Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal программа кода символа в двоичной системе https://www.cyberforum.ru/ turbo-pascal/ thread313207.html
1) создать свой модуль с функцией, которая вычисляет код символа в двоичной системе координат. Написать программу с использованием этого модуля 2) каждые 5 секунд на экране случайным образом...
Turbo Pascal найти сумму элементов и наибольшее значение из элементов расположеных в заштрихованной области.
найти сумму элементов и наибольшее значение из элементов расположеных в заштрихованной области. заштрихованну область выводит остальное нет. Помогите дорешать программу program Mat; uses crt;...
Turbo Pascal Элементы матрицы заменить количеством элементов стоящих в нечетных строках https://www.cyberforum.ru/ turbo-pascal/ thread313187.html
2. все элементы матрицы лежащие ниже второстепенной диагонали заментиь количеством элементов стоящих в нечетных строках и в четных столбцах
Turbo Pascal Сформировать массив, состоящий из сумм положительных элементов, располагающихся в четных строках матрицы 1. сформировать одномерный массив, состоящий из сумм положительных элементов, распологающихся в четных строках матрицы. https://www.cyberforum.ru/ turbo-pascal/ thread313186.html
как сделать в порядке возрастания? Turbo Pascal
program sdasda; uses crt; var x:integer; f:real; begin clrscr; writeln('vvod x'); readln(x); f:=ln(x); writeln('ln(x)=',f:0:2);
Turbo Pascal Массивы и раскраска вывода 1)Заданы три двумерных квадратных массива одинаковой размерности.Организовать ввод и вывод на экран массивов с использованием процедур программиста. 2)Найти количество максимальных элементов... https://www.cyberforum.ru/ turbo-pascal/ thread313172.html
Turbo Pascal Запросите действительное число и найдите целую часть числа и округлите его до ближайшего целого Помогите плиз) я новечек, только недавно начал учить Паскаль. задача:Запросите действительное число и найдите целую часть этого числа и округлите его до ближайшего целого. program chislo; var... https://www.cyberforum.ru/ turbo-pascal/ thread313170.html Turbo Pascal Создать массив записей "Таксопарк"
Помогите пожалуйста написать программу!!!
Turbo Pascal Вывести на экран по нажатию клавиш год с наименьшим номером Организовать файл, содержащий различные даты. Каждая дата – это число, месяц и год. Вывести на экран по нажатию клавиш 1 - год с наименьшим номером; 2 - все весенние даты; 3 - самую... https://www.cyberforum.ru/ turbo-pascal/ thread313154.html Turbo Pascal Создать файл и записать в него все слова из исходного, содержащие хотя бы одну букву C Программисты помогите пожалуйста. Дан символ C — строчная (маленькая) русская буква и текстовый файл. Создать строковый файл и записать в него все слова из исходного файла, содержащие хотя бы одну... https://www.cyberforum.ru/ turbo-pascal/ thread313152.html
Все элементы матрицы X n,m Turbo Pascal
Все элементы матрицы X n,m , лежащие выше второстепнной диагонали заменить количеством целочисленных элементов, стоящих в четных столбцах.
Turbo Pascal Сформировать одномерный массив Сформировать одномерный массив, состоящий из средних арифметических элементов в каждой строке матрицы X n,m ,если значение среднего арифметического попадает в интервал Добавлено через 2 часа 54... https://www.cyberforum.ru/ turbo-pascal/ thread313146.html
Почетный модератор
64087 / 47496 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
05.06.2011, 10:18 0

Найти НОД всех элементов массива. - Turbo Pascal - Ответ 1726870

05.06.2011, 10:18. Показов 2704. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено ANAKIN как решение

Решение

Цитата Сообщение от ANAKIN Посмотреть сообщение
1)Сформировать случайным образом
Идиотское условие. Практически всегда будет Нод=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
uses crt;
const n=10;
function Nod(a,b:integer):integer;{определение НОД двух чисел}
begin
 while a<>b do
 if a>b then a:=a-b else b:=b-a;
 Nod:=a;
end;
var a:array[1..n] of integer;
    i:byte;
    k:integer;
begin
clrscr;
randomize;
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=random(20)+10;
  write(a[i],' ');
 end;
writeln;
k:=Nod(a[1],a[2]);
for i:=3 to n do k:=nod(k,a[i]);
writeln('Общий НОД всех элементов=',k);
readln
end.
Добавлено через 14 минут
2.

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
uses crt;
var a:array [1..100]of integer;
    n,i,j,k,x:integer;
begin
clrscr;
randomize;
write('n=');readln(n);
writeln('Исходный массив:');
for i:=1 to n do
   begin
     a[i]:=random(200);;
       write(a[i],' ');
   end;
writeln;
for i:=2 to n do
 begin
  x:=a[i];
  j:=1;
  while x>a[j] do inc(j);
  for k:=i-1 downto j do a[k+1]:= a[k];
  a[j]:=x;
 end;
writeln('Отсортированный массив:');
for i:=1 to n do
write(a[i],' ');
readln
end.
Добавлено через 7 минут
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
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax]of integer;
    i,j,n,m:integer;
{процедура транспонирования матрицы}
procedure TrMatrix(x,y:integer);
var i,j,b:integer;
begin
for i:=1 to x do
for j:=i to y do
 begin
  b:=a[i,j];
  a[i,j]:=a[j,i];
  a[j,i]:=b;
 end;
end;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n)
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:4);
   end;
  writeln;
 end;
{вызов процедуры транспонирования матрицы}
if n>m then TrMatrix(m,n){если строк больше чем столбцов}
else TrMatrix(n,m);{если поровну или столбцов больше}
writeln;
writeln('Транспонированная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.


Вернуться к обсуждению:
Найти НОД всех элементов массива. Turbo Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.06.2011, 10:18
Готовые ответы и решения:

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

Найти сумму всех элементов массива целых чисел, которые меньше среднего арифметического элементов массива
Помогите пожалуйста найти в чем ошибка? Пишет что арифметическое переполнение! Задание: Найти сумму...

Найти сумму всех элементов массива целых чисел, которые меньше среднего арифметического элементов массива.
Найти сумму всех элементов массива целых чисел, которые меньше среднего арифметического элементов...

Даны n натуральных чисел. Найти их наибольший общий делитель, учитывая что НОД(а,б,с)=НОД(НОД(а,б)с)
даны n натуральных чисел. Найти их наибольший общий делитель, учитывая, что НОД(a,b,c) = НОД...

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.06.2011, 10:18

Найти сумму всех положительных и произведение всех отрицательных элементов двумерного массива
задачка №1. найти сумму всех положительных и произведение всех отрицательных элементов двумерного...

Найти минимальный и максимальный элемент массива.Найти сумму всех элементов массива
Проверьте пожалуйста программу. Program lb4; var i,j,k,l,m,n,v:integer; mass:array of real;...

Найти R=(Х+Y)/Z,где Х-сумма всех элементов массива А(14), Y-сумма всех элементов массива В(9),Z-сумма всех элементов массива С(11)
Заданы три массива:А(5),В(8) и С(12). Найти R=(Х+Y)/Z,где Х-сумма всех элементов массива А(14),...

Найти сумму всех элементов массива, кроме элементов с номерами от K до L включительно
Дан массив размера N и целые числа K и L (1&lt;K&lt;=L&lt;=N). Найти сумму всех элементов массива, кроме...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru