Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Подпрограммы:процедуры и функции https://www.cyberforum.ru/ pascal/ thread179137.html
найти площадь круга,используя подпрограмму нахождения площади окружности по данному диаметру.
Pascal процедуры и функции
var x,y:integer; procedure Bot(var a:integer, b:integer); begin a:=b-3; b:=b+a; end; begin x:=4; y:=9; Bot(x,y); writeln(x,y); end.
Pascal Проверьте пожалуйста https://www.cyberforum.ru/ pascal/ thread179109.html
вот условие Описать процедуру PowerA3(A, B), вычисляющую третью степень числа A и возвращающую ее в переменной B (A — входной, B — выходной параметр; оба параметра являются вещественными). С помощью этой процедуры найти третьи степени пяти данных чисел. Program proc; var x,y,A,B:real; i:byte; procedure PowerA3(x,y:real; var A,B:real); begin A:=x; B:=A*A*A; end; Begin
Pascal Даны три натуральных числа. Найти наименьшее общее кратное этих чисел. Вычисление наибольшего общего делителя двух чисел оформить в виде функции польз Даны три натуральных числа. Найти наименьшее общее кратное этих чисел. Вычисление наибольшего общего делителя двух чисел оформить в виде функции пользователя. https://www.cyberforum.ru/ pascal/ thread179108.html
Среднее арифметическое ненулевых элементов введенного с клавиатуры массива целых чисел Pascal
Здравствуйте! Нужно написать программу которая вычисляет среднее арифметическое не 0-вых элементов введенного с клавиатуры массива целых чисел. Массив Сумма количество Среднее арифметическое
Pascal Число, представимое двумя способами в виде суммы кубов https://www.cyberforum.ru/ pascal/ thread179099.html
Найти минимальное натуральное число , представимое двумя различными способами в виде суммы кубов двух натуральных чисел.
Pascal Файлы. Получить в файле g все компоненты файла f, которые делятся на m и не делятся на n Заполнить файл последовательного доступа f целыми числами,полученными с помощью генервтора случайных чисел. Получить в файле g все компоненты файла f, которые делятся на m и не делятся на n. Напишите,пожалуйстя, по проще :D https://www.cyberforum.ru/ pascal/ thread179098.html Составить программу для решения квадратного уравнения Pascal
1. Установить уровень учебных достижений ученика (1,2,3,4) соответственно к заданной оценки (от 1 до 12). 2. Заданно три цифровое число. Определить какая цифра в нем больше -первая или последняя. 3. Составить программу для решения квадратного уравнения a(квадрат)+и(квадрат) +с=0, при чем а не равно нолю. Заранее благодарен...
Pascal С помощью функции найти номер минимального элементов массивов https://www.cyberforum.ru/ pascal/ thread179091.html
Добрый день, помогите решить задачку. Забыл массивы( Описать функцию Nmin(a,n)1|Nmax(a,n)2 целого типа, находящую номер минимального 1 | максимального 2 элемента массива (массив состоит из N вещественных чисел). С помощью этой функции найти номер минимального 1 | максимального 2 элементов массивов A,B,C размера NA,NB,NC соответственно. Добрые люди, помогите, к завтрашнему дню нужно!
Pascal Найти количество элементов массива, равных минимальному помогите в одномерном массиве найти количество элементов равных минимальному и заменить числа введенные с клавиатуры на максимальное! помогите пожалуйста https://www.cyberforum.ru/ pascal/ thread179086.html
Процедуры Pascal
Описать процедуру PowerA3(A, B), вычисляющую третью степень числа A и возвращающую ее в переменной B (A — входной, B — выходной параметр; оба параметра являются вещественными). С помощью этой процедуры найти третьи степени пяти данных чисел. Добавлено через 12 минут помогите! Добавлено через 28 минут Помогите
Pascal Модуль https://www.cyberforum.ru/ pascal/ thread179061.html
Помогите пожалуйста .
46 / 46 / 36
Регистрация: 18.10.2010
Сообщений: 212
20.10.2010, 22:41 0

Составьте программу, которая вычисляет среднюю плотность раствора по результатам измерения плотности 7 проб + еще задача - Pascal - Ответ 1044537

20.10.2010, 22:41. Показов 6064. Ответов 5
Метки (Все метки)

Ответ

SuPeR XaKer, вот так?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
const
 A : array [ 1 .. 7] of integer = (1205,1350,1170,1320,1220,1310,1180) ;
 n=7;
var
S: real;
i: integer;
begin
clrscr;
s:=0;
for i:=1 to n do
S:=s+a[i];
writeln ('Srednee=',s/n:2:2);
end.

опередили мну )))

Вернуться к обсуждению:
Составьте программу, которая вычисляет среднюю плотность раствора по результатам измерения плотности 7 проб + еще задача Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.10.2010, 22:41
Готовые ответы и решения:

Написать программу, которая вычисляет среднюю (за неделю) температуру воздуха
Написать программу, которая вычисляет среднюю (за неделю) температуру воздуха. Исходные данные...

Написать программу, которая вычисляет среднюю за неделю температуру воздуха
Написать программу, которая вычисляет среднюю за неделю температуру воздуха. Выходные данные должны...

Составьте программу, которая осуществляет преобразование единиц измерения физических величин
Составьте программу, которая осуществляет преобразование единиц измерения физических величин: а)...

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

5
20.10.2010, 22:41
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.10.2010, 22:41
Помогаю со студенческими работами здесь

составьте программу, которая вычисляет суму чисел от 1 до N
помогите плз ещё одну задачку условие составьте программу, которая вычисляет суму чисел от 1 до...

Составьте программу, которая вычисляет сумму чисел от 1 до 10
Составьте программу, которая вычисляет сумму чисел от 1 до 100. помогите пожалуйста...

Составьте программу, которая вычисляет произведение чисел от 1 до N
1) Составьте программу, которая вычисляет произведение чисел от 1 до N. Значение N вводится с...

Составьте программу, которая вычисляет произведение чисел от 1 до N
Помогите пожалуйста! Составьте программу, которая вычисляет произведение чисел от 1 до N....

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru