Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
некит434
2 / 2 / 0
Регистрация: 23.01.2014
Сообщений: 272
1

Вычислить среднее арифметическое тангенсов трех вещественных чисел

27.01.2014, 14:34. Просмотров 635. Ответов 8
Метки нет (Все метки)

Вычислить среднее арифметическое тангенсов трех вещественных чисел.
Входные данные:
Во входном потоке в первой строке задано три вещественных числа. Значения чисел по модулю не превышают 1 000 000 000.

Выходные данные:
В выходной поток вывести одно вещественное число с точностью пять знаков после запятой.

Пример входного файла (input.txt):
5.5 2.5 7.6
Пример выходного файла (output.txt):
0.70322
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.01.2014, 14:34
Ответы с готовыми решениями:

Вычислить среднее арифметическое тангенсов трех вещественных чисел
Казалось бы легкие задачи, а не получается... Заранее огромное спасибо.. 6....

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

Вычислить среднее арифметическое двух заданных вещественных чисел
Вычислить среднее арифметическое двух заданных вещественных чисел. Входные...

Вывести массив из 50 вещественных чисел от 20 до 40, вычислить среднее арифметическое , посчитать количество элементов.
Добрый день.Задали задание, в паскале я только начинающий. Ничего не могу...

Определить среднее арифметическое вещественных чисел
Даны натуральное число п и вещественные числа а1, а2, ..., а10 . Определить...

8
Cyborg Drone
Модератор
5397 / 3201 / 2450
Регистрация: 17.08.2012
Сообщений: 10,274
27.01.2014, 16:35 2
Pascal
1
2
3
4
5
6
7
readln(a, b, c);
if (cos(a) <> 0) and (cos(b) <> 0) and (cos(c) <> 0)
  then begin
    d := (sin(a) / cos(a) + sin(b) / cos(b) + sin(c) / cos(c)) / 3;
    writeln(d:0:5)
  end
  else writeln('Error: zerodivide.');
0
некит434
2 / 2 / 0
Регистрация: 23.01.2014
Сообщений: 272
27.01.2014, 16:39  [ТС] 3
а полностью
0
Cyborg Drone
Модератор
5397 / 3201 / 2450
Регистрация: 17.08.2012
Сообщений: 10,274
27.01.2014, 16:52 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program tgtgtg;
 
var a, b, c, d: real; //объявляем переменные
 
begin
  write('Enter a b c: ');
  readln(a, b, c); //ввод a, b, c
  if (cos(a) <> 0) and (cos(b) <> 0) and (cos(c) <> 0) //если ни один знаменатель не равен нулю, 
    then begin //то
      d := (sin(a) / cos(a) + sin(b) / cos(b) + sin(c) / cos(c)) / 3; //вычисляем среднее арифметическое тангенсов
      writeln(d:0:5) //и печатаем с пятью знаками после десятичной точки
    end
    else writeln('Error: zerodivide.'); //иначе печатаем сообщение об ошибке
  readln //ждём реакции пользователя перед закрытием программы
end.
Это - в последний раз. Задачи Ваши однообразны, и вполне достаточно основного кода программы.
Скажите, если Вам лень дописать абсолютно стандартные начало и конец к целевому коду, стоит ли мне Вам помогать?
0
некит434
2 / 2 / 0
Регистрация: 23.01.2014
Сообщений: 272
27.01.2014, 16:56  [ТС] 5
Нарушение формата вывода

Добавлено через 1 минуту
подсказки при вводе и пояснения при выводе ВЫВОДИТЬ НЕ НАДО
0
Cyborg Drone
Модератор
5397 / 3201 / 2450
Регистрация: 17.08.2012
Сообщений: 10,274
27.01.2014, 17:14 6
Так сотрите лишнее.

Добавлено через 2 минуты
Pascal
1
2
3
4
5
6
7
8
9
10
11
var a, b, c: real;
 
begin
  readln(a, b, c);
  if (cos(a) <> 0) and (cos(b) <> 0) and (cos(c) <> 0)
    then begin
      d := (sin(a) / cos(a) + sin(b) / cos(b) + sin(c) / cos(c)) / 3;
      writeln(d:0:5)
    end
    else writeln('Error: zerodivide.');
end;
0
некит434
2 / 2 / 0
Регистрация: 23.01.2014
Сообщений: 272
27.01.2014, 17:16  [ТС] 7
Free Pascal Compiler version 2.4.4-3.1 [2012/01/04] for x86_64
Copyright (c) 1993-2010 by Florian Klaempfl
Target OS: Linux for x86-64
Compiling Main.fpc
Main.fpc(7,9) Error: Identifier not found "d"
Main.fpc(8,16) Error: Identifier not found "d"
Main.fpc(11,4) Fatal: Syntax error, "." expected but ";" found
Fatal: Compilation aborted
Error: /usr/bin/ppcx64 returned an error exitcode (normal if you did not specify a source file to be compiled)
0
gygyms
3 / 3 / 1
Регистрация: 27.01.2014
Сообщений: 24
27.01.2014, 17:27 8
Так d объявите.
0
Cyborg Drone
Модератор
5397 / 3201 / 2450
Регистрация: 17.08.2012
Сообщений: 10,274
27.01.2014, 17:37 9
Pascal
1
var a, b, c, d: real;
Добавлено через 1 минуту
И ещё 11 строка
Pascal
1
end.
0
27.01.2014, 17:37
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.01.2014, 17:37

Даны вещественные числа а1, а2, ..., а10. Определить среднее арифметическое вещественных чисел
1)Вычислить приближенно площадь фигуры, об¬разованной кривой у == 0,3(х —...

Дан файл вещественных чисел. Найти среднее арифметическое его элементов
Дан файл вещественных чисел. Найти среднее арифметическое его элементов.

Дан файл вещественных чисел. Найти среднее арифметическое его элементов
дан файл вещественных чисел. найти среднее арифметическое его элементов.


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

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru