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

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

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 (19.10.2013 19:42:00)

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

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

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

3

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

koala написав:

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


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

4

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

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

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

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

5

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 (19.10.2013 20:11:55)

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

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

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

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

9

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

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

10

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

magnevitis написав:

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

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