Пользователь

Добро пожаловать,
Регистрация или входРегистрация или вход
Потеряли пароль?Потеряли пароль?
Ник:
Пароль:
Меню сайта
Главная Главная
АккаунтАккаунт
ПользователиПользователи
ОпросыОпросы
Поиск по сайтуПоиск по сайту
Новости RSSНовости RSS
ФорумФорум
Отправить другуОтправить другу
Связаться с намиСвязаться с нами


Книги по программированиюКниги
Учебники и руководстваСамоучители
Каталог софтаКаталог софта
Исходники программИсходники
КомпонентыКомпоненты
Обработки 1СОбработки 1С
CMS-центрCMS-центр
Шаблоны для сайтовШаблоны сайтов
Наборы иконокНаборы иконок
Статьи и обзорыСтатьи и обзоры
Вопросы и ответыВопросы и ответы
СкриптыСкрипты
Статьи участниковНетематичное

Ваше мнение
Как вы оцените наш сайт?

Замечательный
Хороший
Обычный
Плохой
Отвратительный


Результаты
Другие опросы

Всего голосов: 849
Комментарии: 10

Наши партнеры



Статистика




Programming books  Download software  Documentation  Scripts  Content Managment Systems(CMS)  Templates  Icon Sets  Articles  Contacts  Voting  Site Search




Книги-online

ГлавнаяТекущий раздел


6

6



: "" Pascal; .

, . ( , ). - ( ) ( ). , .
, , , , .

1: . - .

: 1.

" "
" "
-

2. 
program example1; 
const 
  glasn=['','','','','','','','','']; 
   soglas=['','','','','','','','','',
         '','','','','','','','','','','',''];
 var
   st: string; 
     g,s,i:integer; 
begin 
  write(' > '); readln(st); 
    g:=0; s:=0; 
      for i:= 1 to length(st) do 
        if st[i] in glasn then inc(g) else if st[i] in soglas then inc(s);
        if g> s then writeln(' ')
    else if g< s then writeln(' ')
  else writeln('    ');
 readln; 
end.

  1. , Pascal?
  2. ?
  3. ?
  4. - ?
  5. ?
  6. ?
  7. , ?
  8. ?
  9. : ) x in [x]; ) [ ] <= [x,y,z]; ) [x]<>[x,x,x]

: - ,,,,,,,, ( ); - , , ; - ,,,,,,,,,,; - ,,,,,,,,,.
  1. , . :
    - , ;
    - , ;
    - , .
    ; - , - . :
  2. , ; , ;
  3. , ; , ;
  4. , ; , ;
  5. , ; , ;
  6. , ; , .
  7. , :
    Y1=['A','B','D','R','H']
    Y2=['R','A','H','D']
    Y3=['A','R'].
    .
    .
  8. '+', '-', '*', s.
  9. () n , n.
  10. A, S1 S2 Nom. 
    
     Cons n=10; 
       Type Nomer= 1..n; 
         = Array[Nomer,Nomer] of Real; 
      Nom = Set of ;
  1. , . .
    .
    a) , , ( ).
    b) , , , , ( , ).
    c) a, b, , , . , , , , , .
  2. , .
    Pascal                   


Внимание! Если у вас не получилось найти нужную информацию, используйте рубрикатор или воспользуйтесь поиском


.


книги по программированию исходники компоненты шаблоны сайтов C++ PHP Delphi скачать