Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Записать в файл последовательного доступа N действительных чисел Тема «Файлы. Типизированные файлы» Задача: нажмите на меня Помогите решить плизз.. https://www.cyberforum.ru/ turbo-pascal/ thread325066.html	последовательность Turbo Pascal последовательно вводится 20чисел.найти произведение первых 10из них.
Turbo Pascal Вычислить точное значение суммы Тема «Задачи на длинную арифметику» Задача: сюда нажмите https://www.cyberforum.ru/ turbo-pascal/ thread325050.html	Turbo Pascal Массивы с процедурой. Даны списки 20 абитуриентов, их средние баллы аттестата и средний балл, полученный при поступлении в институт. Вывести три списка. 1 – абитуриентов, у которых разница средних баллов более 0,5; 2 – абитуриентов, у которых разница средних баллов более 1; 3 – абитуриентов, у которых разница средних баллов более 2. Вот то, что я сам делал. Program V10_N9; uses crt; Var https://www.cyberforum.ru/ turbo-pascal/ thread325048.html
Turbo Pascal Результаты вступительных экзаменов представлены в виде списка из N строк, в каждой строке которой записаны фамилии абитуриента и отметки по каждому из Тема «Работа со строками». Задача: Результаты вступительных экзаменов представлены в виде списка из N строк, в каждой строке которой записаны фамилии абитуриента и отметки по каждому из M предметов. Определить количество абитуриентов, сдавших вступительные экзамены на отлично. Помогите пожалуйста решить. Добавлено через 1 час 53 минуты апп пожалуйста	Turbo Pascal Подсчитать в строке число букв А и В Решите очень нужно. Подсчитать в строке число букв А и В,если букв А больше, чем В, то удалить в строке все символы В. https://www.cyberforum.ru/ turbo-pascal/ thread325034.html
Turbo Pascal последовательность вводится размерность последовальности и последовательность.найти максимальный элемент среди четных Добавлено через 39 минут решите пожалуйста Добавлено через 18 минут ..... Добавлено через 38 секунд срочно https://www.cyberforum.ru/ turbo-pascal/ thread325030.html	Cоставить программу, которая поможет реализовать такое закрепление работников на должностях, при котором их суммарная полезность будет максимальной Turbo Pascal Пусть имеется m работников и n должностей. Известна мера полезности работника на каждой из должностей. составить программу, которая поможет реализовать такое закрепление работников на должностях, при котором их суммарная полезность будет максимальной
Turbo Pascal Сортировка массивов Здравствуйте!!! Помогите пожалуйста. Тема «Сортировка массивов». В любом «длинном» числе > 20 знаков расположить цифры числа по возрастанию. https://www.cyberforum.ru/ turbo-pascal/ thread325026.html	Turbo Pascal Составить блок-схемы к нескольким программам uses crt; var a:array of integer; i,n,nul,s:integer; begin clrscr; while n<7 do begin writeln('vvedite kollichestvo chisel'); readln(n); https://www.cyberforum.ru/ turbo-pascal/ thread325018.html
Turbo Pascal Рекурсия: функция Аккермана задач с использованием рекурсии Написать рекурсивную формулу для вычисления значения функции Аккермана для неотрицательных чисел N и M. Функция Аккермана определяется следующим образом:	Turbo Pascal Для каждой буквы заданного текста указать https://www.cyberforum.ru/ turbo-pascal/ thread324991.html Решите очень нужно. Для каждой буквы заданного текста указать, сколько раз она встречается в тексте

asics

Freelance

2891 / 1826 / 356

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

Сообщений: 3,841

23.06.2011, 18:17

последовательность - Turbo Pascal - Ответ 1788830

23.06.2011, 18:17. Показов 939. Ответов 1

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

Сообщение было отмечено ruslan19693 как решение

Решение

Pascal

function min:integer;
var res:integer;
begin
 res := a[1];
 for i := 2 to n do
  if a[i] < res then
   res := a[i];
 min := res;
end;

Вернуться к обсуждению:
последовательность Turbo Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

23.06.2011, 18:17

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

Считать последовательность цифр и преобразовать ее в последовательность соответствующих латинских букв
Все что сам смог написать в Паскале Program lit; Var A,N:char; Begin A:=chr(70); N:=A;...

Задана последовательность из N чисел. Найти самую длинную последовательность, обладающую данным свойством
Прошу помощи мастеров решить ОДНУ задачкУ: 1) Задана последовательность из N чисел. Найти самую...

Если последовательность чисел а1..а12 упорядоченны по условию а1=<a2=<...=<a12, то оставить последовательность без изменений...
Если последовательность чисел а1..а12 упорядоченны по условию а1=<a2=<...=<a12, то оставить...

Сгенерировать последовательность 100 случайных чисел Х. Сформировать новую последовательность, состоящую из элементов yi=yi-1+xi (y1=x1). Для получен
Сгенерировать последовательность 100 случайных чисел Х. Сформировать новую последовательность,...

	23.06.2011, 18:17

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

23.06.2011, 18:17

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

Дана последовательность целых чисел, за которой следует ноль. Определите, содержит ли последовательность числа, являющиеся степенями 2
Задача: Дана последовательность целых чисел, за которой следует ноль. Определите, содержит ли...

Дано натуральное число а. записать убывающую последовательность чисел без последней цифры предыдущего ( например а=2345, полученная последовательность
помогите пожалуйста решить задачу двумя способами, через функции и процедуры! дано натуральное...

2. Дана целочисленная последовательность. Определить количество вхождений каждого числа в последовательность
Написал программу var a,c:array of integer; count,i,p,u: integer; begin for i:=1 to 10 do...

Дана последовательность А1...А50. Получить новую последовательность, исключив отрицательные элементы
Дана последовательность А1...А50. Получить новую последовательность, исключив отрицательные элементы

Наверх