4 / 4 / 0
Регистрация: 03.06.2015
Сообщений: 18
1

На сколько рост самого высокого человека из группы превышает рост самого низкого?

04.06.2015, 08:22. Показов 2179. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Известен рост каждого человека из группы.На сколько рост самого высокого из них превышает рост самого низкого?
Надо написать Циклом с предусловием и постусловием,на Delphi.
За ранее спасибо!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.06.2015, 08:22
Ответы с готовыми решениями:

На сколько рост самого высокого студента превышает рост самого низкого? (цикл repeat)
Известен рост каждого человека из группы.На сколько рост самого высокого из них превышает рост...

Известен вес каждого человека из группы. Верно ли, что вес самого тяжелого из них превышает массу самого легко
Известен вес каждого человека из группы. Верно ли, что вес самого тяжелого из них превышает массу...

Известен рост каждого человека из группы...
Известен рост каждого человека из группы. на сколько рост самого высокого из них превышает рост...

Описать функцию высокий, для определения имени самого высокого мужчины из группы
type имя=(Аня,Валя,Женя,Петя,Саша,Таня,Шура,Юра); данные=record пол: (муж,жен); ...

4
692 / 509 / 238
Регистрация: 02.10.2012
Сообщений: 1,741
04.06.2015, 08:25 2
Лучший ответ Сообщение было отмечено RubenNuriev как решение

Решение

найти Min и Max
Delphi
1
2
....
FAnswer:=Max-Min;
1
4 / 4 / 0
Регистрация: 03.06.2015
Сообщений: 18
10.06.2015, 12:50  [ТС] 3
Известен рост каждого человека из группы. На сколько рост самого высокого из них превышает рост самого низкого?
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm2.Button14Click(Sender: TObject);// Цикл While
var k,i,n,max,min,m :integer;
begin
n:=StrToInt(Edit11.Text);//Ввод числа человек
i:=0;
max:=0;
min:=0;
while i<n do
begin
k:=StrToInt(InputBox('Рост','Введите рост'+IntToStr(i)+' ','0'));
ListBox2.Items.Add(IntToStr(k));//Вывод роста каждого человекка из группы
if k>max then max:=k;
if k<min then min:=k;
i:=i+1;
end;
m:=max-min;
Edit13.Text:=IntToStr(m);// На сколько рост самого высокого превышает рост самого низкого
end;
Что тут не так? Помогите люди добрые
0
4 / 1 / 2
Регистрация: 08.06.2015
Сообщений: 21
10.06.2015, 12:51 4
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm2.Button14Click(Sender: TObject);// Цикл While
var k,i,n,max,min,m :integer;
begin
n:=StrToInt(Edit11.Text);//Ввод числа человек
i:=0;
max:=0;
min:=0;
while i<n do
begin
k:=StrToInt(InputBox('Рост','Введите рост'+IntToStr(i)+' ','0'));
ListBox2.Items.Add(IntToStr(k));//Вывод роста каждого человекка из группы
if k>=max then max:=k;
if k<=min then min:=k;
i:=i+1;
end;
m:=max-min;
Edit13.Text:=IntToStr(m);// На сколько рост самого высокого превышает рост самого низкого
end;
1
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
10.06.2015, 12:54 5
Delphi
1
2
max:=0;
min:=250;
1
10.06.2015, 12:54
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.06.2015, 12:54
Помогаю со студенческими работами здесь

С клавиатуры вводится рост и вес человека
Товарищи, помогите, пожалуйста, скоро экзамен по Делфи, а мы его совсем не изучали, задачи не...

Определить количество учеников в классе чей рост превышает средний
Доброе утро, помогите допелить задачу вот условие задачи Средний рост я уже нашел? а не могу найти...

Работа с записями (определить имя самого высокого мужчины)
Ребят, дана запись, с именами, полом и ростом, нужно определить имя самого высокого мужчины ...

Одномерные массивы: определить количество учеников в классе, чей рост превышает средний
Помогите написать программу, которая определяет количество учеников в классе, чей рост превышает...


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

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

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