Среда, 08.01.2025
Pascal 4 All
[ · Новые сообщения · Участники · Правила форума · Поиск · RSS ]

 

  • Страница 2 из 6
  • «
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • »
Модератор форума: Seqular, Pavel  

палиндромы
AlexanderДата: Воскресенье, 02.11.2008, 19:56 | Сообщение # 16
Всевышний
Группа: Модераторы
Сообщений: 475
Репутация: 16
Замечания: 0%
Статус: Offline
Quote (snaper1993)
Цыкл!

только пишется через "и". Теперь напиши цикл, который перечислит все нечётные числа в диапазоне от n до 2n.


Скажем дружно- нафиг нужно!
 
SeqularДата: Воскресенье, 02.11.2008, 20:04 | Сообщение # 17
Хранитель
Группа: Администраторы
Сообщений: 859
Репутация: 35
Статус: Offline
Alexander, А можно я отгадаю загадку?
Code

For i := n to n+n do
      Begin
      If (i mod 2 = 0) then Continue
                             else Writeln(i:4);
      End          

biggrin


Поддерживаю также проект сообщество молодых сисадминов
 
AlexanderДата: Воскресенье, 02.11.2008, 21:05 | Сообщение # 18
Всевышний
Группа: Модераторы
Сообщений: 475
Репутация: 16
Замечания: 0%
Статус: Offline
Seqular, хорош прикалываться, а то он ведь так и напишет smile .

Скажем дружно- нафиг нужно!
 
SeqularДата: Воскресенье, 02.11.2008, 22:29 | Сообщение # 19
Хранитель
Группа: Администраторы
Сообщений: 859
Репутация: 35
Статус: Offline
Alexander, А что? Пусть напишет... Разве мой цикл не печатает все нечетные цифры от n до 2n? =))

Поддерживаю также проект сообщество молодых сисадминов
 
AlexanderДата: Воскресенье, 02.11.2008, 22:44 | Сообщение # 20
Всевышний
Группа: Модераторы
Сообщений: 475
Репутация: 16
Замечания: 0%
Статус: Offline
Quote (Seqular)
Разве мой цикл не печатает все нечетные цифры от n до 2n?

печатает.
Quote (Seqular)
А что? Пусть напишет

Если условный оператор детям ещё простят, то за Continue должны расстрелять на месте.


Скажем дружно- нафиг нужно!

Сообщение отредактировал Alexander - Воскресенье, 02.11.2008, 22:44
 
SeqularДата: Воскресенье, 02.11.2008, 22:49 | Сообщение # 21
Хранитель
Группа: Администраторы
Сообщений: 859
Репутация: 35
Статус: Offline
Alexander, Ну ладно, сделаем просто
Code
If (i mod 2 = 1) then Write(i:4);
есть вариант без условного оператора в ДАННОМ цикле?


Поддерживаю также проект сообщество молодых сисадминов
 
AlexanderДата: Воскресенье, 02.11.2008, 23:02 | Сообщение # 22
Всевышний
Группа: Модераторы
Сообщений: 475
Репутация: 16
Замечания: 0%
Статус: Offline
что значит:
Quote (Seqular)
в ДАННОМ цикле

?


Скажем дружно- нафиг нужно!
 
SeqularДата: Воскресенье, 02.11.2008, 23:06 | Сообщение # 23
Хранитель
Группа: Администраторы
Сообщений: 859
Репутация: 35
Статус: Offline
Alexander, Ну как можно без условия обойтись?

Поддерживаю также проект сообщество молодых сисадминов
 
VictorisДата: Воскресенье, 02.11.2008, 23:07 | Сообщение # 24
Новичок
Группа: Пользователи
Сообщений: 9
Репутация: -1
Замечания: 20%
Статус: Offline
Парни, сделайте ему уже ету задачу) cry
 
SeqularДата: Воскресенье, 02.11.2008, 23:09 | Сообщение # 25
Хранитель
Группа: Администраторы
Сообщений: 859
Репутация: 35
Статус: Offline
Victoris, какую задачу? Я, честно говоря, условие даже не читал )) Так, беседу поддерживаю.. Вроде как даже Alexander разжевал ему все? Нет?

Поддерживаю также проект сообщество молодых сисадминов
 
VictorisДата: Воскресенье, 02.11.2008, 23:10 | Сообщение # 26
Новичок
Группа: Пользователи
Сообщений: 9
Репутация: -1
Замечания: 20%
Статус: Offline
Ну разжувал то да, правда йа полностю не читал, ну вазьмите ему решыте, ведь он нуждаетса в помощи, есиб он мог, он бы помог вам)
 
SeqularДата: Воскресенье, 02.11.2008, 23:12 | Сообщение # 27
Хранитель
Группа: Администраторы
Сообщений: 859
Репутация: 35
Статус: Offline
Victoris, пиши без ошибок )) а то накажу ;))
Решать ща не могу! У меня времени поздно! Глаза закрываются.. Мож пропущу какой-нить оператор и все.. Завтра, если не забуду - решу... Тока читать там много. Ух. Много букв. Руки (веки) опускаются


Поддерживаю также проект сообщество молодых сисадминов
 
AlexanderДата: Воскресенье, 02.11.2008, 23:26 | Сообщение # 28
Всевышний
Группа: Модераторы
Сообщений: 475
Репутация: 16
Замечания: 0%
Статус: Offline
Quote (Seqular)
Alexander, Ну как можно без условия обойтись?

Code
for i:=n shr 1 to n-1 do
    Write(i shl 1+1:4);


Скажем дружно- нафиг нужно!
 
snaper1993Дата: Понедельник, 03.11.2008, 00:50 | Сообщение # 29
Бывалый
Группа: Пользователи
Сообщений: 121
Репутация: 2
Замечания: 0%
Статус: Offline
1 задачу Alexander, мне сделал а вот 3, 4 ну и 2 мне просто очень нужно ети задачки до понедельника максимум вторника!Ато мне пипец!

Я - желанный гость Сайта взаимопомощи программистам Pascal А ты?
 
AlexanderДата: Понедельник, 03.11.2008, 01:34 | Сообщение # 30
Всевышний
Группа: Модераторы
Сообщений: 475
Репутация: 16
Замечания: 0%
Статус: Offline
нужно в цикле(который здесь написан) переводить переменную, которая именуется счётчиком цикла в двоичную систему счисления(полный код для этого приведён) и проверить является ли полученная строка палиндромом(и для этого код уже полностью написан). Если и после этого не получится осмысленного кода, то я ничем помочь не могу.

Скажем дружно- нафиг нужно!
 
  • Страница 2 из 6
  • «
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • »
Поиск:

Copyright MyCorp © 2025
Используются технологии uCoz
javascript:;" rel="nofollow" onclick="loginPopupForm(); return false;