Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal вставить число х между всеми соседними элементами,имеющими одинакомый знак вставить число х между всеми соседними элементами,имеющими одинакомый знак https://www.cyberforum.ru/ pascal/ thread202264.html	Pascal Удалить каждое чётное слово. Помогите пожалуйста с задачей. В строке слова разделены пробелами. В процедуре yдалить каждое чётное слово. Напечатать полученную строку. Например вот так: > пример удаление каждова чётнова слова > пример каждова слова Мои наработки program задачa; uses crt; var a:string;
Pascal Расстояние между точками__))) https://www.cyberforum.ru/ pascal/ thread202257.html Помогите пожалуйста решить задачу, очень надо, до завтра: В заданном множестве точек на плоскости найти пару точек, удалённых друг от друга на расстояние, большее заданного D.	Pascal Графика в Паскале Помогоите сделать программу, которая бы выводила на экран изображение грузовой машины (схематически). Заранее благодарен https://www.cyberforum.ru/ pascal/ thread202244.html
кто хорошо пишет модули? Pascal чето я не пойму, как это реализовать: Реализовать в виде модуля набор подпрограмм для выполне¬ния сле-дующих операций над комплексными числами: а) сложения; б) вычитания; в) умножения; г) деления; д) модуля комплексного числа; ж) возведения комплексного числа в степень п (п — натураль¬ное). Комплексное число представить следующим типом:	Pascal просьба написаниия програмы https://www.cyberforum.ru/ pascal/ thread202235.html народ помогите плиззззз написать прогу Написати програму, яка б зрівнювала б два числа, які були введені з клавіатури. Програма повинна вказувати, яке число більше, або, якщо рівні, вивести відповідне повідомлення. Рекомендований вигляд на моніторі: Введіть два цілих числа – 3 дорівнює 3
Pascal ПОЖАЛУЙСТА РЕШИТЬ ОЧЕНЬ ВАЖНО:Работа со списками(стеки,очереди, бинарные деревья) требуется разработать структурированную программу, содержащие процедуры построения списка, вывода на экран его содержимого и другие- в соответствии с содержанием задания. Речь идет о таких процедурах, как добавление в список элемента в указанное место, удаление указанного элемента из списка, вставка в список другого списка, сортировка элементов списка и т.п. Каждый элемент списка должен содержать... https://www.cyberforum.ru/ pascal/ thread202234.html	Определить норму заданной матрицы,т.е число max Pascal вариант 14
Pascal написать алгоритмическую программу на паскале,с оператором цикла предусловия while! https://www.cyberforum.ru/ pascal/ thread202215.html чтобы получилась теплая вода, в ведро наливают литр холодной,литр кипяченой воды.	Pascal модуль Crt https://www.cyberforum.ru/ pascal/ thread202205.html Доброго времени суток! Помогите пожалуйста. Мне нужно переделать эту программу так, чтобы внутри прямоугольников оказалось, вместо цифр от 1 до 11 знак *. Заранее благодарна. Uses CRT; Var i,X : Integer; Begin TextBackGround(1); ClrScr; X := 1; Delay(1000);
Составить программу обработки матрицы размерности NxM. Pascal 2. Составить программу обработки матрицы размерности NxM. Выполнить программу для N=3, M=4. В программе предусмотреть вывод исходной матрицы и полученной. 1) а) Определить произведение элементов в тех строках, которые содержат более одного отрицательного элемента (оформить в виде функции); б) Характеристикой строки целочисленной матрицы назовем сумму её отрицательных нечетных элементов....	Pascal Определить элементы, являющиеся наибольшие в строке и одновременно наименьшими в столбце С помощью функции Random сформировать матрицу 10х15.Определить элементы,являющиеся наибольшими в строке и одновременно наименьшими в своем столбце.Также Определить элементы,являющиеся наименьшими в строке и одновременно наибольшими в своем столбце. Добавлено через 2 часа 6 минут Идей нет вообще,это мой первый тупик после всех лаб по инфе. Program lab7; Uses crt; Const n=10; m=15; Var https://www.cyberforum.ru/ pascal/ thread202190.html

BoBaH26

30 / 30 / 5

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

Сообщений: 255

03.12.2010, 19:34

Вычислить количество способов, которыми можно купить букет из 3 роз двух цветов, если в продаже имеются розы 3 цветов: белые, розовые и красные. - Pascal - Ответ 1165711

03.12.2010, 19:34. Показов 4482. Ответов 2

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

Сообщение было отмечено Demmon как решение

Решение

По аналогии делай:

Pascal

program nn;
uses crt;
var n,m,f,i:integer;
    s,a,b,c,t:longint;
    Cnm,z:real;
const p=0.5;
      q=0.5;
 procedure nfct(f:integer);
 begin
 s:=1;
 for i:=1 to f do
 s:=s*i;
 end;
 function fuct(f:integer):longint;
 begin
 if f=0 then s:=1 else
  if f<0 then write('Oshibka!') else
  nfct(f);
  t:=s;
 end;
begin
clrscr;
writeln('Vvedite kolichestvo detei:');
read(n);
writeln('Vvedite kolichestvo devochek:');
read(m);
fuct(n);
a:=t;
fuct(m);
b:=t;
fuct(n-m);
c:=t;
Cnm:=a/(b*c);
z:=Cnm*exp(m*ln(p))*exp((n-m)*ln(q));
writeln('Veroyatnost rogdeniya 4 devochek: ',z:5:2);
readkey;
end.

Вернуться к обсуждению:
Вычислить количество способов, которыми можно купить букет из 3 роз двух цветов, если в продаже имеются розы 3 цветов: белые, розовые и красные. Pascal

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

03.12.2010, 19:34

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

Сколько наборов из 9 карандашей можно составить, если в продаже имеются карандаши 5 цветов?
Сколько наборов из 9 карандашей можно составить, если в продаже имеются карандаши 5 цветов?

Имеется 3 розы и 5 гвоздик. Требуется составить букет из 3 роз
Имеется 3 розы и 5 гвоздик. Требуется составить букет из 3 роз. Сколькими способами можно составить...

Есть н цветов разных видов. Составьте все возможные сочетания букетов из всех этих цветов. Количество цветов и их названия вводит пользователь
Есть n цветов разных видов. Составьте все возможные сочетания букетов из всех этих цветов....

Вывести число способов, которыми можно купить заданное количество мастики (N кг), не вскрывая ящики
В магазине продается мастика в ящиках по a кг (тип 1), b кг (тип 2) и c кг (тип 3). Как купить...

	03.12.2010, 19:34

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

03.12.2010, 19:34

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

Вычислить количество способов, которыми можно разместить 7 одинаковых карандашей в 3 различных ящиках?
Вычислить количество способов, которыми можно разместить 7 одинаковых карандашей в 3 различных...

Нарисовать букет цветов
Привет всем, помогите пожалуйста составить программу рисующая букет цветов.

Имеются шары разных цветов. Сколькими способами можно выложить из них ряд из n шаров?
Имеется 4 белых шара, 3 синих и 3 красных. Сколькими способами можно выложить из них ряд из n...

Найти количество способов, которыми можно составить вес K из 10 гирь
Пусть имеются десять гирь весом a1,a2..a10. Обозначим через Ck число способов ,которыми можно...

Наверх