Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
1 / 1 / 0
Регистрация: 18.04.2011
Сообщений: 21

Определить, является ли число C средним арифметическим чисел A и B

15.05.2011, 21:49. Показов 1010. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Число с является средним арифметическим чисел а и b.
Pascal
1
2
3
4
5
6
7
8
9
10
program proga;
var c: boolean;
a,b:real;
begin
write('a:='),readln(a);
write('b:='),readln(b);
c:=a+b/2;
writeln('c=',c);
readln;
end.
пишет ошибка 26 несоответствие типа...
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
15.05.2011, 21:49
Ответы с готовыми решениями:

Заполнить строку нулей матрицы средним арифметическим по столбцам, а столбец - средним по строкам
В матрице(10на10) имеются строка и столбец, содержащие только элементы, раввные нулю. Заполните эту...

Число с является средним арифметическим чисел а и b
Число с является средним арифметическим чисел а и b.

Максимальное значение матрицы заменить средним арифметическим чисел строки
в матрице d максимальное значение заменить средним арифметическим чисел строки в которой...

6
2 / 2 / 1
Регистрация: 17.03.2010
Сообщений: 23
15.05.2011, 22:28
С- должно быть вещественным.
0
1 / 1 / 0
Регистрация: 18.04.2011
Сообщений: 21
15.05.2011, 22:32  [ТС]
переделал прогу
Pascal
1
2
3
4
5
6
7
8
9
10
11
var
f:boolean;
a,b,c,e:real;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
e:=a+b/2;
f:=e<>c;
write('c',f);
end.
но чет не правильно робит...
0
30 / 12 / 7
Регистрация: 22.09.2009
Сообщений: 157
15.05.2011, 22:38
вам нужно определить являеться ли введённое вами число средним между двумя?
0
1 / 1 / 0
Регистрация: 18.04.2011
Сообщений: 21
15.05.2011, 22:40  [ТС]
Число с является средним арифметическим чисел а и b
0
30 / 12 / 7
Регистрация: 22.09.2009
Сообщений: 157
15.05.2011, 22:47
если вам нужно определить являеться ли введённое вами число средним между двумя
то код такой
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
f:boolean;
a,b,c,e:real;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
e:=(a+b)/2;
 
writeln(e);
if e=c then
f:=true
else f:=false;
 
writeln('c ',f);
end.
1
1 / 1 / 0
Регистрация: 18.04.2011
Сообщений: 21
15.05.2011, 22:48  [ТС]
спасибо большое)))
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
15.05.2011, 22:48
Помогаю со студенческими работами здесь

Вывести на экран номер строки файла с наибольшем средним арифметическим чисел
Текстовый файл содержашие целые числа. Вывести на экран номер строки с наибольшем средним...

Дописать файл средним арифметическим всех чисел из этого же файла
Дописать файл из вещественных чисел средним арифметическим всех чисел из этого же файла. Вывести...

Дописать файл из вещественных чисел средним арифметическим
Дописать файл из вещественных чисел средним арифметическим всех чисел из этого же файла. Вывести...

Наибольшее заменить средним арифметическим двух чисел, наименьшее заменить их удвоенным произведением
Даны 2 числа. Наибольшее заменить средним арифметическим двух чисел, наименьшее заменить их...

Замена чисел средним арифметическим
Заменить каждый элемент массива средним арифметическим всех элементов, которые расположены до...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Автоматическое создание документа при проведении другого документа
Maks 29.03.2026
Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений
Maks 29.03.2026
Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа
Maks 26.03.2026
Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .
Команды формы и диалоговое окно
Maks 26.03.2026
1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT?
DevAlt 26.03.2026
Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при создании или изменении элементов справочника
Maks 24.03.2026
Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru