Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.943 RSS

←   Декабрь 2003   →
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	31

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

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

Автор

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

Статистика

2.943 подписчиков
0 за неделю

• Выпуски
• Статистика

←   Все выпуски   →

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

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

---

---

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

Выпуск № 213
от 13.12.2003, 19:10

Администратор: Имя: Sensey URL: Информационный ресурс ICQ: 105679124 Украина, Харьков

О рассылке: Задано вопросов: 369 Отправлено ответов: 1294 Активность: 350.6 % [Задать вопрос >>] [Регистрация эксперта >>] [Поиск в базе] [Обсудить на форуме]

---

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

sir henry Статус: Профессиональный Общий рейтинг: 160.59 [Подробней >>]	Tancho Статус: Профессиональный Общий рейтинг: 153.63 Телефон: сл. 0359 0391 65 631; 0359 0391 53 105 [Подробней >>]	Vitally Статус: Начальный Общий рейтинг: 160 [Подробней >>]
Duncan MacLeod Статус: Доверительный Общий рейтинг: 105.92 [Подробней >>]	Boriss Статус: Опытный Общий рейтинг: 147.3 URL: Программирование на Паскале [Подробней >>]	vitya Статус: Профессиональный Общий рейтинг: 108.13 [Подробней >>]
fC Статус: Опытный Общий рейтинг: 147.82 URL: Просто :) [Подробней >>]	Jact M Anchorite Статус: Опытный Общий рейтинг: 108.95 [Подробней >>]	Trubler Статус: Начальный Общий рейтинг: 108.06 [Подробней >>]

---

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

Вопрос № 363. Добрый день, эксперты! Я наверно не совсем верно сформулировала вопрос(N362). Дело в том, что массив... (ответов: 3)
Вопрос № 364. Пожалуйста помогите решить эти задачи в Pascale 1.Дан массив натуральных чисел. Найти сумму элементо... (ответов: 5)
Вопрос № 365. Уважаемые эксперты! Очень нужна, ну просто необходима программа! Да ещё и игровая!!! Один вводит 10 ... (ответов: 4)
Вопрос № 366. Можно ли в Паскале создать такую программу, которая при включении компа начинала свою работу, если м... (ответов: 7)
Вопрос № 367. Вечер добрый, умные люди, не подскажите начинающему как в Turbo Pascal с модемом работать(можно в сс... (ответов: 3)

---

Вопросов: 5, ответов: 22

---

Вопрос № 363

Добрый день, эксперты!
Я наверно не совсем верно сформулировала вопрос(N362).
Дело в том, что массив n*n я беру из некоторой процедуры и поэтому какие там числа я заранее не знаю. Поэтому нужно не отказывать пользователю во вводе нулей на глав. диагонали, и не присваивать их нулю, а нужно как то переставлять строки и столбцы, чтобы на глав. диагонали не было нулей.
Кто знает как это сделать помогите пожалуйста.

---

Вопрос отправлен: 09.12.2003, 21:52
Отправитель: gala (gdayyy@list.ru)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает sir henry

Доброе время суток, gala!
Я думаю, что это можно сделать просто меняя между собой содержимое ячеек. Например по условию:
a - служебная переменная для обмена
ЕСЛИ в ячейке[x] не должно быть ноля ТО
НАЧАЛО
a=ячейка[x-1];
ячейка[x-1]=ячейка[x];
ячейка[x]=a;
КОНЕЦ

---

Ответ отправлен: 10.12.2003, 08:28
Отправитель: sir henry

---

Отвечает Tancho

Добрый день, gala!
Это другое дела, поетому и прога инная. Матрица n x n у меня принимает стохастичные стойности ( через Random()).
Прежде всего надо иметь в виду что для выполнение того что
хочется в твое задание, надо в матрицу НЕ находится ни
нулевого строка, ни нулевой столбец!Поетому и проверка на
эту занимает основного место в мою прогу! В програме нет
коментарии, если есть чего то непонятного пиши на
мыло - trusev@neochim.bg .Смотри приложение.

Приложение:
program V363; label 10; const N = 10; Cr = char(10); Lf = char(13); type matric = array[1..N,1..N] of Real; Var i, j : Integer; l, m : Integer; a : matric; kluch : Boolean; kluch1 : Boolean; function proverka(n : integer; a : matric) : Boolean; label 10; Var i, j : Integer; begin proverka := TRUE; for i := 1 to n do begin j := 1; While (j <=n)and (a[i,j] = 0) do j := j + 1; if j > n then begin proverka := false; goto 10; end; end; for j := 1 to n do begin i := 1; While (i <=n)and (a[i,j] = 0) do i := i + 1; if i > n then proverka := false; end; 10: end; procedure zaredy_A(n : integer; Var a : matric); Var i, j : Integer; begin Randomize; for i := 1 to n do begin for j := 1 to n do begin a[i,j] := Random(N); Write(a[i,j]:5:3,' ') end; WriteLn end end; procedure chench_red(l : integer;m : integer;n : integer;Var a : matric); Var j : Integer; rab : Real; begin for j := 1 to n do begin rab := a[l,j]; a[l,j] := a[m,j]; a[m,j] := rab end; end; procedure chench_stlb(l : integer;m : integer;n : integer;Var a : matric); Var i : Integer; rab : Real; begin for i := 1 to n do begin rab := a[i,l]; a[i,l] := a[i,m]; a[i,m] := rab end; end; begin zaredy_A(N,a); kluch := FALSE; kluch1 := FALSE; if proverka(N,a) then WriteLn('Љ ¦¤ ї ±І°®Є  Ё Є ¦¤®© ±І®«Ў ¬ І°Ё¶ Ђ', Cr,Lf,'Ё¬ҐҐІј Ќ…­і«Ґў»© Ґ«Ґ¬Ґ­І!') else begin WriteLn('Њ І°Ё¶  €Њ……’ ­і«Ґўіѕ ±І°®Єі Ё«Ё', Cr,Lf,'­і«Ґў®© ±І®«ЎҐ¶'); WriteLn('Џ®ЅІ®¬і ­Ґ ¬®¦ҐІ ±Ї §Ґ­® і±«®ўЁҐ :', '‚±Ґ Ґ«Ґ¬Ґ­І®ў Ј« ў­»© ¤Ё Ј®­ «Ё Ќ…Ќ“‹…‚»‰'); goto 10 end; for i := 1 to N do begin if a[i,i]=0 then begin j:=i+1; while (a[i,j]=0)and(j<=N) do j:=j+1; if j <= N then chench_stlb(i,j,N,a) else begin j:=i+1; while (a[j,i]=0)and(j<=N) do j:=j+1; if j<=N then chench_red(i,j,N,a) else kluch1 := TRUE; end; kluch := TRUE; end end; if kluch1 then for i := N downto 1 do begin if a[i,i]=0 then begin j:=i-1; while (a[i,j]=0)and(j>=1) do j:=j-1; if j >= 1 then chench_stlb(i,j,N,a) else begin j:=i-1; while (a[j,i]=0)and(j>=1) do j:=j-1; if j>=1 then chench_red(i,j,N,a); end; kluch := TRUE; end end; 10: if kluch then for i := 1 to N do begin for j := 1 to N do Write(a[i,j]:5:3,' '); Writeln end; ReadLn end.

---

Ответ отправлен: 11.12.2003, 12:34
Отправитель: Tancho

---

Отвечает Vitally

Добрый день, gala!
Смотри приложение.
Я использовал только перестановку строк, столбцы не трогал.
Программа не идеальна. Я не смог найти решения для случая:
0000 0101 0000
1111 или 0101 или даже 1111
0000 0101 1111
1111 0101 1111
используя перестановку строк или столбцов. Вот если можно переставлять цифры как угодно, тогда все на много проще.Главное чтобы в матрице nxn было хотя бы 5 не нулевых значений.
Если нужны коментарии, дополнения etc. пиши.
ICQ: 126039422
Yahoo: b_vitally


Приложение:
Program qw363; USES CRT; Const n=4; Var mas:array[1..n,1..n]of word; c:word; i,j:byte; Procedure Vivod; Begin for i:=1 to n do begin Writeln; for j:=1 to n do begin Write(mas[i,j],' '); end; end; Writeln; End; Procedure Vvod; Begin ClrScr; for i:=1 to n do for j:=1 to n do Begin Write(' n(',i,',',j,') '); Readln(c); mas[i,j]:=c; end; ClrScr; Vivod; end; Procedure Test; var temp:word; l:byte; Begin for i:=1 to n do if mas[i,i]=0 then Begin Writeln('naiden 0 na glavnoy diagonaly;'); for j:=1 to n do if (mas[i,j]<>0)and (mas[j,i]<>0) then for l:=1 to n do begin temp:=mas[i,l]; mas[i,l]:=mas[j,l]; mas[j,l]:=temp; end end; Vivod; End; Begin vvod; test; End.

---

Ответ отправлен: 10.12.2003, 15:45
Отправитель: Vitally

---

Вопрос № 364

Пожалуйста помогите решить эти задачи в Pascale
1.Дан массив натуральных чисел. Найти сумму элементов массива и заменить последний элемент массива результатом суммы.
2.Дана последователность действительных чисел Найти количество нулей в этой последовательности.
3.Дана последовательность натуральных чисел. Найти наибольший элемент и поставить его на первое место.
4.При поступлении в вуз абитуриенты, получившие <двойку> на первом экзамене, ко второму не допускаются. В массиве А[n] записаны оценки экзаменующихся, полученные на первом экзамене. Подсчитать, сколько Человек не допущено ко второму эктамену.
Напишите решение пожалуйста. Заранее большое спасибо.

---

Вопрос отправлен: 09.12.2003, 22:04
Отправитель: Илья
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Duncan MacLeod

Здравствуйте, Илья!
Эх, не поступишь ты в ВУЗ, а может и вылетишь, если уже поступил! :) А сам писать не пробовал, это же элементарные программы!!! Попытайся, напиши, а мы исправим если что!

---

Ответ отправлен: 10.12.2003, 01:38
Отправитель: Duncan MacLeod

---

Отвечает Vitally

Приветствую Вас, Илья!
Программы в приложении.
Если нужны коментарии и/илидополнения, пиши.
ICQ 126039422
Yahoo: b_vitally


Приложение:
Program qw364_1; Const n=10;{Размер массива} Var mas:array[1..n]of word; summa:longint; i:byte; Begin Summa:=0; Randomize; for i:=1 to n do mas[i]:=Random(65535); for i:=1 to n do summa:=summa+mas[i]; mas[n]:=summa; End. _______________________________________ Program qw364_2; Const n=50; Var mas:array[1..n]of byte; kolvo:byte; i:byte; Begin kolvo:=0; Randomize; for i:=1 to n do mas[i]:=Random(5); for i:=1 to n do if mas[i]=0 then kolvo:=kolvo+1; Writeln(kolvo) End. _______________________________________ Program qw364_3; Const n=20; Var mas:array[1..n] of word; max:word; i:byte; Begin max:=0; Randomize; for i:=1 to n do mas[i]:=Random(65535); for i:=1 to n do if mas[i]>max then begin max:=mas[i]; mas[i]:=mas[1]; mas[1]:=max; end; Writeln(max); End. _______________________________________ Program qw364_4; Const n=10; Var mas:array[1..n]of byte; temp:byte; i:byte; Begin Randomize; for i:=1 to n do begin temp:=Random(6); if temp>1 then mas[i]:=temp else mas[i]:=2; Write(mas[i],' '); end; Writeln; temp:=0; for i:=1 to n do if mas[i]=2 then temp:=temp+1; Writeln('Ко второму эзамену недопущено ',temp,' человек'); End.

---

Ответ отправлен: 10.12.2003, 16:45
Отправитель: Vitally

---

Отвечает Boriss

Здравствуйте, Илья!
Ну и вопросики Вам задают - ну просто звери! .... Разве с такими без поллитра разберешься ... Товарищи! Детей спаивают! :))

Приложение:
1) const max = 10; var Ar: Array[1..max] of Integer; i, sum: Integer; BEGIN sum:=0; for i:=1 to max do begin Ar[i]:=i; sum:=sum + Ar[i] end; Ar[max]:=sum END. 2) const max = 10; var Ar: Array[1..max] of Real; i, count: Integer; BEGIN count:=0; for i:=1 to max do begin Ar[i]:=random; if Ar[i]=0 then count:=count + 1 end; WriteLn(Count) END. 3) const max = 10; var Ar: Array[1..max] of Integer; i, iMax, Temp: Integer; BEGIN for i:=1 to max do Ar[i]:=random(100); iMax:=1; for i:=2 to max do if Ar[i] > Ar[iMax] then iMax:=i; Temp:=Ar[1]; Ar[1]:=Ar[iMax]; Ar[iMax]:=Temp END. 4) const max = 30; var Ar: Array[1..max] of Integer; n, Count: Integer; BEGIN for n:=1 to max do Ar[n]:=random(6); Count:=0; for n:=1 to max do if Ar[n] < 3 then Count:=Count+1; WriteLn(count,' из ', max) END. - у меня получилось, что двоишников и хуже 21 из 30 - символично Вариант, если 0 и 1 - недопустимы (а жаль): const max = 30; var Ar: Array[1..max] of Integer; n, Count2, Count5: Integer; BEGIN for n:=1 to max do Ar[n]:=2+random(4); Count2:=0; for n:=1 to max do begin if Ar[n] < 3 then Count2:=Count2+1; end; WriteLn(count2,' из ', max) END.

---

Ответ отправлен: 10.12.2003, 12:11
Отправитель: Boriss

---

Отвечает Tancho

Добрый день, Илья!
Предполагаю что все что тебе нужно находится в Приложение!

Приложение:
program V364; const N = 20; type massiv = array[1..N] of Integer; massiv1 = array[1..N] of Real; Var i,j : Integer; a : massiv; b : massiv1; procedure Sum_Int(n:integer;a:massiv); Var sum : Integer; begin sum := 0; for i := 1 to n do sum := sum + a[i]; a[n] := sum; Writeln('‘і¬  Ґ«Ґ¬Ґ­І®ў ¬ ±±Ёў  = ',sum) end; procedure Chislo_nul(n:integer;a:massiv1); Var i, Chislo : Integer; begin Chislo := 0; for i := 1 to n do if a[i] = 0 then Chislo := Chislo + 1; WriteLn('—Ё±«® ­і«Ґў»© Ґ«Ґ¬Ґ­І®ў ¬ ±±Ёў  = ',Chislo) end; procedure Max_first(n:integer;a:massiv); Var i, Max : Integer; begin max := a[1]; for i := 2 to n do if max < a[i] then max := a[i]; a[1] := max; Writeln('Њ Є±Ё¬ «ј­»© Ґ«Ґ¬Ґ­І ў a[1] = ',a[1]) end; procedure Chislo_2(n:integer;a:massiv); Var i, Chislo : Integer; begin Chislo := 0; for i := 1 to n do if a[i] = 2 then Chislo := Chislo + 1; WriteLn('Љ ўІ®°®¬і ЅЄ§ ¬Ґ­і Ќ… ¤®Їі±№Ґ­® = ',Chislo,' ·Ґ«®ўҐЄ ') end; procedure Stojnost_a_b(n:integer;Var a:massiv;Var b:massiv1); Var i : integer; begin Randomize; for i := 1 to n do begin a[i] := Random(i); b[i] := Random(i)/i; Writeln('a[',i,'] = ',a[i],' b[',i,'] = ',b[i]:7:4) end end; procedure Ocenki(n:integer;Var a:massiv); Var i : Integer; begin WriteLn('‚ўҐ¤ЁІҐ ®¶Ґ­ЄЁ  ЎЁІі°Ґ­І®ў'); for i := 1 to n do begin Write('a[',i,'] = '); ReadLn(a[i]) end end; procedure Run; begin Stojnost_a_b(N,a,b); Sum_Int(N,a); Chislo_nul(N,b); Max_first(N,a); Ocenki(N,a); Chislo_2(N,a); ReadLn end; begin Run end.

---

Ответ отправлен: 11.12.2003, 12:40
Отправитель: Tancho

---

Отвечает vitya

Здравствуйте, Илья!
решение только задач в виде функций.

Приложение:
procedure P1(var mas : array of integer; iSize : integer) var sum, i : integer; begin sum := 0; for i := 0 to iSize do inc(sum, mas[i]); mas[iSize] := sum; end; function P2(var mas : array of real; iSize : integer) : integer var i, iZeroes : integer; begin iZeroes := 0; for i := 0 to iSize do if (0 = mas[i]) inc(iZeroes); P2 := iZeroes; end; Третья задача не хорошо сформулирована. Так как не сказанно, что делать с первым элементом - стереть или поставить на место максимума. И наконец не в случае нескольких максимумов какой из них должен быть выбран? procedure P3(var mas : array of integer; iSize : integer) var max, i : integer; begin max := mas[1]; for i := 2 to iSize do if (max < mas[i]) max := mas[i]; mas[1] := max; end; 4. задача явно про тебя :) function P4(var mas : array of integer; iSize : integer) : integer var i, iC : integer; begin iC := 0; for i := 1 to iSize do if (mas[i] <= 2) inc(iC); P4 := iC; end; если что-то не будет компилицца копайся сам, я писал без компилятора.

---

Ответ отправлен: 12.12.2003, 09:11
Отправитель: vitya

---

Вопрос № 365

Уважаемые эксперты! Очень нужна, ну просто необходима программа! Да ещё и игровая!!! Один вводит 10 символов рус алф., а второй угадывает(вводит свои 10).Нужно подсчитать и вывести кол-во правильно угаданных символов.Прога на множества, но вот как это применить?!?

---

Вопрос отправлен: 10.12.2003, 00:48
Отправитель: Ludik
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Vitally

Здравствуйте, Ludik!
У меня в 2000 Винде клава,в досе, не переключается на русский. Я написал программу для английских букв.
Удачи.

Приложение:
Program qw_365; Uses CRT; Type Tchar=set of char; TChMas=array[1..10] of Char; Var Letters:TChar; LettersHigh:Tchar; ch:Char; qwest:Tchmas; i,j:byte; x,y:byte; otv:byte; Begin ClrScr; Letters:=['a'..'z','A'..'Z']; LettersHigh:=['A'..'Z']; i:=0; otv:=0; Writeln('Загадайте 10 букв'); Repeat Repeat until keypressed; ch:=ReadKey; if ch in Letters then begin Inc(i); Write('*'); if ch in LettersHigh then ch:=Chr(Ord(ch)-32); qwest[i]:= ch; end Until (i=10) or (ch=#27); Writeln; Writeln('Попробуйте отгадать 10 введенных букв'); i:=0; While (ch<>#27) and (i<>10) do Begin Repeat until keypressed; ch:=ReadKey; if ch in Letters then begin Inc(i); if ch in LettersHigh then ch:=Chr(Ord(ch)-32); Write(ch); end; for j:=1 to 10 do if ch=qwest[j] then begin x:=WhereX; y:=WhereY; GoToXY(j,Wherey-2); Write(ch); GotoXY(x,y); qwest[j]:='1'; end end; For i:=1 to 10 do if qwest[j]='1' then otv:=otv+1; Writeln; Writeln('Всего отгадано: ',otv); Repeat until keypressed; end.

---

Ответ отправлен: 11.12.2003, 23:54
Отправитель: Vitally

---

Отвечает fC

Здравствуйте, Ludik!
Вот.
const
MAX_CHAR=10;
var
buf1,buf2:array [0..MAX_CHAR] of char;
i,ugadano:integer;
begin
Write('Player 1. Vvedite 10 chars i nazhmite Enter: ');
ReadLn(buf1);
Write('Player 2. Vvedite 10 chars i nazhmite Enter: ');
ReadLn(buf2);
for i:=1 to MAX_CHAR do if buf1[i]=buf2[i] then inc(ugadano);
WriteLn('Uradano:= ',ugadano);
ReadLn;
end.
Замечание. Цикл сравнения начинается с 1 т.к. функция ReadLn использует buf1 и buf2 как тип String поэтому в buf1[0] и buf2[0] записывает длину строки, в нашем случае это число 10 и сравнивать buf1[0] и buf2[0] не нужно.

---

Ответ отправлен: 10.12.2003, 18:33
Отправитель: fC

---

Отвечает Tancho

Здравствуйте, Ludik!
Если я тебе правилно поняль, вот смотри Приложение!

Приложение:
program V365; uses Crt; const zagl = 'ќІ® ЁЈ°®ў ї Ї°®Ј° ¬  ¤«ї іЈ ¤ ­Ёї ±Ё¬ў®«®¬ ўўҐ¤Ґ­» ¤°іЈ®ў '; s1 = '‚ўҐ¤ЁІҐ 10 ±Ё¬ў®«®ў ђі±±Є®Ј®  «ґ ўЁІ  : '; s2 = '“Ј ¤ЁІҐ 10 ±Ё¬ў®«®ў ўўҐ¤Ґ­»© ‚ ёҐЈ® Ї °І­Ґ°  : '; type Bukva = set of Char; mas = array[1..10] of Char; Var i, x, y : Byte; Chars : Bukva; a, stroka : mas; procedure V_s(ss : string; Var s : mas); label 10; Var i, x, y : Byte; begin Chars := ['Ђ'..'ї']; ClrScr; WriteLn(zagl); Write(ss); for i := 1 to 10 do begin 10: Read(s[i]); x := WhereX - 1; y := WhereY; if (s[i] in Chars) then else begin GotoXY(10,10); WriteLn('‘Ё¬ў®« Ќ… Ё§ ђі±±Є®Ј®  «ґ ўЁІ !'); GoToXY(x,y); goto 10 end; end; WriteLn('Ќ ¦¬ЁІҐ «ѕЎ®© Є« ўЁё!'); ReadLn end; function sr_br(a, b : mas) : Integer; Var i, j, x : Integer; begin x := 0; for i := 1 to 10 do for j := i to 10 do if (a[i] = b[j]) then Inc(x); sr_br := x end; procedure Run; begin V_s(s1,a); V_S(s2,stroka); i := sr_br(a,stroka); gotoXY(10,10); WriteLn('‚» іЈ ¤ «Ё ',sr_br(a,stroka),' ±Ё¬ў®«®ў'); WriteLn; WriteLn('‚®І ±¬®І°ЁІҐ : ',a,' ',stroka); gotoXY(20,25); Write('„«ї ў»µ®¤  ­ ¦¬ЁІҐ «ѕЎ®© Є« ўЁё!'); ReadLn end; begin Run end.

---

Ответ отправлен: 11.12.2003, 16:52
Отправитель: Tancho

---

Отвечает Boriss

Приветствую Вас, Ludik!
Вот, играйте

Приложение:
uses CRT; const RussChars : Set of char = ['А'..'п','р'..'я']; max = 10; type sch = set of char; procedure InputChars(var ar: sch; yPos: Integer); var x: Integer; ch: char; i: Integer; begin Ar:=[]; GotoXY(1, yPos); Write('Ну, вводи: '); x:=Wherex+5; i:=1; while i < max do begin ch:=ReadKey; if (ch in RussChars) and (not (ch in ar)) then begin GotoXY(1, yPos+1); ClrEOL; inc(i); ar:=ar + [ch]; GotoXY(x, yPos); Write(i); end else begin GotoXY(1, yPos+1); Write('Неверный символ. Не считается') end end; WriteLn; end; var ar1, ar2: Sch; count: Integer; c: char; BEGIN ClrScr; InputChars(ar1, 2); InputChars(ar2, 4); ar1:=ar1*ar2; Count:=0; for c:='А' to 'п' do if c in ar1 then begin Write(c,' '); inc(Count) end; for c:='р' to 'я' do if c in ar1 then begin Write(c,' '); inc(Count) end; WriteLn; WriteLn(Count) END.

---

Ответ отправлен: 10.12.2003, 14:56
Отправитель: Boriss

---

Вопрос № 366

Можно ли в Паскале создать такую программу, которая при включении компа начинала свою работу, если можно, то как?

---

Вопрос отправлен: 10.12.2003, 14:08
Отправитель: Nik
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Vitally

Здравствуй, Nik!
Можно, если напишешь command.com :))
Если серьезно: нельзя ни на каком языке. Для автоматической загрузки программы ПОСЛЕ загрузки системы, ее имя прописывается в файле autoexec.bat или в реестре Виндов.

---

Ответ отправлен: 10.12.2003, 16:53
Отправитель: Vitally

---

Отвечает Boriss

Здравствуйте, Nik!
Вы хотите написать свой загрузчик? В принципе можно, но такие вещи делают на ассемблере или на С. Почитайте о BIOS

---

Ответ отправлен: 10.12.2003, 17:02
Отправитель: Boriss

---

Отвечает Jact M Anchorite

Доброе время суток, Nik!
Ну причем тут паскаль?
Ежли ты загрузчик написать хочешь - так это тебе в раздел по асме :))) Аежли чтоб прога после загрузки ОС грузилась - то читай факи по той ОС, что у тебя стоит :))

---

Ответ отправлен: 10.12.2003, 16:44
Отправитель: Jact M Anchorite

---

Отвечает fC

Здравствуйте, Nik!
Можно, и не только в паскале. На любом языке программирования.
Я вижу два способа
- Загрузчик (программа прописывающая себя в загрузочную область диска)
- Запускаемая и Autoexec.bat’а (актуально для DOS,Win95-98,переделанного ME и любой другой которая запускается из DOSа)

---

Ответ отправлен: 10.12.2003, 14:58
Отправитель: fC

---

Отвечает sir henry

Доброе время суток, Nik!
Это не зависит от стиля написания программы. Есть ряд пунктов, предусмотренных самой операционкой, для запуска программ при загрузке компьютера:
1. Для DOS. Нужно прописать название программы в файле autoexec.bat
2. Для Windows. Поместить ярлык программы в каталог меню "Автозагрузка"
3. Для Windows. Поместить название программы в ключ реестра "Run".
Если Вам нужно, чтобы программа начинала работат ДО загрузки операционной системы, то Вам нужно заменить стандартный загрузчик из boot-сектра загрузочного диска загрузчиком своей программы.
Так что Вам нужно, уточните :).

---

Ответ отправлен: 11.12.2003, 04:13
Отправитель: sir henry

---

Отвечает Tancho

Приветствую Вас, Nik!
1)Если ты имеешь в Предвид с самого пуска т.е. перед
загрузкой ОС - то надо твоя прогу встроит в загрузочны сектор основного диска, а ето не простое дело!Уверяю!;
2) Если имеешь в виду после загрузки ОС, то нато прописат
путь к прогу в Autoexec.bat для DOS или в Автозагружчик
Windows'а и после загрузки ОС прогу всегда будет стартоватся.

---

Ответ отправлен: 11.12.2003, 13:14
Отправитель: Tancho

---

Отвечает Trubler

Доброе время суток, Nik!
Есть несколько способов. Например, добавить строку запуска программы в Autoexec.bat или Config.sys. В Windows можно добавить эту же строку в реестр "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRun".

---

Ответ отправлен: 13.12.2003, 05:34
Отправитель: Trubler

---

Вопрос № 367

Вечер добрый, умные люди, не подскажите начинающему
как в Turbo Pascal с модемом работать(можно в ссылках). Есть набор AT команд к модему,я пробовал
алгоритм, как в приложении.

Приложение:
var i: byte; m: array[1..3] of integer; begin for i: 1 to 3 do port[$02F8]:=n;{ , где n то , что мы в порт пишем.} end.

---

Вопрос отправлен: 10.12.2003, 18:37
Отправитель: Pavel
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Boriss

Доброе время суток, Pavel!
А зачем это писать в Паскале? Винды иногда только эмулируют работу с портами в досовских программмах, или делают вид, что эмулируют.
У меня нет модема, так что проверить рабоспособность Вашего кода не могу

---

Ответ отправлен: 10.12.2003, 19:08
Отправитель: Boriss

---

Отвечает fC

Здравствуйте, Pavel!
Вот линк на работу с COM портами, там и про работу с модемом есть немножко сурсов на паскале.
http://pascal.sources.ru/comm/index.htm
Удачи!

---

Ответ отправлен: 10.12.2003, 18:56
Отправитель: fC

---

Отвечает sir henry

Добрый день, Pavel!
В какой операционной системе Вы работаете?
В ДОСе напрямую таким образом к модему обращаться можно, в Windows - нельзя.
Вам необходимо зайти на сайт pascal.sources.ru и там скачать себе необходимые модули для работы с модемом. Покопавшись в исходниках Вы поймете, что и как нужно делать.
Если Вы работаете под Windows, то Турбо Паскаль - неудачный выбор. Лучше перейти на FreePascal или TMT Pascal, тогда Вы сможете работать с некоторыми портами или с памятью, как будто это в происходит в ДОСе.

---

Ответ отправлен: 11.12.2003, 04:19
Отправитель: sir henry

---

---

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

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

(C) 2002-2003 Команда RusFAQ.ru.

---

Персональные данные

Ваше имя:

Ваш e-mail:

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

---

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

Ваш вопрос:


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


Получить ответов: Все ответы Не более 3-х Не более 5-и Не более 10-и

---

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

Программисту Assembler (26) C / C++ (21) Perl (3) Builder / Delphi (18) Pascal (22) Basic / VBA (5) Java / JavaScript (7) PHP (13) Криптография (7) WinAPI (10)

Пользователю Windows 95/98/Me (40) Windows NT/2000/XP (58) "Железо" (29) Поиск информации (18)

Администратору Windows NT/2000/XP (31) Linux / Unix (16)

Юристу Гражданское право (10) Семейное право (7) Трудовое право (8) КоАП (7)

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

---

---

Задать вопрос | Регистрация эксперта | Поиск в базе | Чат | Форумы | Новости
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Профессиональная WEB-Студия B.I.T.

---

© 2001-2003 Россия, Москва. Авторское право: Калашников О.А.

---

http://subscribe.ru/ E-mail: ask@subscribe.ru

Отписаться Убрать рекламу

---

В избранное

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} {#if $P.login_register_tab == 1} <form class="authentication-form" method="post" action="/MEMBERLOGIN_authen_cred"> <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <h1>Войти на сайт</h1> {* {#include js_tmpl_auth_reg_button} *} {#include js_tmpl_auth_reg_action} <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones"><p>{#include js_tmpl_auth_reg_descr} </p></div> <div class="logreg_advice noPhones"> Если вы еще не с нами, то начните с <a href="#" onclick="rgNav('js_tab_reg');return false;" class="dashed" data-func="registr">регистрации</a> </div> <br><br> <a class="dashed auth-enter" href="/manage/author/"><b>Вход для авторов</b></a> </dt> </dl> </form> {#/if} {#if $P.login_register_tab == 2} <div class="rg_block_options"> <div id="js_tap_panel_auth"> <h1>Регистрация</h1> <div class="social_reg"> {* <div class="rg_description">{#include js_tmpl_soc_auth_reg_descr}</div> *} {#include js_tmpl_auth_reg_soc} <div class="rg_soc_auth_agree">{#include js_tmpl_auth_reg_agree}</div> </div> <div class="subscribe_reg"> {* <div class="rg_description"> #include js_tmpl_auth_reg_descr </div> *} {#include js_tmpl_auth_reg_action} </div> {* {#include js_tmpl_auth_reg_button} *} <div class="clr"> </div> <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones">{#include js_tmpl_auth_reg_descr} {#include js_tmpl_soc_auth_reg_descr} </div> </div> </div> {#/if} </div> {* <div class="gray_bg register_shadow"></div> *} </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_auth" class="{#if $P.login_register_tab == 1} rg_active_nav {#/if} rg_first_nav"><a onclick="rgNav('js_tab_auth');return false;" href="">Вход на сайт</a></li> <li id="js_tab_reg" class="{#if $P.login_register_tab == 2} rg_active_nav {#/if}"><a onclick="rgNav('js_tab_reg');return false;" href="">Регистрация </a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_action} {#if $P.login_register_tab == 1} {#include js_tmpl_auth_reg_soc} {#/if} <div class="rg_forms"> <input type="hidden" id="login_register_destination" value="{$P.login_register_destination}"/> {#if $P.login_register_tab == 1} <div class="rg_for_input"> <span class="rg_text_inner">E-mail или код подписчика</span> <input id="credential_0" class="js_keydown_selector rg_input_text" data-js_submit="no" data-js_next_input_name="credential_1" name="" type="text" /> </div> <div class="rg_for_input"> <span class="rg_text_inner">Пароль</span> <input id="credential_1" class="js_keydown_selector rg_input_text" data-js_submit="yes" data-js_action="js_loginFormBut" name="" type="password" onkeyup="showAttention(this,!!window.event.shiftKey)" /> <span class="pswd_attention" id="attention_pswd"> <span class="icon_attention"></span> <span class="pswd_attention-text" id="attention-text_pswd1">Русская раскладка клавиатуры!</span> <span class="pswd_attention-text" id="attention-text_pswd2">У вас включен Caps Lock!</span> <span class="pswd_attention-text" id="attention-text_pswd3">У вас включен Caps Lock и русская раскладка клавиатуры!</span> </span> </div> <div class="rg_for_input input-alien"> <span class="chk noPhones"><input id="chk_alien" name="" type="checkbox" /></span><label for="chk_alien" class="noPhones"> Чужой компьютер</label> <a class="forgot_pass" href="/member/totalrecall">Забыли пароль?</a> </div> <div class="rg_for_input"> <em id="auth_msg" class="reg_error"></em> <input id="lf_typeauthid" value="email" type="hidden"> <input type="submit" class="button button-red logreg_submit" id="js_loginFormBut" value="Войти"> <!--</a>--> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> </div> {#/if} {#if $P.login_register_tab == 2} <div class="rg_for_input"> <span class="rg_text_inner">E-mail</span> <input id="arfemail" class="js_keydown_selector rg_input_text" name="" type="text" data-js_submit="yes" data-js_action="js_regFormBut"/> </div> <div class="rg_for_input rg_set_lineh rg_for_input_wide"> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_terms' type="checkbox" data-js_submit="yes" /></span> Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a> </label> <br /> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_personal' type="checkbox" data-js_submit="yes" /></span> Нажимая на кнопку "Готово!", я даю <a class="link_txd logreg_accLink" href="/faq/persverordnung.html">согласие на обработку персональных данных</a> </label> </div> {* <div style="float: left;position: absolute;left: 11em;"> <img src="http://www.kupivip.ru/images/vip/logo.png?1604" style="width: 86px; vertical-align: middle;display: block;"> </div> <div class="rg_for_input rg_set_lineh"> <label class="js_tap_panel_checkbox"><input name="" id="js_tap_panel_checkbox_kupivip" type="checkbox" data-js_submit="yes"> Я хочу получать новости о скидках на одежду</label> </div> *} <div class="rg_for_input"> <em id="reg_msg" class="reg_error rg_for_input_wide"></em> <em id="reg_msg2" class="reg_error rg_for_input_wide"></em> <input id="rf_typeauthid" value="email" type="hidden"> <a class="button button-red logreg_submit" id="js_regFormBut" href="#">Готово!</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> </div> {#/if} </div> {#/template js_tmpl_auth_reg_action} {#template js_tmpl_auth_reg_agree} <div class="rg_for_input rg_set_lineh rg_for_input_wide"> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_terms_reg' type="checkbox" data-js_submit="yes" /></span> Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a></label> <em id="reg_msg_soc" class="reg_error rg_for_input_wide"></em> </div> {#/template js_tmpl_auth_reg_agree} {#template js_tmpl_auth_reg_button} <div class="rg_butons_socials"> {#if $P.login_register_tab == 1} <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_email" href="#"><span><i></i>Email</span></a> <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_openid" href="#"><span><i></i>OpenID</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_vkontakte" href="#"><span><i></i>Вконтакте</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_mailru" href="#"><span><i></i>Mail.Ru</span></a> {#/if} {#if $P.login_register_tab == 2} <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_email" href="#"><span><i></i>Email</span></a> <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_openid" href="#"><span><i></i>OpenID</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_vkontakte" href="#"><span><i></i>Вконтакте</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_mailru" href="#"><span><i></i>Mail.Ru</span></a> {#/if} </div> {#/template js_tmpl_auth_reg_button} {#template js_tmpl_auth_reg_descr} {#if $P.login_register_tab == 1} Для оформления подписки на выбранную рассылку, работы с интересующей вас группой или доступа в нужный вам раздел, просим авторизоваться на Subscribe.ru {#/if} {#if $P.login_register_tab == 2} Для регистрации укажите ваш e-mail адрес. Адрес должен быть действующим, на него сразу после регистрации будет отправлено письмо с инструкциями и кодом подтверждения. {#/if} {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_soc_auth_reg_descr} Или зарегистрируйтесь через социальную сеть. {#/template js_tmpl_soc_auth_reg_descr} {#template js_tmpl_auth_reg_soc} <div class="rg_soc"> {#if $P.login_register_tab == 1} <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/login/vk/&response_type=code&v=5.15" class="login_register_vk_button"> <span class="login_register_vk_icon"></span> </a> {#/if} {#if $P.login_register_tab == 2} <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/join/vk&response_type=code&v=5.15" class="login_register_vk_button"> <span class="login_register_vk_icon"></span> </a> {#/if} </div> {#/template js_tmpl_auth_reg_soc}

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <p class="rg_description">{#include js_tmpl_auth_reg_descr}</p> <div class="clr"> </div> {#include js_tmpl_auth_reg_action} <div class="clr"> </div> </dt> </dl> </div> <!-- <div class="gray_bg register_shadow"></div> --> </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_reg" class="rg_active_nav rg_first_nav"><a href="" onclick="return false;" >Регистрация</a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_descr} <strong>Пожалуйста, подтвердите ваш адрес.</strong><br><br>Вам отправлено письмо для подтверждения вашего адреса {$P.register_confirm_mail}.<br>Для подтверждения адреса перейдите по ссылке из этого письма. {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_auth_reg_action} <div class="rg_forms confirm_code_from_letter"> <div class="rg_for_input"> <span class="rg_inp_descr" style="width:15em;">Или введите код из письма:</span> <input type="text" value="" id="confirm_code" name="" data-js_submit="yes" data-js_action="js_confirmFormBut" class="js_keydown_selector rg_input_text_conf" > </div> <div class="rg_for_input"><label>Не пришло письмо? <b>Пожалуйста, проверьте папку Спам</b><br /> (папку для нежелательной почты).</label><br />  <a href="" onclick="ajax_recall_code();return false" >Вышлите мне письмо еще раз!</a></div> <div class="rg_for_input"> <em class="reg_error" id="confirm_msg"></em> <a href="#" class="button button-red" id="js_confirmFormBut">Готово</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> <br> </div> </div> {#/template js_tmpl_auth_reg_action}