Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > 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!!=9*7*5*3*1); Код: 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
399 / 378 / 408
Регистрация: 14.09.2013
Сообщений: 1,204
17.12.2013, 19:52 0

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

17.12.2013, 19:52. Показов 6413. Ответов 2
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

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
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 17.12.2013, 19:52
Готовые ответы и решения:

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

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

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

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

2
17.12.2013, 19:52
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 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...

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