бейсик Вводятся пары чисел - Форум
Суббота, 03.12.2016, 22:42
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » бейсик Вводятся пары чисел
бейсик Вводятся пары чисел
ImpulseДата: Четверг, 11.02.2010, 15:03 | Сообщение # 1
Майор
Группа: Участник
Сообщений: 17
[ 0 ]
Статус: Offline
Вводятся пары чисел вывести минимальную сумму чисел.
Ввод заканчивается, когда введены оба нуля (Сами нули как числа не учитываются). вывести ещё и сами числа.
 
LoremasterДата: Четверг, 11.02.2010, 15:51 | Сообщение # 2
Генерал-майор
Группа: Участник
Сообщений: 45
[ 3 ]
Статус: Offline
Как-то так...
Code
dim a as integer
dim b as integer
dim sum as integer

dim minSum as integer
dim minA as integer
dim minB as integer

dim firstPair as integer
firstPair = 1

do
         input "Enter A and B: "; a, b

  if firstPair = 1 then
   firstPair = 0
   minSum = a + b
  end if
    
   
  if a <> 0 OR b <> 0 then
   sum = a + b
   

   if sum <= minSum then
    minSum = sum
    minA = a
    minB = b
   end if
  end if
   
loop while ((a <> 0) or (b <> 0))

print "Minimal summa: "
print minA; " + "; minB; " = "; minSum
 
ImpulseДата: Четверг, 11.02.2010, 18:42 | Сообщение # 3
Майор
Группа: Участник
Сообщений: 17
[ 0 ]
Статус: Offline
спс биг
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » бейсик Вводятся пары чисел
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016