Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Turbo Pascal Отсортировать строки матрицы по возрастанию минимальных элементов каждой строки дана целочисленная квадратная матрица A порядка N. Отсортировать строки матрицы по возрастанию минимальных элементов каждой строки https://www.cyberforum.ru/ turbo-pascal/ thread748562.html Распечатать исходный текст, количество букв в первом и последнем словах, максимальное по длине слово и полученный текст Turbo Pascal
Дан текст, слова которого отделяются друг от друга пробелами. Если количество букв в первом слове совпадает с количеством букв в последнем слове, то максимальное по длине слово поместить в конец текста. В противном случае текст оставить без изменения. Распечатать исходный текст, количество букв в первом и последнем словах, максимальное по длине слово и полученный текст.
Turbo Pascal Получить массив B, присвоив его k-му элементу значение 1 помогите пожалуйста) 2)Задана матрица размером NxM. Получить массив B, присвоив его k-му элементу значение 1, если элементы k–й строки матрицы упорядочены по убыванию, и значение 0 в противном случае. https://www.cyberforum.ru/ turbo-pascal/ thread748510.html Turbo Pascal Найти максимальный и минимальний элемент в каждой строке матрицы Помогите за вознаграждение, написать програму для нахождения максимального и минимального элемента в каждой строке матрицы. Код есть, но нужно его переделать, что бы использувались процедуры и подключался Юніт. Примерно так: uses crt; const nmax=15; var b: array of integer; n,m,i,j,jmax,jmin: byte; buf: integer; begin https://www.cyberforum.ru/ turbo-pascal/ thread748498.html
Переставить элементы в массиве таким образом, чтобы сначала следовали все отрицательные числа, а затем все остальные Turbo Pascal
у меня спер программу одногрупник. препод сказал чтобы я ее хоть както исправить . может чтото можно сделать. или новую, такуюже простую: задание---Дан одномерный массив целых чисел. Переставить элементы в массиве таким образом, чтобы сначала следовали все отрицательные числа, а затем все остальные. program ABC; uses crt; const n=6; var x :real; a,i,k,z : integer; b: array of real;... 		Turbo Pascal По заданной перестановке из N элементов выдать 5 следующих перестановок в лексикографическом порядке помогите пожалуйста) 1)По заданной перестановке из N элементов выдать 5 следующих перестановок в лексикографическом порядке. https://www.cyberforum.ru/ turbo-pascal/ thread748476.html
Turbo Pascal Перевести введенное число в денежный формат https://www.cyberforum.ru/ turbo-pascal/ thread748471.html
Помогите решить такую задачу. Очень нужно. задача: Написать программу, которая переводит введенное число в денежный формат. Например: 23.6 должно быть выведено как 23 руб. 60 коп. 		Turbo Pascal Упорядочить элементы столбцов матрицы по невозрастанию
Дана матрица 7на10. Упорядочить элементы столбцов матрицы по невозрастанию, а сами столбцы в соответствии с ростом модулей минимальных элементов столбцов(использовать сортировку бинарными вставками) Добавлено через 57 секунд вот мой код бинарных вставок program BinVsatkiSort; var i,n,low,high,mid,t1,j,temp:integer; x:array of integer; begin writeln('vvedite n'); readln(n);
Turbo Pascal Исправить ошибки в коде https://www.cyberforum.ru/ turbo-pascal/ thread748441.html
Program Hord; var a,b,c,d,eps,answer:real; n:integer; f:text; function f1(x,a,b:real):real; begin f1=2*x*x*x-3*x*x-12*x+10; end; function f2(x,a,b:real):real; 		Turbo Pascal где ошибка? https://www.cyberforum.ru/ turbo-pascal/ thread748439.html
Задание:Разработать программу для интерполяции табличных данных с помощью полинома ньютона! программа должна быть написана на языке ПАСКАЛЬ Исходные данные должны считываться из файла метод должен быть реализован в виде отдельной подпрограммы Результат должен быть выведен на экран дисплея и помещены в текстовый файл на диск в программе должна быть предусмотрена защита о недопустимых...
Turbo Pascal Разработать программу для интерполяции табличных данных с помощью полинома ньютона!
Задание:Разработать программу для интерполяции табличных данных с помощью полинома ньютона! программа должна быть написана на языке ПАСКАЛЬ Исходные данные должны считываться из файла метод должен быть реализован в виде отдельной подпрограммы Результат должен быть выведен на экран дисплея и помещены в текстовый файл на диск в программе должна быть предусмотрена защита о недопустимых... 		Turbo Pascal Составить программу вычисления наименьшего элемента матрицы https://www.cyberforum.ru/ turbo-pascal/ thread748399.html
Составить программу вычисления наименьшего элемента матрицы А над главной диагональю, если элементы массива А (который описывается как var A:array of integer; ) определяются по формулам А=B (L, M=1,2,3; I=1, 2,..., 9) и B=(37*B+3) mod 64 (I=1, 2,..., 8). Значение А равняется 3. Спасибо!
durila :d
125 / 107 / 98
Регистрация: 21.12.2012
Сообщений: 160
28.12.2012, 00:48 0

Определить разницу между максимальным и минимальным элементом - Turbo Pascal - Ответ 3927287

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

Решение

Здравствуйте, вот вариант решения.
(компилировался в PascalABC.net)

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

program _array;
 
const
 
 N = 10;
 
type
 
 TArray = Array [1..10] of integer;
 
var
 
 i        :integer;
 mas      :TArray;
 max,min  :integer;
 count    :integer;
 
BEGIN
 
 
{ input  }
 for i:=1 to N do begin
                   Write('Mas[',i,']: ');
                   Readln(mas[i]);
                  end;
 
{ calc. & output}
 count:=0;max:=mas[1];min:=max;
 for i:=1 to N do begin
                   if (mas[i] mod 3 = 0 ) and
                      (mas[i] mod 5 = 0 )
                   then inc(count);
                   if max<mas[i] then max:=mas[i];
                   if min>mas[i] then min:=mas[i];
                  end;
 write('количество элементов, которые делятся на 3 и на 5: ',count);
 write('разница между максимальным и минимальным элементом',max-min);
                 
END.


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

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

Определить разницу между максимальным и минимальным элементами массива
помогите пожалуйста., вообще в Паскале не шарю. 2. С клавиатуры вводится линейный массив из 10...

Сгенерировать N случайных чисел из диапазона от -100 до 100. Вывести их на экран, определить разницу между максимальным и минимальным значениями
Прошу помочь с задачей. Заранее спасибо! Сгенерировать Nслучайных чисел из диапазона от -100 до...

Найти разницу между минимальным и максимальным элементами масива (Н7)
Найти разницу между минимальным и максимальным элементами масива (Н7)..ПОМОГИТЕ ПОЖАЛУЙСТО,,экзамен...

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

Вывести разницу между максимальным и минимальным компонентами матрицы
Дана матрица размером NxM. Вывести разницу между максимальным и минимальным компонентами и саму...

Суммировать те элементы массива, которые расположены между минимальным и максимальным элементом
Здравствуйте. Помогите мой код пожалуйста переделать в списки... Не могу разобраться в них. И ещё...

Массив: в каждом из массивов найти разность между максимальным и минимальным элементом
сформировать с помощью генератоа случайных чисел массивы H(8), P(12), C(11). Числа в массивах...

Найти сумму элементов массива, расположенных между минимальным и максимальным элементом
Здравствуйте помогите решить вот эту задачу: Дана последовательность из N различных чисел....

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