Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Дан файл F, компоненты которого являются целыми числами. Найти три показателя. https://www.cyberforum.ru/ pascal/ thread124341.html Дан файл F, компоненты которого являются целыми числами. Найти: а) кол-во удвоенных нечетных чисел среди компонент; б) минимальное среди чисел, кратных трем; в) кол-во простых чисел в файле; Пожалуйста решите. В зарание спасибо.	Из 2-х упорядоченых по невозрастанию массивов получить путём слияния упорядоченный по неубыванию массив Pascal Из 2-х упорядоченых по невозрастанию массивов A(m) и B(n) получить путём слияния упорядоченный по неубыванию массив C, удаляемые элементы собрать в массиве D. Подсчитать количество элементов в массивах C и D
Pascal Переписать с сохранением порядка следования элементы первого файла во второй, а элементы второго файла в первый Помогите с задачей: Имеются два типизированных файла одинакового размера, элементами которых являются отдельные символы. Переписать с сохранением порядка следования элементы первого файла во второй, а элементы второго файла в первый. Использовать вспомогательный файл. https://www.cyberforum.ru/ pascal/ thread124312.html	Pascal Программа вычисления расстояния между двумя точками с заданными координатами https://www.cyberforum.ru/ pascal/ thread124273.html Напишите программу вычисления расстояния между двумя точками с заданными координатами X1,Y1, X2,Y2, с использованием подпрограммы- процедуры.
Заменить все положительные элементы вектора на их округленные целые и отсортировать в порядке убывания Pascal Дан вещественный вектор A .Заменить все положительные элементы вектора на их округленные целые и отсортировать в порядке убывания.Вычислить среднее арифметическое положительных элементов.Вывести на экран отсортированный массив и вычисленное значение.	Pascal Прайс(на файлы и записи) Дан фан prices.txt, содержащий цены московских комп.фирм и имеющий след формат: <Название фирмы> Корпус <цена> Материнская плата <цена> Монитор <цена> Принтер <цена> Количество записей(фирм) любое. Разработать программу, позволяющую решить проблемы с интерфейсом. https://www.cyberforum.ru/ pascal/ thread124246.html
Pascal Переписать фрагмент текста в отдельную строку Помогите, пожалуйста, с программкой( NewCopy – выделение строки с заданного начального символа до заданного конечного символа NewDelete – удаление подстроки с начальной позиции до конечной позиции MyPos – определение первого вхождения подстроки MyDown(строка) все буквы – строчные. Дан текст содержащий фрагмент в круглых скобках. Переписать этот фрагмент в отдельную строку и сделать все... https://www.cyberforum.ru/ pascal/ thread124216.html	Pascal Рекурсивная подпрограмма Дана последовательность ненулевых целых чисел, за которой следует 0. Напечатать сначала все отрицательные числа этой последовательности, а затем все положительные (в любом порядке). Помогите пожалуйста!
Pascal Паскаль-график-как строить оси Привет. Объясните пож.неопытному человеку: 1)как построить оси координат(вместе с направлениями х и у, и так сказать "шкалой") 2)как сделать чтоб график соответствовал этим точкам(отсечкам на осях) график ф-ции y=e^(-(x^2)) спасибо заранее https://www.cyberforum.ru/ pascal/ thread124176.html	Pascal двумерные массивы Дана матрица M x N. Элементы, у которых сумма номеров строки и столбца четные оставить без изменения, а остальные разделить на максимальный по модулю элемент соответствующей строки. https://www.cyberforum.ru/ pascal/ thread124164.html
*Определить общее количество операций суммы (+), разницы(-) и умножения() в заданом арифметическом примере Pascal** Срочно!!! Помогите решить задачки!!! Экзамен!!! 1. Определить общее количество операций суммы (+), разницы(-) и умножения(*) в заданом арифметическом примере. 2. Задано одновымерный масив А целых чисел, пронумерованых от 1 до h. Увеличить на 2 значения неотрецательных елементов масиву. 3. Задано одновымерный масив А целых чисел, пронумерованых от 1 до h. Определить первый елемент масиву,...	Pascal Записи и базы данных! (1)Дано несколько арифметических выражений,содержащих знаки операций,дробные числа,имена переменных.Во всех дробях,имеющих менее 2 цифр в дробной части дописать ещё по 2 цифры,распечатать исходные и полученые выражения. (2)В шахматном турнире приняли участие 5 шахматистов.Ввести в память ПК следующую информацию:ФИО и результаты игр.Каждый шахматист провёл четыре встречи (победа-1... https://www.cyberforum.ru/ pascal/ thread124160.html

evank

4 / 4 / 4

Регистрация: 04.05.2010

Сообщений: 24

04.05.2010, 12:46

Найти сумму компонент, стоящих между минимальной и максимальной - Pascal - Ответ 703916

04.05.2010, 12:46. Показов 1307. Ответов 5

Метки (Все метки)

Ответ

Надеюсь с файлами работать умеете.
Сори, только учусь. Не судите строго. Надеюсь ошибок не будет (:

Pascal

const n=20;
Var
 a: array[1..n] of Integer; {К примеру 20}
 i,min,max,sum,p1,p2: Integer;
BEGIN
 ClrScr;
 for i:=1 to n do
  Read(a[i]);
 min:=a[1];
 max:=a[1];
 for i:=1 to n do
  Begin 
  If a[i]<min then 
   Begin
    p1:=i;    
    min:=a[i];
   end;
  If a[i]>max then 
   Begin 
    p2:=i;
    max:=a[i];
   end;
  end;
 sum:=0;
 for i:=p1 to p2 do
  sum:=sum+a[i];
 for i:p1 to p2 do
  a[i]:=s;
 Writeln;
 Writeln('Минимальное = ',min);
 Writeln('Максимальное = ',max); 
 Writeln('Сумма от минимального до максимально = ',sum);
 ReadKey;
END.

Вернуться к обсуждению:
Найти сумму компонент, стоящих между минимальной и максимальной Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

04.05.2010, 12:46

Готовые ответы и решения:

Файлы прямого доступа. Найти сумму компонент, стоящих между минимальной и максимальной
Задан числовой файл F. Найти сумму компонент, стоящих между минимальной и максимальной. Записать в...

Сумма компонент массива, между максимальной и минимальной компонентой.
Разработать и отладить программу, содержащую процедуру, которая, определяет сумму компонент...

Типизированные файлы. Найти сумму компонент, стоящих между минимальной и максимальной.
Помогите пожалуйста с задачей: Задан числовой файл F . Найти сумму компонент, стоящих между...

Найти сумму компонент, расположенных между максимальной и минимальной компонентами
Дан файл вещественных чисел. Найти сумму компонент, расположенных между максимальной и минимальной...

	04.05.2010, 12:46

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

04.05.2010, 12:46

Помогаю со студенческими работами здесь

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

Найти сумму компонент, расположенных межу максимальной и минимальной компонентами
Дан файл вещественных чисел. Найти сумму компонент, расположенных межу максимальной и минимальной...

Найти сумму компонент, стоящих между минимальной и максимальной
Задан числовой файл F. Найти сумму компонент, стоящих между минимальной и максимальной. Записать в...

Наверх