Из трех данных чисел выбрать наименьшее и наибольшее. (Ветвление) перевести из Pascal

@Delaforse · Регистрация: 04.05.2012

Author24 — интернет-сервис помощи студентам

Из трех данных чисел выбрать наименьшее и наибольшее.

Pascal

var
  a,b,c,max:integer;
begin
  read(a,b,c);
  if a > b then
    max:=a
  else
    max:=b;
  if max > c then
    write(max)
  else
    write(c);
end.

SoftIce · 16.06.2012, 08:03

Этот код определяет только наибольшее число.
А на фига переводить? Что в этом коде особенного?

Добавлено через 11 минут
Вот код без перевода с Паскаля, определяет минимальное и максимальное число из трёх введённых.

Visual Basic

Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a = InputBox("A = ", , 5): b = InputBox("B = ", , 7): c = InputBox("C = ", , 9)
MsgBox "Min = " & min(min(a, b), c) & vbCrLf & _
       "Max = " & max(max(a, b), c)
End Sub
 
Private Function min(a As Integer, b As Integer) As Integer
    If a < b Then min = a Else min = b
End Function
 
Private Function max(a As Integer, b As Integer) As Integer
    If a > b Then max = a Else max = b
End Function

	16.06.2012, 08:03

Опции темы

Из трех данных чисел выбрать наименьшее и наибольшее. (Ветвление) перевести из Pascal

Решение