Среда, 15.05.2024
Мой сайт
Меню сайта
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Форма входа
Главная » Гостевая книга [ Добавить запись ]

Страницы: « 1 2 3 4 5 6 7 »
Показано 31-45 из 100 сообщений
70. Cpaun   (11.09.2004 19:45)
0  
Кто-нибуть может скинуть на мыло скрипт определяющий ip-адрес пользователя?

69. Sani0k   (17.08.2004 17:11)
0  
Привет заходите на мой сайт.

68. NiMo   (08.08.2004 14:50)
0  
саит клёвый ,но не как немогу найти статьи про то как сделать сделать свой сайт . А то так охота а я в этом вообще не рублю ,помогите чем можете .Зарание спасибо!!!!!

67. Kabanuk   (25.07.2004 06:34)
0  
Спасибо за учебник.

66. NIKkurer   (20.07.2004 09:48)
0  
Прикольный сайт, быстро грузится, толково сделан.
Но вот прочитал я материал по VBS, для начинающего слишком скупо написано. Например на первой же странице у меня возник вопрос:"Что такое MsgBox?" - ответа на который ятак и не нашел.:( А тот кто уже программирует на уже знает все что там написано. Но все же я, как человек который про этот я зык знал только что он такой есть сразу им заинтересовался, за что тебе большой РЕСПЕКТ :)))

65. Trezz   (29.06.2004 20:16)
0  
Супер сайт!!!! Так быстро у меня ещё не один сайт не грузился. Я еле успеевал скопировть текст к себе...... RESPECT DUUDE!!!!!

64. DeMain   (29.06.2004 06:28)
0  
Кульный сайт. Много инфы и люди добрый-не кусаются.

63. Akula   (06.06.2004 13:47)
0  
Привет. Зашел на твой сайт, и подумал, а не хочешь ли ты поучавствовать в создании стратегии наа компе? Уже есть наработки движка, и позарез нужны юниты. Если ты заинтересовался, пиши на iustascom@narod.ru, я тебе вышлю примеры, описание и т.д.

62. Алекс   (03.06.2004 17:23)
0  
Посмотрел ваши рисунки 3D Max, извините, но какие-то они не натуральные, что ли. Если хотите, посетите мой сайт, обменяемся опытом, пообщаемся возможно.

61. Axel   (30.05.2004 05:04)
0  
Интересно, доступно, что еще сказать? Сайт сделан толково! Вот только инфу выдавал бы одним блоком ( по разделам, разумеется) с подменю или ссылками типа <AHREF...> , тогда вообще сайтец в web-эдем можно переименовывать! Бо-о-ольшущий минус - по страницам шастать задолбаешься: удовольствие от инфы пропадает... :(

60. nata   (06.05.2004 09:53)
0  
Спасибо большое,но меток не должно быть, задание звучит так:Напишите программу на языке Pascal и нарисуйте схему алгоритма для решения задачи в соответствии с заданными условиями c использованием циклов While и(или) Repeat.
1.Исходные данные задаются пользователем в режиме диалога. При вводе должен осуществляться полный контроль данных (проверка существования интервалов, принадлежность к цифрам и т.д.).
2.Числами Фибоначчи называется последовательность натуральных чисел, в которой первые два числа равны 1 (F0=F1=1), а остальные вычисляются по рекуррентной формуле Fn=Fn-1+Fn-2, n=2,3,4,…
3.Число называется простым,если оно делится на 1 и на само себя.
4.Тип всех используемых данных – целый.
Прости за навязчивость......

59. AD   (05.05.2004 14:38)
0  
Блин. Статьи и книги конечно хорошие, спору нет.
Но только как, сидя на дуал апе можно прочитать всю книгу, а зипа нет :/
Ответ: Загрузочек страниц, однако маловато будет.

58. nata   (05.05.2004 09:52)
0  
Выдать на печать все числа Фибоначчи из интервала [ a , b ), в которых все цифры упорядочены по убыванию.
Ответ: Nata я решил твою задачу, вот ее текст:

Program Fibb;
Uses CRT;
LABEL Start;
Var A,B,N,M,K:LongINT;
I,J,JJ:Integer;
FibbMas:array[1..2000] Of LongINT;
Begin
ClrSCR;
Write(''‚ўҐ¤ЁвҐ a=''); Read(a);
Write(''‚ўҐ¤ЁвҐ b=''); Read(b);
N:=1;
M:=1;
I:=1;
If (M+N>=A) and (M+N<B) Then
Begin
FibbMas[1]:=N;
FibbMas[2]:=M;
I:=3;
End;
Start:
While (M+N>=A) and (M+N<B) Do
Begin
FibbMas[I]:=M;
I:=I+1;
K:=M;
M:=N+M;
N:=K;
If not((M+N>=A) and (M+N<B)) Then FibbMas[I]:=M;
End;
K:=M;
M:=N+M;
N:=K;
If M<B Then Goto Start;
For J:=1 to I-1 Do
Begin
For JJ:=1 to I-1 Do
Begin
If FibbMas[JJ]<FibbMas[JJ+1] Then
Begin
N:=FibbMas[JJ];
FibbMas[JJ]:=FibbMas[JJ+1];
FibbMas[JJ+1]:=N;
End;
End;
End;
WriteLn;
TextColor(2);
WriteLn(''—Ёб«  дЁЎЎ®­ зЁ Ё§ зЁб«®ў®Ј® Їа®¬Ґ¦гвЄ  ['',a,'','',b,'') :'');
TextColor(7);
WriteLn;
For J:=1 to I-1 Do
Begin
N:=WhereX;
Write(FibbMas[J]);
GotoXY(N+10,WhereY);
If J Mod 6=0 Then WriteLn;
End;
ReadKEY;
End.

P.S. русский текст не отображается из-за dos кодировки
,версию написанную в windows кодировке можешь брать по адресу: http://design-planet.narod.ru/FIBB.PAS

57. nata   (05.05.2004 09:43)
0  
Да!!!

56. nata   (04.05.2004 15:21)
0  
Я опять здесь! Как бы разобраться в написании программок на ВР???
Ответ: BP - Broland Pascal? Если да, то помогу.


Имя *:
Email *:
WWW:
Код *:
Поиск
Друзья сайта
  • Создать сайт
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz
  • Все проекты компании
  • Copyright MyCorp © 2024
    Бесплатный конструктор сайтов - uCoz