Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Создайте программу расчета функции y(x) для трех разных параметров https://www.cyberforum.ru/ pascalabc/ thread2769329.html Создайте программу расчета функции y(x) для трех разных параметров. Переменная x вводится с клавиатуры.	Pascal ABC Написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика Написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика. Параметр R задается константой.
Pascal ABC Определить количество информации в сообщении https://www.cyberforum.ru/ pascalabc/ thread2769227.html Здравствуйте, необходима помощь в решении весьма странной задачи, текст задачи: Напишите программу на языке программирования Pascal для определения количества информации в сообщении, при этом на этапе ввода данных пользователь определяет, являются ли события равновероятными или нет, и в зависимости от этого производятся соответствующие вычисления. Если у кого-то...	Pascal ABC Вычислить определённый интеграл методом трапеций Запись алгоритмов вычисления определенного интеграла с использованием подпрограмм различного вида. Пределы интегрирования и количество интервалов вводится с клавиатуры. Интеграл: \int_{\frac{\pi }{6}}^{\frac{\pi }{3}}(\operatorname{tg}x+\operatorname{ctg}x)\operatorname{d}x Метод вычисления: метод трапеций. https://www.cyberforum.ru/ pascalabc/ thread2769084.html
Найти корень нелинейного уравнения методом хорд Pascal ABC Численные методы. Составить программу вычисления на заданном отрезке корня нелинейного уравнения методом хорд. a)\ \ x-\frac{1}{3+\sin 3.6x}=0\ \ \ b)\ \ 0.1x^2-x\ln x=0\ \ \	Pascal ABC Массив: Умножить все члены массива на квадрат ее наименьшего члена https://www.cyberforum.ru/ pascalabc/ thread2769045.html 1. Даны вещественные числа a1, a2, …, a25. Умножить все члены по¬следовательности a1, a2, …, a25 на квадрат ее наименьшего члена, если ai≥0, и на квадрат ее наибольшего члена, если ai<0.
Pascal ABC Найти число способов выплаты суммы https://www.cyberforum.ru/ pascalabc/ thread2769019.html Дано натуральное число n. Определить число способов выплаты суммы n рублей с помощью монет достоинством 1, 2, 5 рублей и бумажных купюр достоинством 10 рублей, а также все способы выплаты (указать, какие монеты и купюры, и в каком количестве следует использовать). Вот прога на visual basic такая, помогите перевести в паскаль её #include <iostream> using namespace std;	Сделать задачу с модулями (двумерные массивы) Pascal ABC Задача полностью решена и работает, не получается разбить по модулям(описание, обработка и основ.программа) - перестает работать, помогите, пожалуйста :( {Имеется каталог на 100 видов электроприборов, где указаны: цена и название. Десять магазинов составили приоритетные списки, где указаны по 50 видов товара, которые хотели бы приобрести. Зная количество денег для этих целей в каждом магазине,...
Pascal ABC Определит оценку, которая пойдет в зачет каждому участнику соревнования помогите неправильно считает средний балл,что для этого надо? uses opis, obrab; var A:massiv; m1,n1:integer; min,max,summ:real; begin https://www.cyberforum.ru/ pascalabc/ thread2768848.html	Pascal ABC Дан двумерный массив. Найти номера всех максимальных элементов https://www.cyberforum.ru/ pascalabc/ thread2768845.html что не так в задаче? выдает ошибку "отсутствует определение процедуры kolich",а также выдает мак.элемент неверно помогите пожалуйста unit opisanie; interface const n=100;m=100; type massiv=array of integer; var A:massiv; implementation end.
Поиск прямоугольников, лежащих на диагонали Pascal ABC Всем доброго вечера! Написал процедуру, которая по моей логике проходит массив прямоугольников и проверяет лежат ли на прямой, образованной данной диагональю точки от других прямоугольников. Для понимания еще прикрепляю картинку. То есть мы проходим массив с прямоугольниками, на диагонали прямоугольника номер 1 лежат точки от прямоугольников 2 и 3, значит программа должна выписать этот...	Pascal ABC Найти координаты левого нижнего и правого верхнего углов минимального прямоугольника, содержащего данные прямоугольники Даны два прямоугольника, стороны которых параллельны или перпендикулярны осям координат. Известны координаты левого нижнего угла каждого из них и длины их сторон. Найти координаты левого нижнего и правого верхнего углов минимального прямоугольника, содержащего указанные прямоугольники. https://www.cyberforum.ru/ pascalabc/ thread2768696.html

by748

0 / 0 / 0

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

Сообщений: 22

Выдаёт отрицательное произведение, исправить ошибку нужно - Pascal ABC - Ответ 15181152

14.01.2021, 21:28. Показов 481. Ответов 1

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

Author24 — интернет-сервис помощи студентам

Pascal

program cycle_1;
var
  i, dobutok, suma ,a, b:   integer ;
  
begin
  dobutok := 1;
  suma := 0;
  writeln('  введите промежуток : ');
  readln(a, b );
  for i := a to b do
  begin
    dobutok := dobutok * i; 
    suma := suma + i;
  end;
  write('dobutok = ', dobutok, ' , suma = ', suma);
end.

dobutok - произведение
и вот что выдает после компиляции :
введите промежуток :
1
20
dobutok = -2102132736 , suma = 210
как такое может быть?помогите исправить

Вернуться к обсуждению:
Выдаёт отрицательное произведение, исправить ошибку нужно Pascal ABC

Следующий ответ

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

14.01.2021, 21:28

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

Нужно исправить код, выдаёт ошибку и не запускает форму, нужно привязать базу данных Access
Мне нужно вставить ссылку на базу данных Access, но я не пойму, он ее не видит что ли, либо я не...

Если вводит в объект Edit отрицательное число, то выдает ошибку "-" is not a valid integer value". Как исправить?
var Form1: TForm1; a,r:integer; l,s,v,p:real; implementation {$R *.dfm} procedure...

Подскажите как исправить ошибку. прога ломается на 79 строке. а ошибку не выдает
#include <iostream> #include <cstdlib> #include <ctime> using namespace std; int chisla(int...

В коде выдает ошибку на 15 строчке. Мне надо исправить эту ошибку
procedure TForm1.BOkClick(Sender: TObject); var e1, e2: double; begin Label1.Caption := '';...

	14.01.2021, 21:28

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

14.01.2021, 21:28

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

Структура: Не могу понять, почему выдает ошибку и как собственно эту ошибку можно исправить?
Привет,не могу понять почему ошибку выдает и как сбстно эту ошибку можно исправить? #include...

Вычислить сумму элементов строк, содержащих хотя бы одно отрицательное число - исправить ошибку
Задание Дана вещественная прямоугольная матрица размером Вычислить сумму элементов строк,...

Выдает ошибку, как исправить?
Версия Joomla 1.5.22 virtuemart 2.0.3 Выдает ошибку Fatal error: Cannot access empty property...

Выдаёт ошибку, поможете исправить пж)
#include<iostream> const int N = 10; using namespace std; int main() { int A; A = (3, 22,...

Выдаёт ошибку, помагите исправить пж)
#include <iostream> #include <cstdlib> #include <ctime> using namespace std; int main() {...

Выдает ошибку, как исправить её?
//Подсчитать количество строк заданной целочисленной матрицы NxN, являющихся перестановкой чисел...

Наверх