Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
RazorIlya19
0 / 0 / 0
Регистрация: 07.12.2013
Сообщений: 37
1

Переменной Y присвоить значение той переменной, которое находится между двумя другими на числовой оси

13.02.2014, 16:10. Просмотров 889. Ответов 1
Метки нет (Все метки)

Даны три вещественных, не равных между собой числа a, b, c. Переменной Y присвоить значение той переменной, которое находится между двумя другими на числовой оси. Например, если a=5, b=2, c=4, то Y=4.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.02.2014, 16:10
Ответы с готовыми решениями:

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

Переменной b присвоить значение true, если между литерами "а" и "z" нет иных символов, кроме строчных латинских букв, и значение false иначе
Логической переменной b присвоить значение true, если между литерами "а" и "z" нет иных символов,...

Переменной L присвоить значение True, если в массиве нечетное число элементов
Создать файл, содержащий массив целых чисел. Определить количество элементов массива. Переменной L...

Присвоить логической переменной t значение true, если выполняется логическое условие
Добрый вечер. В паскале я разбираюсь пока не очень. Вот решил задачу, но сомневаюсь насчет...

Переменной S присвоить значение -1, если максимальный элемент массива А больше максимального элемента В
Заданы два массива А(4), B(6). Переменной S присвоить значение -1, если максимальный элемент...

1
APALoff
1638 / 1067 / 1080
Регистрация: 03.07.2013
Сообщений: 4,507
13.02.2014, 16:30 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

8
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Type mas = array [1..3] of Real;
Var n : mas;
 
Function Y(m : mas) : Real;
Var i,j : Byte; tt : Real;
Begin
  For i:=1 to 2 do
    For j:=i+1 to 3 do
      If m[j]>m[i] then
      Begin
         tt:=m[j];
         m[j]:=m[i];
         m[i]:=tt;
      End;
  y:=m[2];
End;
 
Begin
  ...
  { n[1]:=a; n[2]:=b; n[3]:=c; }
  Writeln(Y(n):8:4);
  ...
End.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.02.2014, 16:30

Переменной t присвоить значение истина, если в одномерном массиве имеется хотя бы одно отрицательное и четное число
Переменной t присвоить значение истина, если в одномерном массиве имеется хотя бы одно...

Обменять значения переменной, имеющей наибольшее значение с переменной, имеющей наименьшее значение
Даны значения трех вещественных переменных a, b и c, отличные друг от друга. Обменять значения...

какая из этих точек лежит между двумя другими.
Всем доброго времени суток) Прошу кому не трудно я в паскале нуб потому прошу прошу помогите...


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

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

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