1 Тема від magnevitis Востаннє редагувалося Torbins (20.10.2013 09:47:45)

  • magnevitis
  • Користувач
  • Поза форумом
  • Дата реєстрації: 04.07.2013
  • Повідомлень: 72
    • Репутація: 3

Тема: Пошук середнього із трьох заданих чисел

program fgh;
var a,b,c : longint;
Begin 
 readln(a,b,c);

 if (a>b) and (b>c) then
 begin
  writeln(b);
 end;

 if (a>c) and (c>b) then
 begin
  writeln(c);
 end;

 if (b>a) and (a>c) then
 begin
  writeln(a);
 end;

 if (c>b) and (b>a) then
 begin
  writeln(b);
 end;

 if (b>c) and (c>a) then
 begin
  writeln(c);
 end;

 if (c>a) and (a>b) then
 begin
  writeln(a);
 end;
end.

Программа повинна знаходити середнє із трьох заданих чисел і виводити його на екран.

2 Відповідь від koala Востаннє редагувалося koala (19.10.2013 19:42:00)

  • koala
  • koala
  • Лінива тваринка
  • Поза форумом
  • Дата реєстрації: 01.05.2013
  • Повідомлень: 15 290
    • Репутація: 13025

Re: Пошук середнього із трьох заданих чисел

http://otvet.сайт-злодій/question/95689134
Як там у Вінниці?
І, будь ласка, опис проблеми дайте нормально. Ну, повинна щось робити - а що, робить щось не те? То напишіть, в чому проблема. І тег code не забудьте.

Подякували: magnevitis1

koala вебсайт

3 Відповідь від magnevitis

  • magnevitis
  • Користувач
  • Поза форумом
  • Дата реєстрації: 04.07.2013
  • Повідомлень: 72
    • Репутація: 3

Re: Пошук середнього із трьох заданих чисел

koala написав:

http://otvet.сайт-злодій/question/95689134
Як там у Вінниці?
І, будь ласка, опис проблеми дайте нормально. Ну, повинна щось робити - а що, робить щось не те? То напишіть, в чому проблема. І тег code не забудьте.


В Вінниці добре, коли компілюю знаходить дві помилки, і я ще новачок,що таке тег code?

4 Відповідь від Cyan

  • Cyan
  • Cyan
  • Replace Team
  • Поза форумом
  • Дата реєстрації: 26.02.2013
  • Повідомлень: 2 102
    • Репутація: 1251

Re: Пошук середнього із трьох заданих чисел

▼показую перший і останній раз

http://pic.lg.ua/x/16/5c061a/46e6e668.png

Подякували: magnevitis1

5 Відповідь від magnevitis

  • magnevitis
  • Користувач
  • Поза форумом
  • Дата реєстрації: 04.07.2013
  • Повідомлень: 72
    • Репутація: 3

Re: Пошук середнього із трьох заданих чисел

program fgh;
var a,b,c : longint;
Begin 
readln(a,b,c);
if (a>b) and (b>c)
then begin
writeln(b);
end;
if (a>c) and (c>b)
then begin
writeln(c);
end;
if (b>a) and (a>c)
then begin
writeln(a);
end;
if (c>b) and (b>a)
then begin
writeln(b);
end;
if (b>c) and (c>a)
then begin
writeln(c);
end;
if (c>a) and (a>b)
then begin
writeln(a);
end;
end.

6 Відповідь від Logans Востаннє редагувалося Logans (19.10.2013 20:11:55)

  • Logans
  • Logans
  • Користувач
  • Поза форумом
  • Звідки: Україна
  • Дата реєстрації: 04.11.2012
  • Повідомлень: 185
    • Репутація: 68

Re: Пошук середнього із трьох заданих чисел

▼Прихований текст
program fgh;
var a,b,c:shortint;
Begin 
  readln(a,b,c);
  if (a>b) and (b>c) then writeln(b)
  else
    if (a>c) and (c>b) then writeln(c)
    else
      if (b>a) and (a>c) then writeln(a)
      else
        if (c>b) and (b>a) then writeln(b)
        else
          if (b>c) and (c>a) then writeln(c)
          else
            if (c>a) and (a>b) then writeln(a)
end.

Держіть... Цікаво те, що Pascal ABC не знайшов в мене помилок.
P.S. Гадаю не доцільно використовувати Longint в навчальних програмах, shortint достатньо.

Подякували: magnevitis1

7 Відповідь від magnevitis

  • magnevitis
  • Користувач
  • Поза форумом
  • Дата реєстрації: 04.07.2013
  • Повідомлень: 72
    • Репутація: 3

Re: Пошук середнього із трьох заданих чисел

Oleg написав:
▼Прихований текст
program fgh;
var a,b,c:shortint;
Begin 
  readln(a,b,c);
  if (a>b) and (b>c) then writeln(b)
  else
    if (a>c) and (c>b) then writeln(c)
    else
      if (b>a) and (a>c) then writeln(a)
      else
        if (c>b) and (b>a) then writeln(b)
        else
          if (b>c) and (c>a) then writeln(c)
          else
            if (c>a) and (a>b) then writeln(a)
end.

Держіть... Цікаво те, що Pascal ABC не знайшов в мене помилок.
P.S. Гадаю не доцільно використовувати Longint в навчальних програмах, shortint достатньо.


Все одно знаходить 2 помилки

8 Відповідь від magnevitis

  • magnevitis
  • Користувач
  • Поза форумом
  • Дата реєстрації: 04.07.2013
  • Повідомлень: 72
    • Репутація: 3

Re: Пошук середнього із трьох заданих чисел

Все,дякую всім,по новій переписав все вийшло,а все тому,що я переможець по життю.

9 Відповідь від koala

  • koala
  • koala
  • Лінива тваринка
  • Поза форумом
  • Дата реєстрації: 01.05.2013
  • Повідомлень: 15 290
    • Репутація: 13025

Re: Пошук середнього із трьох заданих чисел

Щоб бути переможцем і надалі, вказуйте, які саме помилки у вас знаходить компілятор. Бо це можуть бути "закінчилося місце на диску C:" і "неправильний файл налаштувань компілятора".

koala вебсайт

10 Відповідь від User 298

  • User 298
  • Гість

Re: Пошук середнього із трьох заданих чисел

magnevitis написав:

Все одно знаходить 2 помилки

Скріншоти помилок в студію.