Главная | Регистрация | Вход Приветствую Вас Сим | RSS
Полезная информация
 Уважаемый гость предлагаем вам зарегистрироватся на форуме сайта coolsims2.ru!
Наш форум это отличная помощь в игре, более 2400 тем и 4000 участников!
Вливайтесь в наш коллектив - ЗАРЕГЕСТРИРОВАТЬСЯ!

Если вы уже зарегистрировались, то войдите на сайт, используя свой логин и пароль:

МЕНЮ

ЧАТ

ОПРОС
Ждёте ли вы открытия радио coolsims?


Всего ответов: 51

НАШИ БАННЕРЫ

Самый КЛЁВЫЙ сайт о The Sims 2!!!

Самый КЛЁВЫЙ сайт о The Sims 2!!!

ФОТКИ ПОЛЬЗОВАТЕЛЕЙ :)

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
[Похвалить Модератора · Поругать Модератора]
Последние сообщения

  • Страница 1 из 1
  • 1
Архив - только для чтения
Самый КЛЁВЫЙ форум о The Sims 2!!! » Информационный раздел » Архив » Программирование
Программирование
coolsims2 Дата: Воскресенье, 04.02.07, 14:29:56 | Сообщение # 1
Админ форума
Группа: Проверенные
Сообщений: 473
Репутация: 207 []
Статус:
EVR выручай, помоги написать прогу на ПАСКАЛЕ sad

Составить программу, печатающую значение TRUE, если высказывание является верным, и FALSE - в противном случае. Вот высказывание: "Целое число N является чётным и двузначным числом". Если число делится на 2 без остатка, то оно чётное, если часное от деления числа делится на 10 и находится в интервале от 1 до 9 - то оно двузначное.

Если Вы не будете говорить что мне делать, я не скажу куда Вам идти!
 
EVR Дата: Воскресенье, 04.02.07, 18:17:34 | Сообщение # 2
Серый Кардинал
Группа: VIP
Сообщений: 417
Репутация: 83 []
Статус:
Прости! Давно не писал и паскаля нет! Писал по-памяти!

program Her;
uses crt;

type
massiv=array[1..9]of real;

var
n1,n2:real;
mas:massiv;

begin
clrscr;
write('N=')
read(n1);
if mod(n1)=0 then
begin
writeln('Число ',n1,' - чётное');
n2:=n1/20;
if n2 in mas then write(' и двузначное!')
else write('!');
end;
end;

 
coolsims2 Дата: Воскресенье, 04.02.07, 19:32:34 | Сообщение # 3
Админ форума
Группа: Проверенные
Сообщений: 473
Репутация: 207 []
Статус:
EVR, выдаёт ошибку на "if mod(n1)=0 then" wink
Если Вы не будете говорить что мне делать, я не скажу куда Вам идти!
 
EVR Дата: Понедельник, 05.02.07, 18:23:00 | Сообщение # 4
Серый Кардинал
Группа: VIP
Сообщений: 417
Репутация: 83 []
Статус:
coolsims2, поробуй

if mod(n1) then

или

nx:=mod(n1)
if nx=0 then

 
Самый КЛЁВЫЙ форум о The Sims 2!!! » Информационный раздел » Архив » Программирование
  • Страница 1 из 1
  • 1
Поиск:


Посетители за сутки:

Статистика
Rambler's Top100

Владельцы и администраторы форума вправе устанавливать правила поведения на форуме и доступа к нему, ограничивая доступ (вплоть до полного отказа) для тех, кто не соблюдает эти правила. Решение о соответствии тех или иных постов интересам форума и его владельцев принимается владельцами и администраторами форума.
Форум является постмодерируемым, присутствие сообщения на форуме не означает его соответствия правилам.
Сообщения отражают точку зрения их авторов, а не администрации форума.
Сообщения не по теме раздела или ветки, мат и его эквиваленты, прямые оскорбления участников обсуждения и других лиц, флуд, флейм, кросспостинг, объявления об оказании услуг, заведомо содержащих противоправные деяния, публикации и запросы материалов непристойного, клеветнического или противозаконного содержания запрещены и будут удаляться.
Все претензии и предложения к модераторам только по почте.
Владельцы форума не отвечают за содержание и достоверность присылаемых на форум сообщений.