Массив - Turbo Pascal (33875)
Формулировка задачи:
Помогите пожалуйста.
Дан массив с (n) . Переписать в мас¬сив х (n) все ненулевые элементы массива возведенные в квадрат. Затем упорядо¬чить методом «пузырька» по возрастанию новый массив. Найти общее количество одинаковых элементов в упорядоченном массиве.
Решение задачи: «Массив»
textual
Листинг программы
program mas; uses crt; var C:array[1..100] of integer; X:array[1..100] of integer i,j,t,k,n,buff:integer; begin clrscr; write('vvedite kolichestvo elementov massiva C = '); readln(n); writeln('vvedite elementi massiva'); for i:=1 to n do begin write('C[',i,']='); readln(C[i]); end; for i:=1 to n do begin if (C[i]<>0)then x[i]:=sqr(C[i]); end; for i:=1 to n do begin if (X[i]>X[i+1]) then begin t:=X[i]; X[i]:=X[i+1]; X[i]:=t; end; for i:=1 to n do begin write(x[i]); end; readln; end.
Объяснение кода листинга программы
- Создается программа mas, которая использует библиотеку crt.
- Объявляются переменные: C, X, i, j, t, k, n, buff - все они являются массивами целых чисел.
- Выводится сообщение для ввода количества элементов в массиве C.
- Выводится сообщение для ввода элементов массива C.
- Запускается цикл for для каждого элемента массива C от 1 до n.
- Внутри цикла выводится сообщение
C[
, i, '] =`, после чего считывается элемент массива C[i]. - Если считанный элемент не равен нулю, то вычисляется квадрат этого элемента и присваивается переменной X[i].
- Если X[i] больше X[i+1], то происходит обмен элементов X[i] и X[i+1], и значение X[i] присваивается обратно в X[i].
- После завершения цикла for выводится массив X.
- Программа завершается командой readln.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д