Форум программистов, компьютерный форум, киберфорум
Наши страницы

Free Pascal

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 15, средняя оценка - 5.00
Alekta
0 / 0 / 0
Регистрация: 13.04.2009
Сообщений: 4
#1

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

13.04.2009, 19:20. Просмотров 2002. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.04.2009, 19:20
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Заполните массив случайными целыми числами и отсортируйте его по возрастанию (Free Pascal):

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

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

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

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

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

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

2
yanyk1n
4331 / 1462 / 152
Регистрация: 12.03.2009
Сообщений: 5,310
13.04.2009, 19:45 #2
№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
Привет! Вот еще темы с ответами:

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

Массив В(15) заполнить целыми случайными числами в диапазоне от 1 до 100 - Pascal
Массив В(15) заполнить целыми случайными числами в диапазоне от 1 до 100. Построить строку маску М(15) таким образом, что М(I)=1, если...

Задан массив A(N,N), заполненный целыми случайными числами из диапазона [-24;28] - Pascal
Задан массив A(N,N), заполненный целыми случайными числами из диапазона . Найти минимальный элемент, лежащий выше побочной диагонали и...

Составить программу, которая заполняет массив случайными целыми числами из диапазона - Pascal
Составить программу, которая заполняет массив случайными целыми числами из диапазона, введенного пользователем (в диапазон могут входить...


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

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

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