Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET Даны 3 массива. Построить 4-й, элемент которого - номер массива, в котором оказался минимальный из соответствующих даны три массива построить четвертый элемент которого - номер массива в котором оказался минимальный из соответствующих исходных элементов.Подсчитать скольков поллученном массиве окажется элементов... https://www.cyberforum.ru/ pascalabc-net/ thread2150268.html PascalABC.NET Текстовые файлы. Напечатать все слова, содержащие числа от 10 до 99
задание: напечатать все слова содержащие числа от 10 до 99 как реализовать? типа такого: for var k := 1 to length(copy2) do begin if k = (length(copy2)) then break; ...
PascalABC.NET Поменять местами элементы массива a, имеющие нечётный индекс на элементы массива b, имеющие чётный индекс https://www.cyberforum.ru/ pascalabc-net/ thread2150245.html
дан массив a и b содержащий по 20 элементов каждом.Поменять местами элементы массива a ,имеющие нечётный индекс на элементы массива b ,имеющие чётный индекс и найти минимальные элементы в этих...
PascalABC.NET Написать программу, которая выводит на экран спортсмена с минимальным результатом Помогите, пожалуйста! Созданы 2 текстовых файла и 2 типизированных файла. В первом текстовом файле-имена спортсменов, во втором текстовом файле-фамилии спортсменов. В первом типизированном файле-... https://www.cyberforum.ru/ pascalabc-net/ thread2150230.html
ASCIIZ PascalABC.NET
Var s,s1,s2:string; i:byte; b:boolean; Begin write('Введите строку: ');readln(s); s:=s+' '; s1:=Copy(s,1,Pos(' ',s)-1); Delete(s,1,Pos(' ',s)); While Pos(' ',s)>0...
PascalABC.NET Очень нужно решение олимпиады , Конфеты Карлосона Карлсон — самый лучший в мире упаковщик конфет! Если количество конфет в некоторых коробках оказывается разным, Карлсон перекладывает часть конфет так, чтобы во всех коробках было конфет поровну.... https://www.cyberforum.ru/ pascalabc-net/ thread2150088.html
PascalABC.NET T-квадрат https://www.cyberforum.ru/ pascalabc-net/ thread2149991.html
Фрактальная графика t в квадрате, написать на паскале с Рекурсией не понимаю(
Составить процедуру для решения выражения PascalABC.NET
Доброго времени суток, прошу помощи с решением задачи.Требуется составить процедуру для решения выражения ax2+bx-c>=0.Даже не знаю, с чего начать.Буду благодарна за любые подсказки и помощь.
PascalABC.NET Вычислить значение выражения https://www.cyberforum.ru/ pascalabc-net/ thread2149851.html
Составить программу в PascalABC.NET w=\begin{cases}x+e^y & \text{, if } -3\leq y\,<\,0 \\\\ x-2e^y & \text{, if } 0\leq y\,<\,5 \\\\ x^2+y^2 & \text{, if } y\geq 5 \end{cases}
PascalABC.NET Составить программу для нахождения НОК трёх натуральных чисел https://www.cyberforum.ru/ pascalabc-net/ thread2149749.html
Нужно решить задачу в Паскале с помощью подпрограммы функции и процедуры. Сам пытался сделать, но выходит непонятная ошибка, из-за которой подпрограмма циклится. Задача: Составить программу для...
PascalABC.NET Протабулировать функции, зависящие от двух переменных или от нескольких параметров.
Табулирование функций Необходимо протабулировать функции, зависящие от двух переменных или от нескольких параметров. Результаты табулирования оформить в виде одной таблицы или совокупности таблиц....
PascalABC.NET Организовывая очереди по N элементов, cоздайте файл слов по N символов в каждом https://www.cyberforum.ru/ pascalabc-net/ thread2149529.html
Создайте файл символьного типа. Организовывая очереди по N элементов, cоздайте файл слов по N символов в каждом. Решение в программе оформляйте через подпрограммы. (PascalABC.NET)
1 / 1 / 0
Регистрация: 25.09.2016
Сообщений: 160
0

Факториал.В чем ошибка? - PascalABC.NET - Ответ 11915265

05.12.2017, 17:51. Показов 793. Ответов 2
Метки (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Begin
var
p,t:LONGINT;
x,i,n:real;
begin
writeln('Введите x');
readln(x);
if (x mod 2) =0 then
t:=1.5 else t:=2;
n:=x*t;
p:=1;
for i:=2 to n do
begin
p := p * i;
end;
writeln('p! = ', p);
readln;
end.
Пишет For1.pas(7) : Нельзя преобразовать тип real к integer

Задание звучит так : Вычислить P=(xt)!; n! = 1*2.....n , t = 1,5 если х - четное , t =2 , если нечетное
Какие типы я только не ставил,если бы не 1.5 ,а целое число было бы ,то всё ОК

Вернуться к обсуждению:
Факториал.В чем ошибка? PascalABC.NET
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.12.2017, 17:51
Готовые ответы и решения:

факториал: ошибка
#include&lt;iostream&gt; using namespace std; #include&lt;math.h&gt; int main() { double...

Факториал, где ошибка?
Здравствуйте. Делаю следующее задание: Даны натуральное число n, действительные числа а1,..., an....

Факториал некторого числа записан в eax, а нужно вывести этот факториал в ebx
Хочу сделать код факториал некторого числа записан в eax, а нужно вывести этот факториал в ebx и...

Факториал. Определить максимальное число, факториал которого хранится в переменной типа int
/*Доброго времени суток ! Задача такова: Пользователь вводит число с клавы. Вывести на экран...

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.12.2017, 17:51

Описать рекурсивные функции вещественного типа, вычисляющие факториал и двойной факториал заданного числа
Описать рекурсивные функции Fact(N) и Fact2(N) вещественного типа, вычисляющие значения факториала...

Ошибка method range of object global failed в чем ошибка
Sub ПроверкаВвода() Dim A As Range Dim B As Range ...

Ошибка -is not a valid integer value (не является допустимым целым значением), не понимаю в чем ошибка
//--------------------------------------------------------------------------- #include &lt;vcl.h&gt;...

Ошибка при передаче параметров в функцию. Объясните, ребят, пожалуйста, в чем ошибка
Есть функция, которую необходимо отобразить в виде линий уровня. Далее с помощью простого...

Выскакивает ошибка Stack around the voriable 'text' was corrupted. Подскажите пожалуйста в чём ошибка
Выскакивает ошибка Stack around the voriable 'text' was corrupted. Подскажите пожалуйста в чём...

В чем ошибка?По одной строке нормально в базу заходят,а две сразу вылетает ошибка?
INSERT INTO `jos_menu` (`id`, `menutype`, `name`, `alias`, `link`, `type`, `published`, `parent`,...

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