Решение задачи на поиск минимального целого числа в массиве.
Условие:
Составить программу на трех языках программирования (Школьный алгоритмический язык, C++, Pascal). Программа получает на вход 4 целых числа и создает из них одномерный массив с четырмя элементами. Далее программа выводит сообщение на экран дружественное сообщение о том какие элемнты содержатся в массиве и какой индекс им присвоен. Программа находит минимальный элемент массива и вывод эего на экран с дружественным сообщением.
Блок-схема:
Реешние:
Кумир (символ | в начале строки обозначаент начало комментария, т.е. данная часть кода в алгоритме не участвет, а присутвует лишь для пояснения отдаваемых команд)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
алг нач | резервируем область памяти для массива dat целтаб dat[1:4] | резервируем область памяти для переменных i, mn цел i,mn | цикл со счетчиком i для заполнения массива данными нц для i от 1 до 4 ввод dat[i] кц | цикл со счетчиком i для вывода массива поэлементно нц для i от 1 до 4 вывод "Элемент массива dat за номером ",i," = ", dat[i],нс кц |в переменную mn помещаем занчение первого элемента массива mn:=dat[1]; | цикл со счетчиком i для пербора всех элементов массива нц для i от 1 до 4 | если занчение элемента массива менще значения, хранящегося в mn, | то в mn помещаем значения этого элемента если dat[i]<mn то mn:=dat[i] все кц вывод "минимальное число массива = ", mn кон |
.
С++ (символ // в начале строки обозначаент начало комментария, т.е. данная часть кода в алгоритме не участвет, а присутвует лишь для пояснения отдаваемых команд)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
using namespace std; int main() { //резервируем область памяти для массива dat и переменных i, mn int dat [4],i,mn; //цикл со счетчиком i для заполнения массива данными for (i=1;i<=4;i++){cin >> dat[i];} //цикл со счетчиком i для вывода массива поэлементно for (i=1;i<=4;i++){cout << "elemetn massiva dat za nomerom " << i<< "= "<< dat[i]<<endl;} //в переменную mn помещаем занчение первого элемента массива mn=dat[1]; //цикл со счетчиком i для пербора всех элементов массива for (i=2;i<=4;i++){ //если занчение элемента массива менще значения, хранящегося в mn, //то в mn помещаем значения этого элемента if (dat[i]<mn){mn=dat[i];} } //вывод mn за пределами цикла cout << "minimalnoe chislo massiva = "<< mn; } |
.
Pascal (символ // в начале строки обозначаент начало комментария, т.е. данная часть кода в алгоритме не участвет, а присутвует лишь для пояснения отдаваемых команд)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
//резервируем область памяти для массива dat и переменных i, mn var dat: array [1..4] of integer; var i, mn: integer; begin //цикл со счетчиком i для заполнения массива данными for i := 1 to 4 do read(dat[i]); //цикл со счетчиком i для вывода массива поэлементно for i := 1 to 4 do writeln('Элемент массива dat за номером ', i, ' = ', dat[i]); //в переменную mn помещаем занчение первого элемента массива mn := dat[1]; //цикл со счетчиком i для перебора всех элементов массива for i := 2 to 4 do //если занчение элемента массива менще значения, хранящегося в mn, //то в mn помещаем значения этого элемента if (dat[i] < mn) then mn := dat[i]; //вывод mn за пределами цикла write('минимальное число массива = ', mn); end. |