Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Ветвление. Даны уравнения прямых. Выяснить, какие из этих прямых параллельны https://www.cyberforum.ru/ pascal/ thread592405.html Написать программу: Даны уравнения прямых а1х+b1y=c1, a2x+b2y=c2, a3x+b3y=c3. Выяснить, какие из этих прямых параллельны и указать, если таковых не имеется.	Pascal Составить программу для вычисления функции: Составить программу для вычисления функции:
Pascal Найти 15 первых натуральных чисел делящихся нацело на 19 и больших 100 1 С начала 1990 года по некоторый день прошло n месяцев и 2 дня (n>=1). Определить к какому месяцу (январь, февраль, и тд.) относится этот день. 2 Найти 15 первых натуральных чисел делящихся нацело на 19 и больших 100. 3 Дано натуральное число n, вычислить 1^1+2^2+3^3+...+n^n https://www.cyberforum.ru/ pascal/ thread592298.html	Pascal Задача на строки. Напечатать те слова, перед которыми находятся только меньшие слова, а за ними только большие Дана последовательность содержащая от 2 до 30 слов в каждом из них от 1 до 8 символов строчных латинских букв, между соседними словами - не менее одного пробела. За последним словом точка. Составить программу на языке паскаль. Напечатать те слова которыми в последовательности находятся только меньшие слова (по алфавиту), а за ними только большие. Все) прошу помочь https://www.cyberforum.ru/ pascal/ thread592210.html
Дана строка символов удалить из строки все звездочки Pascal Дана строка символов удалить из строки все звездочки	Pascal Генерация комбинаторных объектов https://www.cyberforum.ru/ pascal/ thread592007.html как сделать, чтобы была возрастающая последовательность? 1+1+1+1, 1+1+2, 1+3, 2+2, 4 program Razbieniya; type Razb=array of byte; var N,i,L,k:byte; X:Razb; procedure Next(var X:Razb;var L:byte); var i,j:byte; s:word;
Pascal Даны две символьные переменные, в которых все символы, кроме одного, одинаковы. Определить номер позиции, в которй символы отличаются https://www.cyberforum.ru/ pascal/ thread591987.html Ребят помогите решить задачи Задание 3 Даны две символьные переменные, по 4 символа каждая, в которых все символы, кроме одного, в соответствующих пози¬циях одинаковы. Определить номер позиции, в которой символы от¬личны друг от друга. В паскале	Pascal Даны массивы. Вычислить значение выражения Даны массивы a1, ... , a7 ; b1, ... , b8 . Определить
Pascal Разработайте программу работы с односвязным кольцом (комментарии к программе) https://www.cyberforum.ru/ pascal/ thread591955.html Народ! напишите пожалуйста комментарии к проге program L_14_6; {Разработайте программу работы с односвязным кольцом. Программа должна содержать следующие процедуры, вызывае-мые из меню: - построение пустого кольца; - добавление нового элемента; - удаление указанного элемента; - просмотр кольца, начиная с указанного элемента} uses crt,dos;	Pascal Крестики-нолики Здравствуйте, может у кого-нибудь завалялся код крестиков-ноликов 3 на 3 ??? или ещё каких нибудь? https://www.cyberforum.ru/ pascal/ thread591834.html
Выяснить – является ли выделенное слово числом. Если да, то каким числом (целым или вещественным) Pascal Доброго дня всем. Помогите пожалуйста составить программу, которая выясняет – является ли выделенное слово числом. Если да, то каким числом (целым или вещественным).	Pascal В какой строке больше нулевых элементов Дана матрица 4x2. Определить в какой строке больше нулевых элементов.(паскаль) https://www.cyberforum.ru/ pascal/ thread591682.html

BumerangSP

4311 / 1422 / 463

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

Сообщений: 2,939

Записей в блоге: 3

31.05.2012, 17:04

Составить программу определения минимального элемента из трех элементов х1, х2, х3 - Pascal - Ответ 3107479

31.05.2012, 17:04. Показов 4232. Ответов 1

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

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

Решение

Алекс_PRO, не уж-то не нашли?
Вот самый простой:

Pascal

uses crt;
var a,b,c: integer;
begin
 clrscr;
 write('a,b,c: ');
 readln(a,b,c);
 writeln;
 if (a>b) and (a>c) then
  writeln(a)
 else
  if (b>a) and (b>c) then
  writeln(b)
 else
  writeln(c);
end.

Вернуться к обсуждению:
Составить программу определения минимального элемента из трех элементов х1, х2, х3 Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

31.05.2012, 17:04

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

Массив: Составить программу определения максимального и минимального элементов заданного массива.
составить программу для ввода с клавиатуры данных для 25 элементов массива W, их распечатки по 4...

Составить программу определения минимального элемента матрицы А(3Х5). Элементы матрицы – целые числа
Составить программу определения минимального элемента матрицы А(3Х5). Элементы матрицы – целые...

Составить функцию для определения минимального элемента матрицы NxN
Составить функцию для определения минимального элемента матрицы NxN. используя данную функцию,...

Дан массив А из 10 элементов. Составить программу для нахождения минимального элемента массива и его индекса
Дан массив А из 10 элементов. Составить программу для нахождения минимального элемента массива и...

	31.05.2012, 17:04

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

31.05.2012, 17:04

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

Массив: Составить подпрограммы определения максимального и минимального элемента в одномерном массиве.
Составить подпрограммы определения максимального и минимального элемента в одномерном массиве....

Составить программу нахождения минимального элемента матрицы и определения его местоположения
Дана вещественная матрица А(N,M). Составить программу нахождения минимального элемента матрицы и...

определения минимального элемента из трех элементов
Сделать программу определения минимального элемента из трех элементов х1, х2, х3.

Составить программу определения для каждого из данных массивов номера минимального элементов
Здравствуйте,только поступил заочно на информатику,если честно - дуб дубом. Помогите решить...

Наверх