Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
Alekta
0 / 0 / 0
Регистрация: 13.04.2009
Сообщений: 4
1

Заполните массив случайными целыми числами и отсортируйте его по возрастанию

13.04.2009, 19:20. Просмотров 2034. Ответов 2
Метки нет (Все метки)

Помогите решить задачки, ни чего не понимаю как делать,а утром надо сдать...
1.Напишите программу возведения целого числа 0 < x < 10 в натуральную степень k. Оба числа вводятся пользователем с клавиатуры. Выполните это задания тремя различными способами – используя конструкции цикла со счетчиком, цикла с условием и цикла с постусловием.
Изучите циклические конструкции (for to do, while do, repeat until).
2. Напишите программу, которая по введенному номеру месяца високосного или невисокосного года, выводит количество дней в месяце. Високосным считается год, который кратен 4, при этом год кратный 100 -- невисокосный, и при этом год кратный 400 -- снова високосный.
Изучите оператор выбора (case of).
3. Для введенного пользователем натурального числа n программа выводит на печать все делители числа n (в том числе 1 и n). Преобразовать программу так, чтобы число выполняемых итераций цикла было минимальным (чему оно будет равно?).
Изучите операции над переменными целых типов такие, как div, mod.
4. Для введенного числа n выведите на печать n строк треугольника Паскаля. Модифицируйте программу так, чтобы запись производилась в отдельный файл.
Изучите работу с массивами array, и текстовыми файлами (см. assign, reset, rewrite, EOF, close и др.).
5. Заполните массив случайными целыми числами и отсортируйте его по возрастанию, предложив свой алгоритм (или один из известных вам). Модифицируйте программу так, чтобы массив заполнялся значениями из входного файла.
Изучите работу с массивами array, и текстовыми файлами (см. assign, reset, rewrite, EOF, close и др.)
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.04.2009, 19:20
Ответы с готовыми решениями:

Создать стек со случайными целыми числами в диапазоне –50 до +50 и преобразовать его в два стека
Создать стек со случайными целыми числами в диапазоне –50 до +50 и...

Создать стек со случайными целыми числами. Подсчитать, сколько его элементов являются положительными
Кто может выручить с этой задачей?

Напишите программу, которая заполняет массив из N элементов случайными целыми числами в диапазоне [ A , B ]
Напишите программу, которая заполняет массив из N элементов случайными целыми...

Заполнить массив из N ячеек случайными целыми числами в диапазоне от -120 до 250. Найти сумму части элементов
Помогите пожалуйста: Размерность массива (количество элементов) вводится с...

Создать стек со случайными целыми числами. Удалить из него записи с четными числами.
Создать стек со случайными целыми числами. Удалить из него записи с четными...

2
yanyk1n
4331 / 1463 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
13.04.2009, 19:45 2
Лучший ответ Сообщение было отмечено Alekta как решение

Решение

№1:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program kkk;
uses crt;
var i,n,k,s:longint;
 
begin
 s:=1;
 clrscr;
 readln(x,k);
 for i:=1 to k do s:=s*x;
 writeln(x,'^',k,'=',s);
 readln;
end;
Добавлено через 3 минуты 56 секунд
№2

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program mes;
uses crt;
var d,m,y:integer;
 
begin
 clrscr;
 readln(m,y);
 case m of
 1,3,5,8,10,12:d:=31;
 4,6,7,9,11:d:=30;
 else
 begin
  if y mod 400=0 then d:=29
  else if y mod 100 then d:=28
  else if y mod 4 then d:=29 else d:=28;
 end;
 end;
 writeln(d);
 readln;
end.
Добавлено через 4 минуты 8 секунд
№3:

Pascal
1
2
3
4
5
6
7
8
9
10
program dell;
uses crt;
var i,n:integer;
 
begin
 clrscr;
 readln(n);
 for i:=1 to n div 2 do if n mod i=0 then write(i,' ',n div i);
 readln;
end;
Заметьте, если, к примеру, 6000 делится на 3, то оно также делится и на (6000/3=2000), т.е. миним. количество итераций равно n div 2
0
Alekta
0 / 0 / 0
Регистрация: 13.04.2009
Сообщений: 4
13.04.2009, 20:05  [ТС] 3
Боже,спасибааа *wall* мне осталось только разобраться в этом...

Добавлено через 15 минут 55 секунд

Не по теме:

k1ry4, а если я к вам постучу в аську,чтоп вы мне еще какнить помогли с задачками,это будет очень нагло?)))

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.04.2009, 20:05

Заполните массив целыми числами, так чтобы средний элемент массива был равен X, слева от него элементы стоят по возрастанию, а справа – по убыванию (в
Задание:Заполните массив целыми числами, так чтобы средний элемент массива был...

Заполнить массив из 20 элементов вещественными случайными целыми числами в диапазоне от -10 до +10 и разделить его на два массива
Заполнить массив из 20 элементов вещественными случайными целыми числами в...

Заполнить массив А(n,m) целыми случайными числами
Помогите решить,очень надо.Заполнить массив А(n,m) целыми случайными числами...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru