Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC Найти сумму членов ряда https://www.cyberforum.ru/ pascalabc/ thread673779.html
2) Обсчитать сумму членов ряда с точностью до члена ряда меньшего за 10 (в -5 степени):
Pascal ABC С заданной точностью определить точку пересечения функции
1) Определить с точностью до 0,2 точку пересечения функции y = x - e(в степени a*x(квадрате)) с осью х при изменении аргумента х от b0 до bm з шагом 0,2.
Pascal ABC Определить среднее арифметическое чисел кратных 3 и с 1 в качестве последней цифры. Написать программу с использованием всех видов циклов: С клавиатуры вводится последовательность из N целых чисел. Определить среднее арифметическое чисел кратных 3 и с 1 в качестве последней цифры. П.С Буду очень благодарен, может сам чем то помочь смогу. https://www.cyberforum.ru/ pascalabc/ thread673756.html Pascal ABC Вычислить значения функции на заданном отрезке с заданным шагом https://www.cyberforum.ru/ pascalabc/ thread673753.html
Составить постановку, алгоритм и программу выдачи на экран в PASCALe значение функции не меньше 2.3 t=In(14.5q/152.9)+Sin5.3q на отрезке с шагом z помогите плиз а то я вообще не шарю)))
Интегралы 3 способами Pascal ABC
Ребят, подскажите пожалуйста, в программе при запуске ошибка... как мне ее исправить? program Integral; const Int = -0.682143; // - точное значение интеграла function F(x:real):real; // вид интеграла begin F:=(1 - sqrt(x))/((x+1)*sqrt(x)); end; var n_old,n_new,i:integer; a,b,h,s_r,s_l,tr,simp,x,integral,eps,kprn:real;
Pascal ABC Логической переменной присвоить значение true, если точка принадлежит заштрихованной области Логической переменной p присвоить значение true, если точка с координатами x и у принадлежит заштрихованной области, и false в противном случае: https://www.cyberforum.ru/ pascalabc/ thread673702.html
Pascal ABC Логической переменной присвоить значение true, если точка принадлежит заштрихованной области Стоит задача: логической переменной p присвоить значение true, если точка с координатами x и y принадлежит заштрихованной области (вложено). Как реализовать в данной ситуации? Кажется, уравнение окружности не подойдет. https://www.cyberforum.ru/ pascalabc/ thread673694.html Pascal ABC Дано натуральное число N. Вычислить сумму ряда
Вычислить: 1\2\+3\4+5\6+...+2n-1\n
Pascal ABC Процедура поиска минимального эллемента массива Создать матрицы А и В. Вывести их. В подпрограмме определить минимальное в матрице А и минимальное в матрице В. Столбец той матрицы, где наименьшее минимальное, обнулить, а столбец матрицы с большим минимальным рассортировать по убыванию. При выводе матриц выделить цветом тот столбец, где произошло изменение. Паскаль изучаю недавно,по этому появились проблемы при решении данной задачи .Буду... https://www.cyberforum.ru/ pascalabc/ thread673680.html Pascal ABC Обмен значений, подсчет слов в файле и статистика их вхождений Добрый вечер. Собственно интересуют два вопроса: 1) Можно ли обменять значения массива не заводя доп переменную, если тип элемента массива - запись вида: type zap=record name:string; a:integer; b:real; end; https://www.cyberforum.ru/ pascalabc/ thread673672.html
Составить программу, которая печатает true, если точка с координатами (x,y) принадлежит закрашенной области Pascal ABC
Составить программу, которая печатает true, если точка с координатами (x,y) принадлежит закрашенной области, и false в противном случае:
Pascal ABC Напечатать координаты точки пересечения прямых https://www.cyberforum.ru/ pascalabc/ thread673595.html
Даны числа a1, b1, c1, a2, b2, c2. Напечатать координаты точки пересечения прямых, описываемых уравнениями a1x+b1y=c1 и a2x+b2y=c1, либо сообщить, что эти прямые совпадают, не пересекаются или вовсе не существуют.
181 / 179 / 23
Регистрация: 29.08.2012
Сообщений: 489
18.10.2012, 00:42 0

Дан файл вещественных чисел. Подсчитать среднее значение чисел большее 3 - Pascal ABC - Ответ 3574959

18.10.2012, 00:42. Показов 1314. Ответов 6
Метки (Все метки)

Ответ

Извиняюсь, не успел последний вариант сообщения записать. Поэтому вот:
1. С ходу бросается в глаза, что ты считываешь из файла вещественное число в переменную (c) целочисленного типа.
2. Переменная n вполне может быть integer, так как она работает как счётчик чисел больше тройки.
3. Не уловил где заканчивается логическия скобка оператора while: begin-end ?
4. Не уловил что за переменная 'a' которая даже не объявлена и почему требуется её ввод от пользователя.
5. Переменная 's' нигде не использована.
6. Отсутствует суммирование значений чисел которые оказались больше трёх.

Давай уж сам исправляй, тем более, что верного тут очень мало

Вернуться к обсуждению:
Дан файл вещественных чисел. Подсчитать среднее значение чисел большее 3 Pascal ABC
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.10.2012, 00:42
Готовые ответы и решения:

Дан файл целых чисел. Подсчитать произведение чисел большее 5
program primer; var fx: text; s,c:integer; begin assign(fx,'F:\0001.txt'); reset (fx); S:=0;...

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

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

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

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

Дан массив вещественных чисел. Найти среднее арифметическое положительных и отрицательных чисел
Дан массив вещественных чисел А(А1,А2,…,Аn). Найти среднее арифметическое положительных и...

Дан массив вещественных случайных чисел. Подсчитать сумму положительных чисел
Дан массив вещественных случайных чисел (размер массива определяет пользователь, но в диапазоне )....

Дан файл вещественных чисел Создать файл целых чисел, содержащий номера локальных максимумов исходного файла
2-File. Дан файл вещественных чисел. Создать файл целых чисел, содержащий номера всех локальных...

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

Дан файл целых чисел. Создайте файл вещественных чисел, компонентами которого будут
Дан файл целых чисел. Создайте файл вещественных чисел, компонентами которого будут средние...

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

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