Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на языке Pascal

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.943 RSS
←   Февраль 2007   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/pascal
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

2.943 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на языке Pascal


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

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

Выпуск № 311
от 16.02.2007, 23:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 234, Экспертов: 54
В номере:Вопросов: 3, Ответов: 5

Вопрос № 75172: Тема:"Организация и отладка программ с использованием функций" Задание: М=(c!+(a-b)!)/((a-c)!-8!) ..
Вопрос № 75173: Тема:"Организация и отладка программ с использованием процедур" Задание: Составить алгоритм для нахождения наименьших элементов матриц A[10,12], B[15,10], C[8,10] и номеров строк и столбцов, в которых они находятся....
Вопрос № 75240: Помогите написать программу на PASCAL которая заполняет массив случайным образов в интервале [x1,x2]и сортирует его. Параметры: а- массив, n- число элементов, x1, x2 - интервал заполнения....

Вопрос № 75.172
Тема:"Организация и отладка программ с использованием функций"

Задание: М=(c!+(a-b)!)/((a-c)!-8!)
Отправлен: 11.02.2007, 08:45
Вопрос задал: Obornev Stas/vulf (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Яна
Здравствуйте, Obornev Stas/vulf!
В качестве функции должна быть функция, которая считает факториал
function fact(n:integer):integer
var i, p: integer;
begin
p=1;
for i:= 2 to n do p:=p*i;
fact:=p;
end;
Надеюсь, код самой программы Вы напишете самостоятельно.
Ответ отправила: Яна (статус: 5-ый класс)
Ответ отправлен: 11.02.2007, 10:09

Вопрос № 75.173
Тема:"Организация и отладка программ с использованием процедур"

Задание: Составить алгоритм для нахождения наименьших элементов матриц A[10,12], B[15,10], C[8,10] и номеров строк и столбцов, в которых они находятся.
Отправлен: 11.02.2007, 08:47
Вопрос задал: Obornev Stas/vulf (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Яна
Здравствуйте, Obornev Stas/vulf!
Нужно составить функцию, которая возвращает наименьший элемент матрицы, а затем вызвать ее в теле основной программы для заданных матриц.
Ответ отправила: Яна (статус: 5-ый класс)
Ответ отправлен: 11.02.2007, 10:10
Отвечает: Coupler
Здравствуйте, Obornev Stas/vulf!
Решение задачи в приложении.

Приложение:

Ответ отправил: Coupler (статус: Студент)
Ответ отправлен: 11.02.2007, 13:48

Вопрос № 75.240
Помогите написать программу на PASCAL которая заполняет массив случайным образов в интервале [x1,x2]и сортирует его. Параметры: а- массив, n- число элементов, x1, x2 - интервал заполнения.
Отправлен: 11.02.2007, 18:13
Вопрос задал: Virust30 (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Bingo
Здравствуйте, Virust30!
Вот Вам программа, которая выбирает числа в промежутке x1..x2 и сортирует в <b>порядке возрастания<b>.

var a:array[0..10000]of longint;
x1,x2,i,j,n:longint;
begin
randomize;
readln(n);
readln(x1,x2);
for i:=1 to n do begin //заполняем массив случайными числами
a[i]:=x1+random(x2-x1);
end;

for j:=1 to n do
for i:=1 to n-1 do
begin if a[i]>a[i+1] then begin a[0]:=a[i];a[i]:=a[i+1];a[i+1]:=a[0];end;
//сортируем в порядке возрастания, если надо по убыванию, то ставьте знак меньше вместо знака больше
end;

for i:=1 to n do write(a[i],' ');// выводим на экран (:
end.

Сам код без комменрариев берите с приложения

Приложение:

---------
Все получится!

Ответ отправил: Bingo (статус: 1-ый класс)
Ответ отправлен: 11.02.2007, 18:57
Отвечает: Ерёмин Андрей
Здравствуйте, Virust30!
См. пример реализации такой программы в приложении. Сортировка массива осуществляется методом "пузырька". Желаю удачи!

Приложение:

---------
Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессор)
Россия, Тула
WWW: Программирование на Delphi. Всё для программиста. Файловый архив, статьи, помощь, советы, обмен опытом.
ICQ: 286867644
----
Ответ отправлен: 11.02.2007, 19:07

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
ООО "Мастер-Эксперт Про", Москва, 2007
Авторские права | Реклама на портале
Версия системы: 4.44 beta от 26.01.2007 		Яндекс Rambler's Top100
В избранное