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

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

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.943 RSS
←   Ноябрь 2004   →
 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
29
30


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


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

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

Статистика

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

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


Информационный Канал Subscribe.Ru

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

Выпуск № 341
от 16.11.2004, 17:30

Администратор:
Имя: Sensey
URL: Информационный ресурс
ICQ: 105679124
Украина, Харьков		 О рассылке:
Задано вопросов: 545
Отправлено ответов: 2070
Активность: 379.8 %
[Задать вопрос >>][Регистрация эксперта >>]
[Поиск в базе][Обсудить на форуме]

 Список экспертов, ответы которых опубликованы в данном выпуске

Strory
Статус: Опытный
Общий рейтинг: 162.01
URL: МУАТ
Телефон: +7 (845-3) 54-16-74
[Подробней >>] 		sir henry
Статус: Профессиональный
Общий рейтинг: 163.92
[Подробней >>] 		Boriss
Статус: Профессиональный
Общий рейтинг: 156.07
URL: Программирование на Паскале
[Подробней >>]
 
Tigran K. Kalaidjian
Статус: Профессиональный
Общий рейтинг: 178.83
URL: Персональная страничка
[Подробней >>]

 Краткий перечень вопросов

Вопрос № 541. Ищу программу для управления мультимедийными клавишами для клавиатуры Genius. Ваша программа Universal Extended Keyboard Driver, похоже, именно то, что мне надо. Вот только самому откомпилировать её мне не под силу. Можно ли получить готовый исполняе... (ответов: 2)
Вопрос № 542. Помогите решить: 1. Написать программу. Дан одномерный целочисленный массив A(N). Определить количество простых чисел. 2. Написать программу. Дан двумерный целочисленный массив A(M,N). Составить одномерный массив В из номеров столбцов этого массива,... (ответов: 3)
Вопросов: 2, ответов: 5

 Вопрос № 541
Ищу программу для управления мультимедийными клавишами для клавиатуры Genius. Ваша программа Universal Extended Keyboard Driver, похоже, именно то, что мне надо. Вот только самому откомпилировать её мне не под силу. Можно ли получить готовый исполняемый файл. Спасибо.

Приложение:

Вопрос отправлен: 08.11.2004, 23:32
Отправитель: Alexandr
[Следующий вопрос >>] [Список вопросов]

Отвечает Strory

Приветствую Вас, Alexandr!
Вы знаете, я тоже пытался её откомпилировать, но ничего не получалось, а потом понял, у меня нет исходника нашей программы ;)
Ответ отправлен: 09.11.2004, 20:07
Отправитель: Strory

Отвечает sir henry

Добрый день, Alexandr!
Был бы компилятор, а компиляция - только вопрос времени. :)
Ответ отправлен: 09.11.2004, 05:09
Отправитель: sir henry

 Вопрос № 542
Помогите решить:
1. Написать программу. Дан одномерный целочисленный массив A(N). Определить количество простых чисел.
2. Написать программу. Дан двумерный целочисленный массив A(M,N). Составить одномерный массив В из номеров столбцов этого массива, в которых больше 2 четных чисел.

Вопрос отправлен: 13.11.2004, 17:29
Отправитель: Ирина (8888@pochta.ws)
[Следующий вопрос >>] [Список вопросов]

Отвечает sir henry

Добрый день, Ирина!
А в чем конкретная проблема? Вы не знакомы с понятиями "массив", "простые числа" и т.д. или незнакомы с языком программирования?
Ответ отправлен: 15.11.2004, 06:17
Отправитель: sir henry

Отвечает Boriss

Доброе время суток, Ирина!
Это слишком просто, чтобы было интересно экспертам. Тут место для вопросов, а не просьб. Есть много других мест, где можно и следует обращаться с просьбами. Например, htto://www.yourpascal.com.
Ответ отправлен: 15.11.2004, 09:31
Отправитель: Boriss

Отвечает Tigran K. Kalaidjian

Здравствуйте, Ирина!
Если что-то непонятно, пишите на kalaidjian@pochtamt.ru
1.=-==-==-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=
const n=20;
var i: integer;
type tigmas = ARRAY[1..n] Of Integer;
function prost(g:integer): boolean;
var j:integer;
begin
prost:=true;
for j:=2 to (g div 2) do if (g mod j)=0 then begin prost:=false; break; end;
end;
procedure vivod (A: tigmas);
begin
For i:=1 to n do write (A[i],' ');
writeln;
end;
procedure vvod (var A:tigmas);
begin
For i:=1 to n do A[i]:=random(50);
end;
var H: tigmas;
c:integer;
BEGIN
RANDOMIZE;
Vvod (h);
vivod (h);
for i:=1 to n do if prost(H[i]) then inc(c);
writeln('В массиве ',c,' простых чисел');
readln;
END.
2.=-==-==-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=
const n=10;
m=4;
type tigmas=array[1..n] of integer;
tigmas2=array[1..n,1..m] of integer;
var i,j,golova:integer;
a:tigmas2;
b: tigmas;
procedure vvod;
begin
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(50);
end;
procedure vivod1;
begin
for i:=1 to golova do write(b[i]:5);
writeln;
end;
procedure vivod2;
begin
for i:=1 to n do begin
for j:=1 to m do write(a[i,j]:5);
writeln;
end;
end;
var stat:byte;
BEGIN
RANDOMIZE;
golova:=1;
vvod;
for i:=1 to n do
begin
stat:=0;
for j:=1 to m do if (a[i,j] mod 2)=0 then inc(stat);
if (stat>2) then begin b[golova]:=i; inc(golova) end;
end;
vivod2;
writeln;
dec(golova);
vivod1;
writeln;
END.
С уважением
Тигран Калайджян
2:5020/2987.25
Ответ отправлен: 14.11.2004, 13:57
Отправитель: Tigran K. Kalaidjian

Форма отправки вопроса

Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

(C) 2002-2003 Команда RusFAQ.ru.
 Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке

 Вопрос и дополнение

Ваш вопрос:


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


Получить ответов:

 Выбор рассылки

Программисту
Assembler (24)
C / C++ (19)
Perl (6)
Builder / Delphi (17)
Pascal (18)
Basic / VBA (9)
Java / JavaScript (7)
PHP (18)
Криптография (7)
WinAPI (20)
Радиоэлектроника (12)
 Пользователю
Windows 95/98/Me (40)
Windows NT/2000/XP (63)
"Железо" (40)
Поиск информации (19)
 Администратору
Windows NT/2000/XP (39)
Linux / Unix (18)
 Юристу
Гражданское право (10)
Семейное право (5)
Трудовое право (8)
КоАП (5)

Отправить вопрос всем экспертам выбранной рассылки.
http://subscribe.ru/
http://subscribe.ru/feedback/		 Подписан адрес:
Код этой рассылки: comp.soft.prog.pasplus		 Отписаться
В избранное