Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Alex911
8 / 8 / 1
Регистрация: 29.04.2010
Сообщений: 82
#1

Определить порядковый номер наименьшего из них. использовать оператор цикла с постусловием - Turbo Pascal

10.06.2010, 22:12. Просмотров 870. Ответов 2
Метки нет (Все метки)

дана непустая последовательность различных натуральных чисел, за которой следует ноль. Определить порядковый номер наименьшего из них. использовать оператор цикла с постусловием
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.06.2010, 22:12
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Определить порядковый номер наименьшего из них. использовать оператор цикла с постусловием (Turbo Pascal):

Определить порядковый номер наименьшего из них - Pascal
Дана непустая последовательность различных чисел. Определить порядковый номер наименьшего из них Надо решить без массивов Заранее...

Даны 4 числа. Определить порядковый номер наименьшего среди них - Pascal
Данны 4 числа Определить порядковый номер наименшого среди них! Надо написать программу на algo Всем спасибо!

Последовательность чисел. Определить порядковый номер наименьшего. - Turbo Pascal
Доброго времени суток... Помогите решить задачу по Turbo Pascal... За ранние Спасибо...: Дана непустая последовательность различных...

Определить порядковый номер наименьшего из чисел последовательности - Turbo Pascal
1. Дана непустая последовательность различных натуральных чисел, за которой следует ноль. Определить порядковый номер наименьшего из них....

Оператор цикла с постусловием - Pascal
Дорогие программисты, помогите пожалуйста решить задачу Вывести значение функции на промежутке (a,b вводятся с клавиатуры) c шагом 0.5,...

Используя оператор цикла с постусловием вычислить сумму ряда sum=(2a+i/i) - Turbo Pascal
Используя оператор цикла с постусловием вычислить сумму ряда sum=(2a+i/i) при i=1..n

2
Puporev
Модератор
53008 / 40819 / 14063
Регистрация: 18.05.2008
Сообщений: 94,936
10.06.2010, 22:19 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var a,mn,i,imn:integer;
begin
clrscr;
writeln('Введите не менее двух натуральных чисел, окончание вода 0:');
repeat
readln(mn);
until mn>0;
i:=1;
imn:=1;
repeat
 repeat
 readln(a);
 until a>=0;
 i:=i+1;
 if (a<mn)and(a>0) then imn:=i;
until a=0;
writeln('Номер минимального=',imn);
readln
end.
0
Alex911
8 / 8 / 1
Регистрация: 29.04.2010
Сообщений: 82
10.06.2010, 22:51  [ТС] #3
спасибо
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.06.2010, 22:51
Привет! Вот еще темы с ответами:

Вводится номер месяца. Определить время года, которому соответствует этот месяц. (Использовать оператор Case) - Turbo Pascal
Вводится номер месяца. Определить время года, которому соответствует этот месяц. (Использовать оператор Case).

Дано предложение, в котором имеется несколько букв е. Найти порядковый номер первой и последней из них - Turbo Pascal
Дано предложение , в котором имеется несколько букв е . Найти порядковый номер первой и последней из них.

Найти порядковый номер того из них, которое наиболее близко к какому-нибудь целому числу - Turbo Pascal
помогите пожалуйста на завтра надо Программа, Дано 80 вещественных чисел. Найти порядковый номер того из них, которое наиболее близко...

Дано 10 вещественных чисел. Найти порядковый номер того из них, которое наиболее близко к целому - Turbo Pascal
Дано 10 вещественных чисел. Найти порядковый номер того из них, которое наиболее близко к целому числу)) помогите плиз


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru