Продолжаем изучение и повторение основных алгоритмов Паскаль. Сегодня я расскажу про возведение числа в степень, а также поиск максимального и минимального элементов в массиве.
1 (4). Возведение числа в положительную степень.
На вход подается два числа — само число и степень в которую надо возвести это число. Для того, чтобы возвести число в степень нужно:
a) Присвоить переменной, в которой будет храниться результат, — единицу;
b) Сделать проверку степени на ноль. Если степень ноль, то вывести результат 1 , так как нулевую степень принято считать за 1;
c) Если степень не нулевая, то выполнять цикл с параметром FOR от одного до значения (переменной) степени, в котором выполнять умножение результата на исходное число.
Возведение числа в целую положительную степень на Pascal:
Var rez, st, a, i:integer; Begin readln (a, st); rez:=1; if st=0 then rez:=1 else For i:=1 to st do rez:=rez*a; writeln (rez); End.
2 (5). Нахождение минимального элемента в массиве.
Видео уроки паскаль: поиск максимального и минимального значения
Для того, чтобы найти минимальной элемент в одномерном массиве нужно:
a) Создать переменную, в которой мы будем хранить минимальное значение (например, min). Присвоить этой переменной значение первой ячейки массива.
b) Создать цикл от 2 (значение первой ячейки уже присвоили минимальному значению, поэтому проверять её на минимальность нет смысла) до границы массива
c) Сравнивать значение min с ячейками, если минимальное значение больше значения сравниваемой ячейки, то присвоить ему значение этой ячейки.
Поиск минимального элемента и его индекса в одномерном массиве Pascal:
const //Описание констант Sz = 100; var //Описание переменных a: array [1..Sz] of real; N: integer; min: real; minind: integer; begin N := 20; for var i:=1 to N do //Заполнение и вывод массива a[i] := Random(100); writeln(‘Элементы массива: ‘); for var i:=1 to N do write(a[i],’ ‘); writeln; min := a[1]; //Поиск минимального элемента minind := 1; for var i:=2 to N do if a[i]
3 (6). Поиск максимального элемента в одномерном массиве.
Поиск максимального элемента от поиска минимального отличается только лишь знаком в выражении «if a[i] max then». Также для удобства можно изменить переменную min на max.
Источник: zedpost.ru
Разработчику о работе с 1С:Предприятие, Pascal, Паскаль
Решение вопросов, возникающие при автоматизации учета с помощью 1С:Предприятие. Паскаль.
Pascal (Паскаль). Даны два числа, найти наибольшее из них.
09.05.2017 | 
Автор Дмитрий
Pascal (Паскаль). Даны два числа, найти наибольшее из них.
program Big_Task; //программа Даны два числа, найти наибольшее из них в Паскале var i_Num1, i_Num2: integer; begin i_Num1 := 10; i_Num2 := 30; Writeln(‘i_Num1: ‘, i_Num1); Writeln(‘i_Num2: ‘, i_Num2); if i_Num1 > i_Num2 then Writeln(‘Первое число чисело больше: i_Num1 > i_Num2 ‘) else Writeln(‘Второе число чисело больше: i_Num1 < i_Num2 ‘); //завершение работы программы WriteLn(‘Нажмите , чтобы выйти.’); ReadLn(); end.
Даны два числа, найти наибольшее из них в Паскале.
Пишем программу: нахождения НОД и НОК двух чисел | Алгоритм Евклида
Рубрика: Pascal (Паскаль) — задачи и решения
Источник: info1c.com
Напишите программу (Pascal), которая находит наибольшее из четырех целых чисел и выводит его на экран.
Найди верный ответ на вопрос ✅ «Напишите программу (Pascal), которая находит наибольшее из четырех целых чисел и выводит его на экран. . » по предмету Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Новые вопросы по информатике
Сколько всего различных символов может быть в восьмибитной текстовой кодировке? 1) 8 2) 512 3) 256 4) 65536
Паскаль. Написать программу подсчета количества отрицательных чисел среди любых 10 вводимых. 1 программа с использованием while, 2 программа — repeat
Сколько кб информации содержит сообщение объемом 2^20 бит?
Информатика пользователь создад сообщение из 256 символов в кодировке Unicode в которой каждый символ кодируется 16 битами после редактирования информационный объем сообщения составил 3072 бит Определите сколько символов удалили сообщение если его
Запишите числа в беззнаковом коде (формат 1 байт): а) 31; б) 163; в) 65; г) 128.
Главная » Информатика » Напишите программу (Pascal), которая находит наибольшее из четырех целых чисел и выводит его на экран.
Источник: urokam.net