Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 29.10.2020
Сообщений: 30
1

Неправильно написал функцию

12.01.2021, 10:29. Просмотров 1072. Ответов 5
Метки нет (Все метки)

Я не знаю как правильно оформлять функцию, может кто подсказать?)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  y,a : Integer;
function MyFactorial(x: Integer) : Integer ;
var i,s : Integer;
begin
  for i:=1 to x do
    s:=s*i;
   WriteLn(s);
end;
 
begin 
a:=6;
y:=MyFactorial(a);
WriteLn(y);
 
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.01.2021, 10:29
Ответы с готовыми решениями:

прогу написал, но что-то не пашет, или пашет неправильно посмотрите
В матрице удалить столбцы, в которых все числа меньше нуля. вот код uses crt; type...

Написал свою функцию, а она возвращает кракозябры
Функция должна в строке четыре раза искать точку с запятой (";") и те части текста которые ей...

Посмотрите задачу, что я неправильно написал?
Дана строка, состоящая из групп нулей и единиц. Найти и вывести на экран группы с четным...

Написал код, но почему-то работает неправильно
Задача: есть список кандидатов и фирм. Я с помощью бинарных свойств рандомно заполнил их качества....

5
Модератор
62552 / 46721 / 32203
Регистрация: 18.05.2008
Сообщений: 113,077
12.01.2021, 10:39 2
Лучший ответ Сообщение было отмечено iknow как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function MyFactorial(x: Integer) : Integer ;
var i,s : Integer;
begin
s:=1;
for i:=2 to x do
s:=s*i;
MyFactorial:=s
end;
var
  y,a : Integer;
begin 
a:=6;
y:=MyFactorial(a);
WriteLn(y);
end.
1
0 / 0 / 0
Регистрация: 29.10.2020
Сообщений: 30
12.01.2021, 10:46  [ТС] 3
Puporev, третья строчка..там s:=1 перенести нужно
0
Модератор
62552 / 46721 / 32203
Регистрация: 18.05.2008
Сообщений: 113,077
12.01.2021, 10:48 4
Поправил.
1
0 / 0 / 0
Регистрация: 29.10.2020
Сообщений: 30
12.01.2021, 10:54  [ТС] 5
Puporev, А у меня есть 2 вопросика)
1. Почему мы начинаем цикл с 2?(for i:=2)
2.А как должна выглядить функция, чтобы на экран выводились действия, типо:

Input:
5

Output:
5!=1*2*3*4*5=120 (не уверен, что с математической точки зрения правильно написал)
0
Модератор
62552 / 46721 / 32203
Регистрация: 18.05.2008
Сообщений: 113,077
12.01.2021, 11:00 6
Цитата Сообщение от iknow Посмотреть сообщение
Почему мы начинаем цикл с 2?(for i:=2)
Потому что нет смысла 1 умножать на 1.
Цитата Сообщение от iknow Посмотреть сообщение
А как должна выглядить функция, чтобы на экран выводились действия, типо:
Функция как есть так и останется, вывод так.
Pascal
1
2
3
4
5
6
7
write(a,'!=');
for i:=1 to a do
 begin
  write(i);
  if i<a then write('*');
 end;
writeln('=',y);
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.01.2021, 11:00

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Написал программу по работе с файлами. Но читает с файла неправильно
Написал программу по работе с файлами. Но читает с файла неправильно. Помогите исправить, буду...

Я неправильно написал синтаксис вывода текста - Как это обработать?
Хочу сразу заметить что поиск чего-либо об обработчиках ошибок, привел меня только к нахождению...

Написал функцию и не знаю как ее вызвать
Глупая ситуация. :) Написал функцию, которая транспонирует двумерную матрицу и не могу ее ....

Написал рекурсивную функцию для вычисления логарифма ln(1+x)
Нужна ваша помощь Написал рекурсивную функцию для вычисления логарифма ln(1+x) , Cейчас она...

Когда написал функцию на JS, перестал работать код на HTML
Появилась такая проблема... Пишу игру камень-ножницы-бумага. В выпадающий список ввожу данные с...

написал программу для этой формулы. Скажите правильно ли я написал ее
написал программу для этой формулы. Скажите правильно ли я написал ее #include &quot;stdafx.h&quot;...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.