Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Решить уравнение нужно решить уравнение http://s49.***********/i125/1009/0e/ae15aae71b07.jpg https://www.cyberforum.ru/ turbo-pascal/ thread170138.html Факториал в цикле. Turbo Pascal
Дано целое число N (>0).Найти произведение N!=1*2*...*N (N-факториал).Чтобы избежать целочисленного переполнения,вычислять это произведение с помощью вещественной переменной и вывести его как вещественное число.
Turbo Pascal Дано двузначное число. Вывести вначале его левую, а затем правую цифру https://www.cyberforum.ru/ turbo-pascal/ thread170131.html
Дано двузначное число.Вывести вначале его левую цифру(десятки),а затем-его правую цифру(единицы). Для нахождения десятков использовать операцию деления нацело,для нахождения единиц-операцию взятия остатка от деления.
Turbo Pascal Определить, сколько раз первая цифра встречается в заданном числе https://www.cyberforum.ru/ turbo-pascal/ thread170117.html
1)Дано натуральное число сколько раз первая цифра встречается в данном числе; 2)Дано натуральное число найти количество четных цифр числа; 3) Напечатать таблицу значений функций sin х и cos х на отрезке с шагом 0.1 в следующем виде (считать, что при печати на каждое вещественное число отводится по 6 позиций строки): х sin(x) cos(x) 0.0000 0.0000 1.0000 0.1000 0.0998 0.9950...
Turbo Pascal Программа на циклы с пост и предусловием
5.103. Дано натуральное число. Вывести на экран все его делители, меньшие, чем оно само, через запятую. 5.28. Вычислить значения функции у=4х3 -2х 2+5 для значений х, изменяющихся от -3 до 1, с шагом 0.1. Эта задача на массивы:Дан массив чисел. Найти наибольший элемент, поставить его первым.Спасибо заранее.
Turbo Pascal Написать код по блок-схеме хотела написать программу по данному алгоритму, но не получается, видимо где-то ошибка :-( подскажите пжл uses SysUtils; var x,n: integer; begin { TODO -oUser -cConsole Main : Insert code here } x:=1; for n:= 1 to 3 do x:=x+n; https://www.cyberforum.ru/ turbo-pascal/ thread170106.html
Turbo Pascal Блок-схема https://www.cyberforum.ru/ turbo-pascal/ thread170093.html
Вынужден опять просить вашей помощи. Нужна блок-схема для это программки Program Peremnozhenie; var x, y, z: array of integer; n1, m1, n2, m2: integer; i,j,k: integer; s: integer; begin
Количество слагаемых 1+1/2+1/3+1/4+...+1/n Turbo Pascal
Сколько слагаемых должно быть в сумме 1 + 1/2 + 1/3 + …+ 1/k, чтобы сумма оказалась больше или равной N. Задаётся только числоN, требуется найти k.
Turbo Pascal Найти минимум в массиве народдддд!!!! помогите пожал решить написать прогу в паскале, чет туплю конкретно(((((((( В массиве Y определить сумму первого с последним, второго с предпоследним и т.д. Из сумм создать новый массив и определить минимальное в этом массиве. https://www.cyberforum.ru/ turbo-pascal/ thread170006.html Turbo Pascal Вычислить Дано натуральное n. Вычислить: 2 3 (n+1) _ + _ +...+ _____ 1 2 n https://www.cyberforum.ru/ turbo-pascal/ thread169988.html
4.47 Известен рост трех человек. Определить, одинаков ли их рост. Turbo Pascal
Известен рост трех человек. Определить, одинаков ли их рост.
Turbo Pascal Известны площади крута и квадрата. Определить: Известны площади крута и квадрата. Определить: а) уместится ли круг в квадрате; б) уместится ли квадрат в круге? https://www.cyberforum.ru/ turbo-pascal/ thread169926.html
13 / 13 / 9
Регистрация: 27.09.2010
Сообщений: 53
28.09.2010, 16:21 0

Даны три числа.Найти наименьшее из них - Turbo Pascal - Ответ 989638

28.09.2010, 16:21. Показов 2626. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено Roman10 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
uses crt;
var x,y,z:integer;
begin
clrscr;
writeln('Vvedite cisla');
readln(x,y,z);
if (x<y)and(x<z)then writeln ('Naimenshee chislo x');
if (x>y)and(y<z)then writeln ('Naimenshee chislo y');
if (x>z)and(y>z)then writeln ('Naimenshee chislo z');
readln;
end.
Такую программу?

Вернуться к обсуждению:
Даны три числа.Найти наименьшее из них Turbo Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.09.2010, 16:21
Готовые ответы и решения:

Даны три целых числа, найти среднее из них
Даны три целых числа, найти среднее из них. Средним назовём число, которое больше наименьшего из...

Даны три различных действительных числа. Найти два числа, модуль разности которых имеет наибольшее/наименьшее значение
Я сижу на экзамене по Информатике и запутался. Данно задание Даны три различных...

Даны три числа, если одно из них равно нулю
Даны три числа: a, b, c. Если хотя бы одно из них равно нулю с погрешностью 0,0001, то вычислить...

Даны три действительных числа, выбрать из них то которые принадлежат интервалу
Даны три действительных числа, выбрать из них то которые принадлежат интервалу от 1 до 3....

2
28.09.2010, 16:21
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.09.2010, 16:21
Помогаю со студенческими работами здесь

Даны три действительных числа. Возвести в кубте из них, значения которых отрицательны
Даны три действительных числа. Возвести в кубте из них, значения которых отрицательны.

Даны три целых числа. Вывести на экран те из них, которые Являются четными
Вот опять засела на задачка ,задали 13 задачек решить ....7 задач сама решила ,а вот эти не могу...

Даны три вещественных числа. Возвести в квадрат те из них, значения которых отрицательны
3. Даны три вещественных числа. Возвести в квадрат те из них, значения которых отрицательны.

Даны три числа a, b, c. Если хотя бы одно из них равно нулю с погрешностью
Даны три числа a, b, c. Если хотя бы одно из них равно нулю с погрешностью e=0,01 , то вычислить...

Даны три вещественных числа. Вывести на экран те из них которые принадлежат интервалу ( -∞,0)
Даны три вещественных числа. Вывести на экран те из них которые принадлежат интервалу ( -∞,0)...

Даны три действительных числа.Разработать программу, которая возведет те из них, значения которых неотрицательны.
Program Alex1; uses crt; var a,b,c:real; Begin TextBackGround(0); clrscr; textcolor(4);...

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