Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Составить программу для вычисления массива Составить* программу для вычисления W= A*B/(C+2) A - наибольший элемент массива; B - произведение элементов массива с четными номерами; C - количество элементов массива, больших D (вводится с клавиатуры). https://www.cyberforum.ru/ pascal/ thread1211670.html	Переписать методом ООП Pascal Переписать методом Объектно-Ориентированного Программирования данную программу. Const N=16; Var A,B:Array of Integer; i:byte; Begin Randomize; for i:=1 to N do begin
Pascal Найти отношение произведений отрицательных и положительных элементов массива https://www.cyberforum.ru/ pascal/ thread1211625.html Ввести с клавиатуры целое число. 1) Если число равно 1, то в заданных массивах 10 P и 12 Q найти: - R1 - отношение произведений отрицательных и положительных элементов массива Р; - R2 - отношение произведений отрицательных и положительных элементов массива Q. Поиск R1 и R2 осуществить в подпрограмме. 2) Если число равно -1, то в заданной матрице B(5x5) найти min элемент в каждой строке и...	Pascal Программа не находит модуль Почему программа MBM и другие модули не находят модуль MBMData? https://www.cyberforum.ru/ pascal/ thread1211296.html
Pascal Составить программу, определяющую, на какую букву оканчивается второе слово предложения составить программу, определяющую, на какую букву оканчивается второе слово предложения(паскаль)	Pascal Разработать программу вычисления значения многочлена Разработать программу вычисления значения многочлена P(x)=A0+A1x+A2x2+...+Anxn в целочисленной точке x. При этом значения коэффициентов A0, A1, ..., An вводятся с клавиатуры и динамически размещаются в памяти либо в форме массива, либо в форме стека. help срочно нужно к завтрому https://www.cyberforum.ru/ pascal/ thread1210876.html
Pascal Определить сумму элементов массива X[n] с четными номерами https://www.cyberforum.ru/ pascal/ thread1210701.html Определить сумму элементов случайного массива X с четными номерами. Вывести массив и полученную сумму. Возвести в квадрат все элементы исходного массива X и получить новые значения. Вывести полученный массив. Количество элементов задать самостоятельно.	Вычислить значение выражения Pascal Вычислить: \sum_{i=1}^{100}\,\sum_{j=1}^{60}\,\sin \left(i^3+j^4 \right)
Pascal Вычислить значение выражения Дано действительное число x. Вычислить: x-\frac{x^^3}{3!}+\frac{x^^5}{5!}-\frac{x^^7}{7!}+\frac{x^^9}{9!}-\frac{x^^{11}}{11!}+\frac{x^^{13}}{13!} https://www.cyberforum.ru/ pascal/ thread1210494.html	Pascal Переставить числа в массиве: положительные, отрицательные, нули, с сохранением изначального порядка следования https://www.cyberforum.ru/ pascal/ thread1210307.html Дан массив целых чисел,содержащий 10 элементов.Записать в этот же массив сначало все положительные,затем отрицательные,затем нули, сохраняя их порядок следования в массиве. Нужна программа и блок-схема.
Напечатать в алфавитном порядке все согласные буквы, которые входят ТОЛЬКО в одно слово. Составить Блок-схему Pascal program LAB6; {Дан текст на русском языке. Напечатать в алфавитном порядке все согласные буквы, которые входят ТОЛЬКО в одно слово. Примеры: 1. Дана строка: 'бвгао, джзие, бвгджз' Ответ: Нет ни одной согласной буквы, которая входила бы только в одно слово. 2.	Pascal Решить уравнение и составить блок схему x=2a+b Если x >= 0, то x^2-lnx Если 0<= x < 10 , то 2^a+sin^2x Если x < 0 , то tgx + a/5 задать A и В, и выполнить то уравнение под которое подходит Х.( + Блок-схема), заранее благодарен!) https://www.cyberforum.ru/ pascal/ thread1210300.html

CodeR

Фрилансер

3418 / 2815 / 3000

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

Сообщений: 8,587

Записей в блоге: 1

21.06.2014, 08:26

Вычислить сумму и количество элементов файла, значение которых больше чем 9,3 - Pascal - Ответ 6346505

21.06.2014, 08:26. Показов 1250. Ответов 1

Метки (Все метки)

Сообщение было отмечено laderic как решение

Решение

Pascal

Var f:file of integer;
    i,m,k1,k2,s,sr:integer;
Begin
    Assign(f,'in.dat');Rewrite(f);
    For i:=1 to random(11)+10 do
    Begin
      m:=random(31)-15;
      write(f,m);
      write(m:4);
    End;
    writeln;
    Reset(f);
    While not Eof(f) do
    Begin
      read(f,m);
      if m>9.3 then
      Begin
        s:=s+m;
        inc(k1);
      End;
      if m<-3.5 then
      Begin
        sr:=sr+m;
        inc(k2);
      End;
    End;
    writeln('Сумма элементов больших чем 9.3 = ',s,' их количество = ',k1);
    writeln('Среднее арифметическое элементов меньших чем -3.5 = ',sr/k2:0:2);
    Close(f);
    readln;
End.

Добавлено через 41 секунду
Только не понятно,если файл целочисленный,то зачем числа для сравнения вещественные?!

Вернуться к обсуждению:
Вычислить сумму и количество элементов файла, значение которых больше чем 9,3 Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

21.06.2014, 08:26

Готовые ответы и решения:

Вычислить среднее арифметическое элементов, значение которых больше чем значение последнего
Задача по С++(Не могу понять где ошибка) #include<iostream> using namespace std; int F1(int a,...

Вычислить сумму и количество отрицательных элементов массива, которые больше чем b и меньше чем a
Требуется помощь в написании программы по обработке одномерного массива в Delphi. Условие:...

Вычислить сумму и количество элементов, которые больше чем а, с непарными номерами
Здраствуйте, помогите пожалуйста с решением задачки. Вот условие: Составить программу для...

Найти сумму и количество элементов, абсолютное значение которых больше среднеарифметического
Ввести целочисленный массив, состоящий из 17 элементов. Найти сумму и количество элементов,...

	21.06.2014, 08:26

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

21.06.2014, 08:26

Помогаю со студенческими работами здесь

Вычислить сумму и количество элементов последовательности, значения которых больше 0, но меньше 1
!!!Очень нужна помощь Написать программу для решения следующей задачи: вычислить сумму и количество...

Вычислить количество элементов в файле, значение которых больше среднего арифметического
Дано файл , элементами которого являются целые числа. Вычислить количество элементов ,значение...

Вычислить количество элементов массива, значение которых больше произведения их индексов
Составить программу, в которой сформировать двумерный целочисленный массив A. Вычислить...

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

Наверх