Как найти самое маленькое число в паскале - Сайт, где вы сможете решить свои вопросы

На занятии происходит знакомство с логическим типом Boolean в Паскале. Рассматривается алгоритм того, как находится минимальное и максимальное число в Паскале

Сайт labs-org.ru предоставляет лабораторные задания по теме для закрепления теоретического материала и получения практических навыков программирования на Паскале. Краткие теоретические сведения позволят получить необходимый для этого минимум знаний. Решенные наглядные примеры и лабораторные задания изложены по мере увеличения их сложности, что позволит с легкостью изучить материал с нуля. Желаем удачи!

Содержание:

Логический тип данных Boolean в Паскале
Минимальное и максимальное число в Паскале.
[Название файла: task_bool4.pas]

Мы уже научились писать программы, основанные на линейных алгоритмах, в Паскале. И даже уже составляем нелинейные алгоритмы — с ветвлением — в которых используются логические выражения, которые принимают значения true или false.

Значения логического типа:

TRUE

FALSE

В примере ниже, на экран выводится результат логического выражения:

var 
  A: integer;
begin
  A := 5;
  write(A > 0); {Будет выведено True}
end.

Для записи результата логического выражения используется специальная логическая переменная, которая имеет в Паскале тип boolean и может также принимать одно из двух значений — true или false.

Посмотрим, как работает та же самая задача с логической переменной:

var 
  A: integer;
  b: boolean;
begin
  A := 5;
  b:=A > 0; 
  write(b);{Будет выведено True}
end.

Пример: Рассмотрим пример работы с типом boolean в pascal:

var a:boolean;
begin
a:=true;
if a=true then writeln ('истина')
  else writeln('ложь');
end.

Для создания сложных условий используются специальные логические операции: and, or, not и xor.

Задача Boolean 1. Дано целое положительное число. Проверить истинность высказывания: «оно является четным»

[Название файла: task_bool1.pas]

Рассмотрим пример с использованием логической операции XOR:

Пример: Запросить два целых: X, Y. Проверить истинность высказывания: «Только одно из чисел X и Y является нечетным»

program Boolean;
var
  x,y: integer;
  c :boolean;
 
begin
  write('Введите X, Y: ');
  read(x,y);
  c := (Odd(x)) xor (Odd(y)); 
  writeln('Только одна из переменных X и Y имеет нечетное значение - ', c); 
  end.

Рассмотрим еще одно решение задачи в Паскале с использованием логической переменной:

Задача Boolean 2. Даны три целых числа: A, B, C. Проверить истинность высказывания: «B находится между числами A и C».

[Название файла: task_bool2.pas]

Рассмотрим решение более сложной задачи с переменной логического типа:

Пример: Дано трехзначное число. Проверить истинность высказывания: «Все цифры данного числа различны».

Показать решение:

const a=348;
var
   d_n, s_n, e_n: integer;
   flag:boolean;
begin
flag:=false;
s_n:=a div 100;
d_n:=((a mod 100)div 10);
e_n:=a mod 10;
if (s_n<>d_n) and (d_n<>e_n) and (e_n<>s_n) then 
   flag:=true;
writeln(flag);
end.

Здесь каждый разряд получается путем использования операций деления нацело и взятия остатка от деления: s_n — это цифра сотого разряда, d_n — цифра десятого разряда, e_n — единицы.

Задача Boolean 3. Дано целое N > 0. С помощью операций деления нацело и взятия остатка от деления определить, имеется ли в записи числа N цифра «2». Если имеется, то вывести TRUE, если нет — вывести FALSE.

[Название файла: task_bool3.pas]

Задача Boolean 4. Дано целое положительное. Проверить истинность высказывания: «Данное число является нечетным трехзначным».

Минимальное и максимальное число в Паскале.

[Название файла: `task_bool4.pas`]

При организации поиска минимального или максимального числа среди ряда чисел всегда на помощь приходит старенький «бабушкин» алгоритм:

Представим ситуацию, что мы жарим пирожки, и уже нажарили целую большую горку; теперь надо выбрать из них самый большой, т.е. в нашем случае максимальный.
Берем верхний пирожок, т.е. первый, и говорим, что он пока самый большой и откладываем его в сторону.
Затем берем второй и сравниваем с самым большим, если этот второй пирожок оказывается больше — откладываем его на место «бывшего самого большого» и говорим, что теперь он самый большой.
Берем следующий и повторяем действия. Так осуществляем данную процедуру со всеми пирожками.

Иногда в качестве первоначального максимума назначается самое малое возможное число (в зависимости от контекста задачи). А в качестве минимума — напротив, самое большое возможное число. Например, если сказано, что необходимо найти максимальное / минимальное среди положительных чисел, меньших 1000, то:

или
max:=integer.MinValue;; // минимальное среди типа Integer
min:=integer.MaxValue;; // максимальное среди типа Integer

PascalABC.NET:

Можно использовать стандартные функции max() и min():

print(max(2,8)); // 8
print(min(2,8)); // 2

Рассмотрим теперь решение задачи на Паскале нахождения максимального числа:

Пример: В компьютер вводятся 10 чисел. Выводить максимальное из введенных чисел.

Показать решение:

Pascal

PascalABC.NET

var i, chislo, max:integer;
begin
// первое введенное число 
//сразу определяем как максимальное:
readln(max); 
for i:=2 to 10 do
begin
  readln (chislo);
  if chislo > max then 
    max:= chislo
end;
writeln(max)
end.

begin
// первое введенное число 
//сразу определяем как максимальное:
var maximum:=readInteger(); 
for var i:=2 to 10 do
begin
  var chislo:=readInteger();
  // используем стандартную функцию max():
  maximum := max(chislo,maximum); 
end;
writeln(maximum)
end.

Аналогично осуществляется поиск минимального из чисел.

Для лучшего понимания темы поиска максимального или минимального значения предлагаем посмотреть видео урок:

Задача Max 1. В танцевальном клубе участвуют 10 представительниц женского пола. Определите, может ли самая старшая из них быть матерью самой младшей (в таком случае разница в возрасте может составлять не менее 17 лет).

[Название файла: task_max1.pas]

Задача Max 2. Найти минимальное и максимальное из 10 введенных чисел и вывести сумму их порядковых номеров.

[Название файла: task_max2.pas]

Задача Max 3. Средняя продолжительность жизни лабораторной мыши – 10 лет. Найдите максимальный показатель продолжительности жизни у пяти белых мышей и у пяти мышей-альбиносов. У каких мышей показатель уровня жизни выше?

[Название файла: task_max3.pas]

Потренируйтесь в решении задач по теме, щелкнув по пиктограмме:

Источник

Ольга Божеволова

Ученик

(153)

5 лет назад

Найти минимальный положительный из данных десяти ненулевых целочисленных элементов. Если требуемые элементы отсутствуют, то вывести 0.
не могли бы помочь?
1 Program min; – заголовок программы [1]
2 Var a:array[1..10] of integer – раздел описания переменных
i,min:integer;
3 begin- начало раздела операторов
4Writeln (‘Введите 10 чисел ‘);- вывод текста на экран
5 for i:=1 to 10 do begin – начало цикла For
6 Writeln (‘Значение ‘,i:1, элемент массива ‘a[‘,i,’]= ‘); – вывод текста на экран
7Readln (a[i]);- ввод значений массива
8 end; – конец цикла
9 int min =0;
10 for i:=0 to 10 do begin – начало цикла For
11 if a[i] < min then min:= a[i];
12 end;- конец цикла
13 writeln (‘Минимальное положительное значение = ‘, min); – вывод полученного значения на экран
14 readln; – задержка экрана для просмотра результата
15 end. – конец программы
не могу найти ошибку

Источник

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

Аналогичные функции можно написать для поиска максимального из чисел. Для этого достаточно сменить знак сравнения в функции с двумя аргументами(в первой из рассмотренных).

Для реализации сначала нужно написать функцию, которая находит минимальное из двух чисел.

Функция определения минимального из двух чисел

function Min(x1, x2 : integer) : integer;
begin
  if x1 < x2 then
    Min := x1
  else
    Min := x2;
end;

Теперь у нас есть код, который возвращает наименьшее из двух чисел. Для того, чтобы расширить количество аргументов до трех, достаточно написать ещё одну функцию, которая будет дважды вызывать предыдущую.

Функция поиска наименьшего из трех чисел

function Min(x1, x2, x3 : integer) : integer;
begin
  Min := Min(Min(x1, x2), x3);
end;

А что если нужно сравнить четыре, пять и больше чисел, и найти минимальное из них?

Без проблем, мы можем писать столько перегруженных функций, сколько нам нужно.

Минимум из четырех чисел

function Min(x1, x2, x3, x4 : integer) : integer;
begin
  Min := Min(Min(x1, x2, x3), x4);
end;

Эта функция использует вызов двух предыдущих.

Программа для поиска и вывода минимальных чисел

все приведенные выше функции должны быть размещены в том же порядке над телом основной программы

В зависимости от количества аргументов, компилятор выбирает какую из функций вызывать.

begin
  writeln(Min(3, 5));
  writeln(Min(9, 1, 0));
  writeln(Min(8, 4, 7, 2));
  readln;
end.

Если предполагается сравнивать много чисел, то лучше всего представить их в виде массива, и искать минимальный или максимальный элемент в массиве.

Смотрите также:

Источник

Составить алгоритм нахождения min(a,b,c). Воспользоваться алгоритмом-процедурой нахождения min из 2-х чисел.

Использовать при решении можно любые процедуры/функции/алгоритмы, главное – оформить в Pascal. Наработок и даже приблизительных вариантов нет, т.к. в уч. заведениях провинций требуют, но ничего не объясняют.

Добавлено через 10 минут
По сути, стоит задача усложнить вот этот код словами function и procedure

Pascal

Program Min;
var a,b,c,min:integer;
begin
readln(a,b,c);
min:=a;
if b<min then min:=b;
if c<min then min:=c;
writeln('Минимальное число : ',min);
end.

Источник

Минимум в некоторой последовательности чисел это наименьшее значение. Например, среди чисел последовательности 431, 85, 200, 125 минимумом является число 85. Если числа последовательности сохранить в массиве, то можно найти номер минимального элемента массива.

Сохраним числа в массиве: a[1]=431, a[2]=85, a[3]=200, a[4]=125.

Минимум хранится в ячейке с номером 2, значит номер минимального элемента это число 2.

В этой публикации приведем примеры программ поиска номера минимального элемента массива.

Будем считать, что в массиве хранятся целые числа, диапазон значений не известен.

Исходные данные: a – массив целых чисел

Выходные данные: min – минимальный элемент, kmin – номер минимального элемента массива

За начальное значение минимума min возьмем значение первого элемента, тогда за номер минимального элемента kmin возьмем номер 1.

Далее будем сравнивать каждый элемент массива со значением min, если a[k]<min, то перезапишем значение min на значение a[k], а значение kmin на значение k.

Программа решения на языке Паскаль

var a:array[1..10] of integer;

k,min,kmin:integer;

begin

for k:=1 to 10 do

begin

read(a[k]);

end;

min:=a[1];

kmin:=1;

for k:=2 to 10 do

begin

if a[k]<min then

begin

min:=a[k];

kmin:=k;

end;

writeln(‘Минимальный элемент ‘,min);

writeln(‘Номер минимального элемента массива ‘,kmin);

end.

Результат выполнения программы

Чтобы не вводить значения элементов массива с клавиатуры, можно воспользоваться датчиком случайных чисел.

Еще одна программа

Теперь не будем сохранять само минимальное значение, а будем пользоваться номером минимального элемента.

За номер минимального элемента kmin возьмем 1. Далее будем сравнивать a[k]<a[kmin], в случае истины, будем перезаписывать kmin на k.

Программа решения на языке Паскаль

var a:array[1..10] of integer;

k,min,kmin:integer;

begin

for k:=1 to 10 do

begin

read(a[k]);

end;

kmin:=1;

for k:=2 to 10 do

begin

if a[k]<a[kmin] then

begin

kmin:=k;

end;

writeln(‘Минимальный элемент ‘,a[kmin]);

writeln(‘Номер минимального элемента массива ‘,kmin);

end.

Еще одна программа с применением методов последовательностей PascalABC.NET

a.min – определяет минимальное значение в массиве

a.indexof(a.min) – определяет номер элемента, равного минимальному

Массив описан как динамический (не указываются номера элементов, нумерация начинается с 0). Оператор setlength(a,10) выделяет память под массив (десять ячеек).

var a:array of integer;

k:integer;

begin

setlength(a,10);

for k:=0 to 10-1 do

begin

read(a[k]);

end;

writeln(‘Минимальный элемент ‘,a.min);

writeln(‘Номер минимального элемента массива ‘,a.indexof(a.min));

end.

Как еще можно найти номер минимального элемента массива?

Предложите свои способы.

Минимальное и максимальное число в Паскале. [Название файла: task_bool4.pas]

Функция определения минимального из двух чисел

Функция поиска наименьшего из трех чисел

Минимум из четырех чисел

Программа для поиска и вывода минимальных чисел

Смотрите также:

Как еще можно найти номер минимального элемента массива?

Вам также может понравиться

Как найти чессина в пв

Как найти яндекс на телефоне хонор

Как найти треть от числа 105

Добавить комментарий Отменить ответ

Минимальное и максимальное число в Паскале.

[Название файла: `task_bool4.pas`]