/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 705
от 22.10.2008, 12:05

Вопрос № 147.401

Здравствуйте уважаемые эксперты! Очень прошу Вас помочь мне. Нужно написать 5 программ на языке Pascal. Комментарии НЕ обязательны. Надеюсь, что поможете. 1. Написать программу, которая копирует введённые значения массива в другой массив, а потом сортирует его методом сортировки пузырьком. 2. Написать программу, с помощью 3 массивов. В первый массив вводим N - значений. Во второй копируем чётные значения, а в третий нечётные значения первого массива. 3. Написать программу, которая выводит сумму значений массива, которые больше среднего арифметического. 4. Написать программу, которая удаляет с массива все нулевые элементы и сортирует его. 5. Подсчитать сумму всех нечётных элементов массива. Cпасибо!

Отправлен: 16.10.2008, 12:06 Вопрос задал: Compile (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Николай // МMM Здравствуйте, Compile! Задача №1 В этой задаче: С помощью этого цикла мы обеспечиваем ввод элементов массива с клавиатуры: © Цитата: for i := 1 to size do begin write ('index[',i,'] = '); readln (mas_one); end; Далее с помощью этого цикла копируем элементы первого массива во второй: © Цитата: for i := 1 to size do begin mas_two[ i ] := mas_one[ i ]; end; После этого сортируем массив: © Цитата: for k := size downto 2 do for i := 1 to k - 1 do if mas_two[ i ] > mas_two[ i + 1] then begin temp := mas_two[ i ]; mas_two[ i ] := mas_two[ i + 1]; mas_two[ i + 1] := temp; end; Смотрите полный код в приложении. Задача №2. [i] В этой задаче: С помощью этого цикла мы обеспечиваем ввод элементов массива с клавиатуры: © Цитата: for i := 1 to (size * 2) do begin write ('index[',i,'] = '); readln (mas_one[ i ]); end; Дал ее проверяем не чётность. © Цитата: for i := 1 to (size * 2) do begin if ((mas_one[ i ] mod 2) = 0) then begin for j := 1 to size do mas_two[ j ] := mas_one[ i ]; write (mas_two[ j ]:3); end; end; Почти аналогично с проверкой на нечётность: © Цитата: for i := 1 to (size * 2) do begin if ((mas_one[ i ] mod 2) <> 0) then begin for j := 1 to size do mas_three[ j ] := mas_one[ i ]; write (mas_three[ j ]:3); end; end; Смотрите полный код в приложении: Задача №3. В этой задаче: С помощью этого цикла мы обеспечиваем ввод элементов массива с клавиатуры: © Цитата: for i := 1 to size do begin write ('index[',i,'] = '); readln (mas[ i ]); end; Далее считаем сумму и среднее арифметическое значение элементов массива: © Цитата: for i := 1 to size do begin summa := summa + mas[ i ]; end; sr_znach := summa / size; После этого обнуляем значение суммы и считаем сумму значений элементов массива, которые больше среднего арифметического: © Цитата: summa := 0; for i := 1 to size do begin if mas[ i ] &g t; sr_znach then begin summa := summa + mas[ i ]; end; end; Смотрите полный код в приложении: Задача №4. В этой задаче: С помощью этого цикла мы обеспечиваем ввод элементов массива с клавиатуры: © Цитата: for i := 1 to size do begin write ('index[',i,'] = '); readln (mas[ i ]); end ; Далее сортируем массив методом пузырьковой сортировки: © Цитата: for k := size downto 2 do for i := 1 to k - 1 do begin if mas[ i ] > mas[ i + 1] then begin temp := mas[ i ]; mas[ i ] := mas[ i + 1]; mas[ i + 1] := temp; end; end; После этого проверяем, если очередной элемент массива ровняется 0, то инкрементируем переменную l . © Цитата: for i := 1 to size do begin if mas[ i ] = 0 then l := l + 1; end; Далее просто выводим массив не отображая 0. © Цитата: for i := l + 1 to size do b egin write (mas[ i ]:3); end; Смотрите полный код в приложении: Задача №5. В этой задаче: С помощью этого цикла мы обеспечиваем ввод элементов массива с клавиатуры: © Цитата: for i := 1 to size do begin write ('index[',i,'] = '); readln (mas[ i ]); end; Далее проверяем каждый элемент массива на нечётность и считаем сумму: © Цитата: for i := 1 to size do begin if (mas[ i ] mod 2 <> 0) then begin summa := summa + mas[ i ]; end; end; Смотрите полный код в приложении: Удачи Вам!!! Исправлено написание ВВС-кодов. -------- ∙ Отредактировал: deepTeNk, Академик ∙ Дата редактирования: 16.10.2008, 14:31 (время московское) Приложение: Задача № 1. program zadacha; uses crt; const size = 10; var mas_one, mas_two : array[1..size] of integer; i, k, temp : integer; BEGIN clrscr; for i := 1 to size do begin write ('index[',i,'] = '); readln (mas_one[i]); end; writeln; write (' Первый массив: '); writeln; writeln; for i := 1 to size do begin write (mas_one[i]:3); end; for i := 1 to size do begin mas_two[i] := mas_one[i]; end; writeln; writeln; writeln (' Второй массив (несортированный): '); writeln; for i := 1 to size do begin write (mas_two[i]:3); end; writeln; writeln; for k := size downto 2 do for i := 1 to k - 1 do if mas_two[i] > mas_two[i + 1] then begin temp := mas_two[i]; mas_two[i] := mas_two[i + 1]; mas_two[i + 1] := temp; end; writeln (' Второй массив (сортированный): '); writeln; for i := 1 to size do begin write (mas_two[i]:3); end; readkey; END. Задача № 2. program zadacha; uses crt; const size = 6; var mas_two, mas_three : array[1 .. size] of integer; mas_one : array[1 .. size * 2] of integer; i, j : integer; BEGIN clrscr; for i := 1 to (size * 2) do begin write ('index[',i,'] = '); readln (mas_one[i]); end; writeln; write (' Первый массив: '); writeln; writeln; for i := 1 to size * 2 do begin write (mas_one[i]:3); end; writeln; writeln; writeln (' Второй массив с чётными элементами первого: '); writeln; for i := 1 to (size * 2) do begin if ((mas_one[i] mod 2) = 0) then begin for j := 1 to size do mas_two[j] := mas_one[i]; write (mas_two[j]:3); end; end; writeln; writeln; writeln (' Третий массив с нечётными элементами первого: '); writeln; for i := 1 to (size * 2) do begin if ((mas_one[i] mod 2) <> 0) then begin for j :=1 to size do mas_three[j] := mas_one[i]; write (mas_three[j]:3); end; end; readkey; END. Задача №3. program zadacha; uses crt; const size = 10; var i, summa : integer; mas : array[1 .. size] of integer; sr_znach : real; BEGIN clrscr; for i := 1 to size do begin write ('index[',i,'] = '); readln (mas[i]); end; writeln; write (' Исходный массив: '); writeln; writeln; for i := 1 to size do begin write (mas[i]:3); end; writeln; for i := 1 to size do begin summa := summa + mas[i]; end; sr_znach := summa / size; summa := 0; for i := 1 to size do begin if mas[i] > sr_znach then begin summa := summa + mas[i]; end; end; writeln; writeln (' Среднее арифметическое значение элементов массива: ',sr_znach:3:1); writeln; writeln (' Сумма всех элементов массива, которые больше с/а: ',summa); readkey; END. Задача №4. program zadacha; uses crt; const size = 10; var mas : array[1 .. size] of integer; i, k, l, temp : integer; BEGIN clrscr; for i := 1 to size do begin write ('index[',i,'] = '); readln (mas[i]); end; writeln; write (' Исходный массив: '); writeln; writeln; for i := 1 to size do begin write (mas[i]:3); end; writeln; for k := size downto 2 do for i := 1 to k - 1 do begin if mas[i] > mas[i + 1] then begin temp := mas[i]; mas[i] := mas[i + 1]; mas[i + 1] := temp; end; end; for i := 1 to size do begin if mas[i] = 0 then l := l + 1; end; writeln; writeln (' Отсортированный массив без 0 - элементов: '); writeln; for i := l + 1 to size do begin write (mas[i]:3); end; readkey; END. Задача №5. program zadacha; uses crt; const size = 10; var mas:array[1..size] of integer; i : integer; summa : integer; BEGIN clrscr; for i := 1 to size do begin write ('index[',i,'] = '); readln (mas[i]); end; writeln; write (' Исходный массив: '); writeln; writeln; for i := 1 to size do begin write (mas[i]:3); end; for i := 1 to size do begin if (mas[i] mod 2 <> 0) then begin summa := summa + mas[i]; end; end; writeln; writeln; write (' Сумма нечётных элементов массива: ',summa); readkey; END. --------- Не ошибается лишь тот, кто ничего не делает. Не бойтесь ошибаться. Бойтесь повторять ошибки. (Теодор Рузвельт, 1858 - 1919)

Ответ отправил: Николай // МMM (статус: Студент) Ответ отправлен: 16.10.2008, 13:27 Оценка за ответ: 5 Комментарий оценки: Благодарю вас за вашу профессиональность и желанию помочь, а то я думал, что вообще никто НЕ поможет:))) Спасибо!

Вопрос № 147.415

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

Отправлен: 16.10.2008, 13:56 Вопрос задал: Нуртазин Ерлан Амангельдиевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Нуртазин Ерлан Амангельдиевич! Программа в приложении. Вопросы задавайте в мини-форум. Удачи! Приложение: var a:set of byte; b:byte; n:integer; begin {вводим число} write('enter N:'); readln(n); {сбрасываем множество} a:=[]; while n<>0 do begin b:= n mod 10; a:=a + [b];{добавляем новый элемент} n:=n div 10; end; n:=0; {считаем цифры} for b:=0 to 9 do if b in a then inc(n); {выводим результат} writeln('Numbers:',n,chr(13),chr(10),'press "enter"'); readln; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 16.10.2008, 14:17

© 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 5.6 от 14.10.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru