Как найти среднее арифметическое трех чисел паскаль

Перейти к содержанию

Среди трех чисел найти среднее

Просмотров 28.3к. Обновлено 15 октября 2021

Вводятся три разных числа. Найти, какое из них является средним (больше одного, но меньше другого).

Проверить, лежит ли первое число между двумя другими. При этом может быть два случая:

  • первое больше второго и первое меньше третьего,
  • первое меньше второго и первое больше третьего.

Если ни один из вариантов не вернул истину, значит первое число не среднее. Тогда проверяется, не лежит ли второе число между двумя другими. Это может быть в двух случаях, когда

  • второе больше первого и меньше третьего,
  • второе меньше первого и больше третьего.

Если эти варианты также не вернули истину, то остается только один вариант — посередине лежит третье число. Это при условии, что никакие два числа из трех не могут быть равны между собой. Иначе и здесь надо использовать логические выражения.

Pascal

даны три числа найдите среднее паскаль



var

    a1, a2, a3: integer;

 
begin

    write ('Введите три числа: ');

    readln (a1, a2, a3);

 
    if ((a1 > a2) and (a1 < a3)) or ((a1 < a2) and (a1 > a3)) then

        writeln(a1)

    else

        if ((a2 > a1) and (a2 < a3)) or ((a2 < a1) and (a2 > a3)) then

            writeln(a2)

        else

            writeln(a3);

 
end.





Введите три числа: 3 5 4

4

Язык Си



#include < stdio.h>

main() {

    int a, b, c;

    scanf("%d%d%d", &a,&b,&c);

    if (a > b && a < c || a < b && a > c)

        printf("%dn", a);

    else

        if (b > a && b < c || b < a && b > c)

            printf("%dn", b);

        else

            printf("%dn", c);

}







110 111 109

110

Python

найти среднее число из 3 чисел Python



print('Введите три числа: ')

a = int(input())

b = int(input())

c = int(input())

 
if b < a < c or c < a < b:

    print('Среднее:', a)

elif a < b < c or c < b < a:

    print('Среднее:', b)

else:

    print('Среднее:', c)





Введите три числа: 

453

244

901

Среднее: 453

Basic-256



print "Введите три числа: "

input a

input b

input c

print "Среднее: ";

if a > b and a < c or a < b and a > c then 

	print a

else

	if b > a and b < c or b < a and b > c then 

		print b

	else

		print c

	endif

endif







Введите три числа: 

45

60

54

Среднее: 54

Источник

Узнай цену своей работы

Формулировка задачи:

Написать процедуру, которая возвращает среднее арифметическое из трех чисел, полученных в качестве аргумента. ПОМОГИТЕ, ПОЖАЛУЙСТА, ОЧЕНЬ НАДО ! ! !

Код к задаче: «Найти среднее арифметическое трех чисел»

textual

Листинг программы 

procedure Sred(a,b,c:real; var s:real);
begin
s:=(a+b+c)/3;
end;
var x,y,z,sr:real;
begin
writeln('Введите 3 числа:');
readln(x,y,z);
Sred(x,y,z,sr);
write('Среднее арифметическое=',sr:0:2);
readln
end.

Источник

  • В этой теме 0 ответов, 1 участник, последнее обновление 6 лет, 2 месяца назад сделано Васильев Владимир Сергеевич.

  • Сообщения

    • Найти среднее арифметическое двух и трех вещественных чисел, заданных с клавиатуры.

      Решение:

      Среднее арифметическое N чисел вычисляется как отношение суммы чисел к их количеству. Для Трех чисел:

      $$frac{a+b+c}{3}$$

      program line_2;
uses crt;
var
  a, b, c: real;
begin
  clrscr;
  write('a='); read(a);
  write('b='); read(b);
  write('c='); readln(c);
  write('Среднее арифметическое a, b и c = ');
  write(((a+b+c)/3):4:2);
  readkey;
end.

  • Автор

    Сообщения

  • Для ответа в этой теме необходимо авторизоваться.

Источник

0 / 0 / 0

Регистрация: 26.05.2011

Сообщений: 29

1

Найти среднее арифметическое трех чисел

27.05.2011, 18:18. Показов 7240. Ответов 13

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

Написать процедуру, которая возвращает среднее арифметическое из трех чисел, полученных в качестве аргумента. ПОМОГИТЕ, ПОЖАЛУЙСТА, ОЧЕНЬ НАДО ! ! !



0

Puporev

Почетный модератор

64287 / 47586 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

27.05.2011, 19:25

2
Pascal 
1
2
3
4

procedure Sred(a,b,c:real; var s:real);
begin
s:=(a+b+c)/2;
end;



1

terminator8920

0 / 0 / 0

Регистрация: 26.05.2011

Сообщений: 29

27.05.2011, 19:35

 [ТС]

3
Pascal 
1
2
3
4
5
6

program nekit;
procedure Sred(a,b,c:real; var s:real);
begin
s:=(a+b+c)/2;
end;
begin

а дальше ? pascal пишет , что ожидался оператор, а если убрать второе begin, то он напишет, что ожидался begin…



0

Почетный модератор

64287 / 47586 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

27.05.2011, 19:45

4

А дальше просто программу нужно написать, где эта процедура вызывается с фактическими параметрами…



1

Axel_kz1996

20 / 20 / 9

Регистрация: 24.04.2011

Сообщений: 54

27.05.2011, 19:56

5
Pascal 
1
2
3
4
5
6

короче
var n,s,k:real;
begin
readln(n,s,k);
write((n+s+k)/3:3:3);
end.

Добавлено через 4 минуты

Pascal 
1
2
3
4
5
6
7
8
9

var n,s,k:real;
procedure srednee;
begin
writeln((n+s+k)/3:3:3);
end;
 begin
 readln(n,s,k);
srednee;
 end.



1

Puporev

Почетный модератор

64287 / 47586 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

27.05.2011, 19:57

6

Не write((n+s+k)/3:3:3);, а

Pascal 
1
2
3
4

var n,s,k,sr:real;
..........................
Sred(n,s,k,sr);
write('Среднее=',sr:0:2);

Добавлено через 1 минуту

Цитата
Сообщение от Axel_kz1996
Посмотреть сообщение

/3:3:3

Это что? И это работает?



1

20 / 20 / 9

Регистрация: 24.04.2011

Сообщений: 54

27.05.2011, 19:58

7

да до 3-ёх знаков после запятой округ



1

0 / 0 / 0

Регистрация: 26.05.2011

Сообщений: 29

27.05.2011, 19:59

 [ТС]

8

как же программа выглядит в общем виде ? Я в pascal , как балерина на рыбалке



0

Axel_kz1996

20 / 20 / 9

Регистрация: 24.04.2011

Сообщений: 54

27.05.2011, 20:04

9
Pascal 
1
2
3
4
5
6
7
8
9

var n,s,k:real;
procedure srednee;
begin
writeln((n+s+k)/3:3:3);
end;
 begin
 readln(n,s,k);
srednee;
 end.

Добавлено через 4 минуты
Условие:
Прямоугольный садовый участок шириной Н и дляной М метров разбит на квадраты со стороной 1 метр.
На этом участке расположены грядки. Грядка-это совокупность квадратов удовлетворяющая условиям:
*из любого квадрата можно попасть в любой другой этой же грядки, последовательно переходя по грядке из квадрата в квадрат через их общую сторону;
*никакие две грядки не касаются друг друга ни по вертикали ни по горизонтали(косание углом возможно). Нужно посчитать кол-во грядок.
Ввод: Н и М, далее идут символы » # » -территория грядки и » . » — пустое место в саду.
Вывод: одно число — количество грядок.
Пример:
Input.txt:
5 5
#####
. . . . .
#####
. . . . .
#####

Output.txt:
3

Нужно обьяснить как работает программа:

Pascal 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51

var c:array[0..201,0..201]of char;sp:int64;ii,jj:integer;
 procedure push(i,j:integer);
 begin
 if c[i,j]='#' then begin
 inc(sp);
 ii:=i;
 jj:=j;
 c[i,j]:='.';
 end;end;
 procedure pop(var i,j:integer);
 begin
 i:=ii;
 j:=jj;
 dec(sp);
 end;
 procedure paint(i,j:integer);
 begin
 sp:=0;
 push(i,j);
 while sp>0 do begin
 pop(i,j);
 push(i+1,j);
 push(i-1,j);
 push(i,j+1);
 push(i,j-1);
 end;
 end;
 var n,m,i,j:integer;count:integer;
 begin
 assign(input,'beds.in');
 reset(input);
 assign(output,'beds.out');
 rewrite(output);
 readln(n,m);
 for i:=0 to n+1 do
 for j:=0 to m+1 do
 c[i,j]:='.';
 for i:=1 to n do begin
 for j:=1 to m do
 read(c[i,j]);
 readln;
 end;
 count:=0;
 for i:=1 to n do
 for j:=1 to m do
 if c[i,j]='#' then begin
 paint(i,j);
 inc(count);
 end;
 writeln(count);
 end.

БОЛЬШОЕ СПАСИБО!



1

Почетный модератор

64287 / 47586 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

27.05.2011, 20:13

10

Цитата
Сообщение от Axel_kz1996
Посмотреть сообщение

да до 3-ёх знаков после запятой округ

Я спрашиваю нафига 3 раза? Первая цифра показывает сколько позиций выделено под число(кстати если только после запятой 3 знака, то нет смысла выделять 3 позиции, или вообще не выделять, как у меня или 6-7), вторая=количество знаков после запятой, а для чего третья?



1

0 / 0 / 0

Регистрация: 26.05.2011

Сообщений: 29

27.05.2011, 20:15

 [ТС]

11

Уважаемый Puporev Модератор
напишите, пожалуйста, программу как она должна выглядеть полностью….



0

Puporev

Почетный модератор

64287 / 47586 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

27.05.2011, 20:29

12

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal 
1
2
3
4
5
6
7
8
9
10
11
12

procedure Sred(a,b,c:real; var s:real);
begin
s:=(a+b+c)/3;
end;
var x,y,z,sr:real;
begin
writeln('Введите 3 числа:');
readln(x,y,z);
Sred(x,y,z,sr);
write('Среднее арифметическое=',sr:0:2);
readln
end.



1

20 / 20 / 9

Регистрация: 24.04.2011

Сообщений: 54

27.05.2011, 20:41

13

1234.6666:3:3
печатает
1234.667
а 1234.6666:10:3
печатает
1234.667, пробелы добавляет



1

Почетный модератор

64287 / 47586 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

27.05.2011, 20:44

14

Axel_kz1996, Я про это..

в посте #5



1
Источник

Не уверен в ответе?

Найди верный ответ на вопрос ✅ «Даны 3 чимла найти среднее арифметическое из них паскаль …» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.

Искать другие ответы

Источник

Понравилась статья? Поделить с друзьями:
  • Как найти шрифты на редми
  • Как найти блокировку телефона самсунг
  • Как найти потерянного человека в интернете
  • Как составить отклонение план факт
  • Как найти номер такси индрайвер