Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Дано целое число А. Получить А в 5-й степени, используя только три операции умножения Дано целое число А. Получить А в 5-й степени, используя только три операции умножения. https://www.cyberforum.ru/ pascalabc/ thread1045716.html	Отсортировать стек методом шелла Pascal ABC Приветствую,помогите осортировать стек методом шелла,я сам писал прогу,но она не правильная,т.к. я запутался немного в стеке: type tstack=^stack; stack=record inf:integer; next:tstack; end; var head1,headx,headz,tail1,tailx,tailz:tstack; a,k,incr,tmp,i,j:integer; f,g:text; Function InitStack:tstack; begin InitStack:=nil; end;
Pascal ABC Даны два целых числа. Проверить, является ли первое кубом второго https://www.cyberforum.ru/ pascalabc/ thread1045701.html Даны два целых числа. Проверить, является ли первое кубом второго.	Pascal ABC Вычисление двойного факториала Помогите пожалуйста,исправить ошибку. Вычисление двойного факториала (2n+1)!! (например 9!!=97531); Код: PROGRAM PR; USES CRT; VAR N,I,k:INTEGER; P:longint; BEGIN CLRSCR; https://www.cyberforum.ru/ pascalabc/ thread1045688.html
Pascal ABC Сколько дней понадобится предприятию, чтобы кол-во выпущенной продукции превысило план. Блок-схема и программа 5. Малое предприятие в первый день работы выпустило P единиц товарной продукции. Каждый последующий день оно выпускало продукции на Q единиц больше, чем в предыдущий. Сколько дней потребуется предприятию, чтобы общее количество выпущенной продукции за все время работы впервые превысило запланированный объем? Помогите Пожалуйста!!! Заранее Спасибо!!!:)	Pascal ABC В двумерном массиве С(6,6) поменять местами элементы симметрично относительно главной диагонали https://www.cyberforum.ru/ pascalabc/ thread1045685.html В двумерном массиве С(6,6) поменять местами элементы симметрично относительно главной диагонали. помогите пожалуйста
Pascal ABC Найти количество положительных элементов массива. Блок-схема и программа 4. Задан одномерный массив из n элементов.Найти количество положительных элементов массива. https://www.cyberforum.ru/ pascalabc/ thread1045684.html	Pascal ABC Сортировка массива по убыванию. Блок-схема и программа 3.Задан одномерный массив. Отсортировать массив в порядке убывания элементов.
Pascal ABC Найти наибольший из элементов массива, имеющих нечетные индексы. Блок-схема и программа https://www.cyberforum.ru/ pascalabc/ thread1045679.html 2.Задан двухмерный массив. Найти наибольший из элементов массива, имеющих нечетные индексы. Добавлено через 20 минут Помогите с задачкой!!!:)	Pascal ABC Найти сумму элементов первой и третьей строк матрицы. Блок-схема и программа https://www.cyberforum.ru/ pascalabc/ thread1045675.html 1.Задан двухмерный массив. Найти сумму элементов первой и третьей строк матрицы.
Расставить в календарном порядке Pascal ABC Помогите написать программу в паскале: Вводится следующая информация - наименования изделий и даты их выпуска. Каждая дата вводится в виде ГГГГ.ММ. Упорядочить информацию, расставив даты в календарном порядке.	Pascal ABC Программа для поиска определенного типа людей в массиве записей program df; type chelovek=record name:string; zp:real; end; const count=3; var katalog:array of chelovek; num:1..count; s:string; https://www.cyberforum.ru/ pascalabc/ thread1045656.html

Svager

399 / 378 / 408

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

Сообщений: 1,204

17.12.2013, 19:52

Найти N! (читается “N факториал”, где N!=123.N). Программу написать в трех вариантах: с использованием циклов с параметром, предусловием, постус - Pascal ABC - Ответ 5511997

17.12.2013, 19:52. Показов 6457. Ответов 2

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

Ответ

Pascal

uses crt;
var n,i,f:longint;
BEGIN
clrscr;
repeat
write('n = ');
read(n);
until n>0;
f:=1;
 
for i:=1 to n do
 f:=f*i;
 
 writeln('F = ',f);
readkey;
END.

Добавлено через 45 секунд
2.

Pascal

uses crt;
var n,i,f:longint;
BEGIN
clrscr;
repeat
write('n = ');
read(n);
until n>0;
f:=1;
i:=1;
while i<=n do
 begin
 f:=f*i;
 i:=i+1;
 end;
 
 writeln('F = ',f);
readkey;
END.

Добавлено через 1 минуту
3.

Pascal

uses crt;
var n,i,f:longint;
BEGIN
clrscr;
repeat
write('n = ');
read(n);
until n>0;
f:=1;
i:=1;
repeat
 begin
 i:=i+1;
 f:=f*i;
 end;
until i=n;
 writeln('F = ',f);
readkey;
END.

Вернуться к обсуждению:
Найти N! (читается “N факториал”, где N!=1*2*3*.*N). Программу написать в трех вариантах: с использованием циклов с параметром, предусловием, постус Pascal ABC

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

IT_Exp

Эксперт

34794 / 4073 / 2104

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

Сообщений: 32,602

Блог

17.12.2013, 19:52

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

составить блок-схему алгоритмов для решения задач с использованием трех циклов цикла с постусловием, цикла с предусловием и цикла с параметрами
помогите составить блок-схему алгоритмов для решения задач с использованием трех циклов цикла с...

Использование разных циклов: с предусловием, с постусловием, с параметром
Помогите решить задачу на VBA с использованием разных циклов,с предусловием,с постусловием,с...

напишите 2 программы (с использованием циклов с параметром и циклов с условием) для вычисления и вывода на экран в виде

Создать программу по всем 3 видам циклов...цикл с параметром,цикл с условием,цикл,и цикл с предусловием...
Найти сумму чисел 1 в квадрате до 10 c квадрате...операцию возведению в степень не использовать...

	17.12.2013, 19:52

BasicMan

Эксперт

29316 / 5623 / 2384

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

Сообщений: 30,364

Блог

17.12.2013, 19:52

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

Написать и отладить программу с использованием оператора цикла с предусловием и постусловием
Помогите пожалуйста ! написать прогу, найти максимальное из n отрицательных чисел! Работаю на...

Написать программу с использованием циклов на VB
В простую переменную последовательно вводятся н чисел. все ли числа меньше заданного числа к?...

Написать программу с использованием циклов
Вычислить сумму 12 членов рекуррентной последовательности(вложения) Для решения задачи описать...

Написать программу с использованием одного из операторов цикла: арифметического, предусловием и постусловием
1.) а)Задание: Написать программу с использованием одного из операторов цикла: арифметического,...

Как написать программу с использованием циклов
Дано значение x и натуральное число n. Вычислить сумму S. n=10

Вычислить сумму ряда с использованием циклов с предусловием и постусловием
Bычиcлить cумму дaннoгo pядa c тoчнocтью дo члeнa pядa меньшeгo \varepsilon, для кaждoгo X...

Новые блоги и статьи
Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .	Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .
Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .	Полезные поделки на Arduino, которые можно сделать самому raxper 06.01.2025 Arduino как платформа для творчества Arduino представляет собой удивительную платформу для технического творчества, которая открывает безграничные возможности для создания уникальных проектов. Эта. . .

Наверх

Найти N! (читается “N факториал”, где N!=1*2*3*.*N). Программу написать в трех вариантах: с использованием циклов с параметром, предусловием, постус - Pascal ABC - Ответ 5511997

Найти N! (читается “N факториал”, где N!=123.N). Программу написать в трех вариантах: с использованием циклов с параметром, предусловием, постус - Pascal ABC - Ответ 5511997