Hip-Hop.Ru - Центральный сайт о Хип Хоп культуре в Рунете

Компьютеры и Интернет
  Hip-Hop.Ru Форум Пользователи Социальные группы Сообщения за день Баня Поиск Сообщения за день Все разделы прочитаны
48 61 6D
Аватар для Hammer
Сообщения: 3,305
Регистрация: 05.10.2006
Откуда: Нижневартовск
Старый пост, нажмите что бы добавить к себе блог 22 декабря 2010, 21:46
  #651 (ПС)
-Цитата от Трэй Посмотреть сообщение
-Цитата от Hammer Посмотреть сообщение
-Цитата от Трэй Посмотреть сообщение

вайн в первую очередь попробовал
не хочет запускать
дос эмуляторы могут помочь?
Pascal ABC должен под вайном пойти.
ок, попробую abc
турбо не завёлся
Потому что Turbo под DOS.

-Цитата от Kasper[ALP CLAN] Посмотреть сообщение
-
var a,b:ineger;
begin;
readln(a,b);
a:=a mod 2;
if a>0 then b:=b mod 2;
if b> then;
writeln('чётных чисел нет');
else writeln('чётное число есть');
end.
Как доработать программу с использованием логической операции OR?
Если правильно понял, то:
Код:
var a,b: integer;
begin;
  readln(a,b);
    if (a mod 2 = 0) OR  (b mod 2 = 0) then
      writeln('чётное число есть')
    else 
      writeln('чётных чисел нет');
end.

offline
Ответить с цитированием
:|
Аватар для Лжэц
Сообщения: 1,746
Регистрация: 14.01.2009
Старый пост, нажмите что бы добавить к себе блог 22 декабря 2010, 21:56
  #652 (ПС)
я в теме

offline
Ответить с цитированием
Особый Статус
Аватар для random*
Сообщения: 5,293
Регистрация: 19.09.2008
Откуда: ufa city
Старый пост, нажмите что бы добавить к себе блог 22 декабря 2010, 22:04
Домашняя страница ВКонтакте
  #653 (ПС)

offline
Ответить с цитированием
quattro
Аватар для Ягодка
Сообщения: 3,438
Регистрация: 03.09.2008
Откуда: :адуктО
Старый пост, нажмите что бы добавить к себе блог 22 декабря 2010, 22:05
ВКонтакте
  #654 (ПС)
ребят с паскалем поможете?

Даны целые a и b. a>b, Определить результат целого деления a на b не используя div


-
program...
var a,b:integer; c:real;
begin
writeln('vvedite a,b');
read(a,b);
if a>b then begin
c:=a/b;
writeln(c);
end
else
writeln('0');
end.
вот что пезднул
вроде работает, но отладитть помогите, например после ввода данных обратно в меню набора программы(хз как оно называется) вылетаешь
а когда пишется ответ то выдает число и за ним 0000000000.Е+00
знаю что можно эту хуйню убрать, только как?

offline
Ответить с цитированием
Агрошкольник
Аватар для lil_dem
Сообщения: 1,850
Регистрация: 18.11.2007
Откуда: Эдинбург, Лейт
Старый пост, нажмите что бы добавить к себе блог 22 декабря 2010, 22:06
  #655 (ПС)
сёдня победил в номинации "Техносфера. Информатика и компьютерные технологии" с проектом на тему: Adobe Audition ;D

offline
Ответить с цитированием
48 61 6D
Аватар для Hammer
Сообщения: 3,305
Регистрация: 05.10.2006
Откуда: Нижневартовск
Старый пост, нажмите что бы добавить к себе блог 22 декабря 2010, 22:31
  #656 (ПС)
-Цитата от твердый знак Посмотреть сообщение
ребят с паскалем поможете?

Даны целые a и b. a>b, Определить результат целого деления a на b не используя div


-
program...
var a,b:integer; c:real;
begin
writeln('vvedite a,b');
read(a,b);
if a>b then begin
c:=a/b;
writeln(c);
end
else
writeln('0');
end.
вот что пезднул
вроде работает, но отладитть помогите, например после ввода данных обратно в меню набора программы(хз как оно называется) вылетаешь
а когда пишется ответ то выдает число и за ним 0000000000.Е+00
знаю что можно эту хуйню убрать, только как?
Исправь:
Код:
writeln(c:1:1);
и поставь перед end.
Код:
readln;
Зачем делать проверку a > b, если из условия => a > b?

offline
Ответить с цитированием
новый пользователь
Аватар для Die$elek
Сообщения: 169
Регистрация: 15.03.2008
Откуда: Пятигорск (СКФО)
Старый пост, нажмите что бы добавить к себе блог 22 декабря 2010, 22:32
ВКонтакте MySpace
  #657 (ПС)
Может кто помочь?!?!?!
Программа на языке Assembler.
Написать программу создания функцией 3ch файла my_file.txt в текущем каталоге.

Добавлено через 8 минут 54 секунды
Может кто помочь?!?!?!
Программа на языке Assembler.
Написать программу создания функцией 3ch файла my_file.txt в текущем каталоге.

offline
Ответить с цитированием
XXZP.
Аватар для Mase1
Сообщения: 16,816
Регистрация: 09.08.2007
Откуда: Genève
Старый пост, нажмите что бы добавить к себе блог 22 декабря 2010, 23:08
Домашняя страница ВКонтакте Live Journal MySpace Отправить сообщение через twitter для Mase1
  #658 (ПС)
-Цитата от Hammer Посмотреть сообщение
-Цитата от твердый знак Посмотреть сообщение
ребят с паскалем поможете?

Даны целые a и b. a>b, Определить результат целого деления a на b не используя div


-
program...
var a,b:integer; c:real;
begin
writeln('vvedite a,b');
read(a,b);
if a>b then begin
c:=a/b;
writeln(c);
end
else
writeln('0');
end.
вот что пезднул
вроде работает, но отладитть помогите, например после ввода данных обратно в меню набора программы(хз как оно называется) вылетаешь
а когда пишется ответ то выдает число и за ним 0000000000.Е+00
знаю что можно эту хуйню убрать, только как?
Исправь:
Код:
writeln(c:1:1);
и поставь перед end.
Код:
readln;
Зачем делать проверку a > b, если из условия => a > b?
стрессоустойчивость программы
впринципе правильно, что проверяет, при вводе данных можно навводить хуйни всякой и прога будет работать неадекватно, всё верно, примитивная обработка исключений
а так умный препод обратит внимание, что это учтено и плюс себе сделает

offline
Ответить с цитированием
новый пользователь
Аватар для Die$elek
Сообщения: 169
Регистрация: 15.03.2008
Откуда: Пятигорск (СКФО)
Старый пост, нажмите что бы добавить к себе блог 22 декабря 2010, 23:18
ВКонтакте MySpace
  #659 (ПС)
Может кто помочь?!?!?!
Программа на языке Assembler.
Написать программу создания функцией 3ch файла my_file.txt в текущем каталоге.

offline
Ответить с цитированием
48 61 6D
Аватар для Hammer
Сообщения: 3,305
Регистрация: 05.10.2006
Откуда: Нижневартовск
Старый пост, нажмите что бы добавить к себе блог 22 декабря 2010, 23:20
  #660 (ПС)
-Цитата от Mase1 Посмотреть сообщение
-Цитата от Hammer Посмотреть сообщение
-Цитата от твердый знак Посмотреть сообщение
ребят с паскалем поможете?

Даны целые a и b. a>b, Определить результат целого деления a на b не используя div




вот что пезднул
вроде работает, но отладитть помогите, например после ввода данных обратно в меню набора программы(хз как оно называется) вылетаешь
а когда пишется ответ то выдает число и за ним 0000000000.Е+00
знаю что можно эту хуйню убрать, только как?
Исправь:
Код:
writeln(c:1:1);
и поставь перед end.
Код:
readln;
Зачем делать проверку a > b, если из условия => a > b?
стрессоустойчивость программы
впринципе правильно, что проверяет, при вводе данных можно навводить хуйни всякой и прога будет работать неадекватно, всё верно, примитивная обработка исключений
а так умный препод обратит внимание, что это учтено и плюс себе сделает
Если бы это была олимпиадная задача, то данная проверка являлась абсолютной глупостью. Это тоже самое, что проверять, помещаются ли вводимые данные в тип integer и etc.

offline
Ответить с цитированием
новый пользователь
Аватар для Die$elek
Сообщения: 169
Регистрация: 15.03.2008
Откуда: Пятигорск (СКФО)
Старый пост, нажмите что бы добавить к себе блог 22 декабря 2010, 23:21
ВКонтакте MySpace
  #661 (ПС)
у меня инет злосно тормозитхер че сделаешь

offline
Ответить с цитированием
XXZP.
Аватар для Mase1
Сообщения: 16,816
Регистрация: 09.08.2007
Откуда: Genève
Старый пост, нажмите что бы добавить к себе блог 22 декабря 2010, 23:27
Домашняя страница ВКонтакте Live Journal MySpace Отправить сообщение через twitter для Mase1
  #662 (ПС)
-Цитата от Hammer Посмотреть сообщение
-Цитата от Mase1 Посмотреть сообщение
-Цитата от Hammer Посмотреть сообщение

Исправь:
Код:
writeln(c:1:1);
и поставь перед end.
Код:
readln;
Зачем делать проверку a > b, если из условия => a > b?
стрессоустойчивость программы
впринципе правильно, что проверяет, при вводе данных можно навводить хуйни всякой и прога будет работать неадекватно, всё верно, примитивная обработка исключений
а так умный препод обратит внимание, что это учтено и плюс себе сделает
Если бы это была олимпиадная задача, то данная проверка являлась абсолютной глупостью. Это тоже самое, что проверять, помещаются ли вводимые данные в тип integer и etc.
да ну, по мне, так это подготовка к более серьёзному кодингу, где такие проверки не редкость, преподы в универах часто проверяют на такие дырки проги, пусть даже такая мелочь, как данная, но в ней он показал свою хорошую сторону - предусмотрительность
в дальнейшем пригодится данное качество

Добавлено через 14 минут 11 секунд
-Цитата от твердый знак Посмотреть сообщение
ребят с паскалем поможете?

Даны целые a и b. a>b, Определить результат целого деления a на b не используя div


-
program...
var a,b:integer; c:real;
begin
writeln('vvedite a,b');
read(a,b);
if a>b then begin
c:=a/b;
writeln(c);
end
else
writeln('0');
end.
вот что пезднул
вроде работает, но отладитть помогите, например после ввода данных обратно в меню набора программы(хз как оно называется) вылетаешь
а когда пишется ответ то выдает число и за ним 0000000000.Е+00
знаю что можно эту хуйню убрать, только как?
-
writeln(c);
замени на

-
writeln(trunc(c));

offline
Ответить с цитированием
48 61 6D
Аватар для Hammer
Сообщения: 3,305
Регистрация: 05.10.2006
Откуда: Нижневартовск
Старый пост, нажмите что бы добавить к себе блог 22 декабря 2010, 23:49
  #663 (ПС)
-Цитата от Mase1 Посмотреть сообщение
да ну, по мне, так это подготовка к более серьёзному кодингу, где такие проверки не редкость, преподы в универах часто проверяют на такие дырки проги, пусть даже такая мелочь, как данная, но в ней он показал свою хорошую сторону - предусмотрительность
в дальнейшем пригодится данное качество
Качество, не спорю, хорошее, но не везде и не всегда. Тем более в «серьёзном кодинге» имеются тестеры. Да и данные проверки уже строятся на подсознательном уровне.
К примеру, чистый код и быстрый алгоритм всегда играют важную роль. Иногда одна лишняя проверка может «сожрать» кучу памяти.

offline
Ответить с цитированием
XXZP.
Аватар для Mase1
Сообщения: 16,816
Регистрация: 09.08.2007
Откуда: Genève
Старый пост, нажмите что бы добавить к себе блог 23 декабря 2010, 00:02
Домашняя страница ВКонтакте Live Journal MySpace Отправить сообщение через twitter для Mase1
  #664 (ПС)
-Цитата от Hammer Посмотреть сообщение
-Цитата от Mase1 Посмотреть сообщение
да ну, по мне, так это подготовка к более серьёзному кодингу, где такие проверки не редкость, преподы в универах часто проверяют на такие дырки проги, пусть даже такая мелочь, как данная, но в ней он показал свою хорошую сторону - предусмотрительность
в дальнейшем пригодится данное качество
Качество, не спорю, хорошее, но не везде и не всегда. Тем более в «серьёзном кодинге» имеются тестеры. Да и данные проверки уже строятся на подсознательном уровне.
К примеру, чистый код и быстрый алгоритм всегда играют важную роль. Иногда одна лишняя проверка может «сожрать» кучу памяти.
а иногда отсутствие проверки может убить проект каким нибудь делением на ноль в громоздком коде функции запроса к базе данных в 5000 строчек понятное дело, что во всём нужно быть аккуратным, в этом я согласен

offline
Ответить с цитированием
Аватар для Трэй
Сообщения: 8,137
Регистрация: 30.09.2008
Старый пост, нажмите что бы добавить к себе блог 23 декабря 2010, 08:32
LastFm
  #665 (ПС)
-Цитата от Hammer Посмотреть сообщение
-Цитата от Трэй Посмотреть сообщение
-Цитата от Hammer Посмотреть сообщение

Pascal ABC должен под вайном пойти.
ок, попробую abc
турбо не завёлся
Потому что Turbo под DOS.

-Цитата от Kasper[ALP CLAN] Посмотреть сообщение
-
var a,b:ineger;
begin;
readln(a,b);
a:=a mod 2;
if a>0 then b:=b mod 2;
if b> then;
writeln('чётных чисел нет');
else writeln('чётное число есть');
end.
Как доработать программу с использованием логической операции OR?
Если правильно понял, то:
Код:
var a,b: integer;
begin;
  readln(a,b);
    if (a mod 2 = 0) OR  (b mod 2 = 0) then
      writeln('чётное число есть')
    else 
      writeln('чётных чисел нет');
end.
абс короче тоже не стартует.
free pascal+lazarus кто юзал?

offline
Ответить с цитированием
XXZP.
Аватар для Mase1
Сообщения: 16,816
Регистрация: 09.08.2007
Откуда: Genève
Старый пост, нажмите что бы добавить к себе блог 23 декабря 2010, 10:50
Домашняя страница ВКонтакте Live Journal MySpace Отправить сообщение через twitter для Mase1
  #666 (ПС)
-Цитата от Трэй Посмотреть сообщение
-Цитата от Hammer Посмотреть сообщение
-Цитата от Трэй Посмотреть сообщение

ок, попробую abc
турбо не завёлся
Потому что Turbo под DOS.

-Цитата от Kasper[ALP CLAN] Посмотреть сообщение

Как доработать программу с использованием логической операции OR?
Если правильно понял, то:
Код:
var a,b: integer;
begin;
  readln(a,b);
    if (a mod 2 = 0) OR  (b mod 2 = 0) then
      writeln('чётное число есть')
    else 
      writeln('чётных чисел нет');
end.
абс короче тоже не стартует.
free pascal+lazarus кто юзал?
попадался мне, но так и не пробовал на нём ничего делать
по мне, если паскаль, то либо турбо либо делфи

offline
Ответить с цитированием
Аватар для Трэй
Сообщения: 8,137
Регистрация: 30.09.2008
Старый пост, нажмите что бы добавить к себе блог 23 декабря 2010, 10:52
LastFm
  #667 (ПС)
-Цитата от Mase1 Посмотреть сообщение
-Цитата от Трэй Посмотреть сообщение
-Цитата от Hammer Посмотреть сообщение

Потому что Turbo под DOS.



Если правильно понял, то:
Код:
var a,b: integer;
begin;
  readln(a,b);
    if (a mod 2 = 0) OR  (b mod 2 = 0) then
      writeln('чётное число есть')
    else 
      writeln('чётных чисел нет');
end.
абс короче тоже не стартует.
free pascal+lazarus кто юзал?
попадался мне, но так и не пробовал на нём ничего делать
по мне, если паскаль, то либо турбо либо делфи
мне хоть какой-нибудь запустить на линуксе

offline
Ответить с цитированием
XXZP.
Аватар для Mase1
Сообщения: 16,816
Регистрация: 09.08.2007
Откуда: Genève
Старый пост, нажмите что бы добавить к себе блог 23 декабря 2010, 10:56
Домашняя страница ВКонтакте Live Journal MySpace Отправить сообщение через twitter для Mase1
  #668 (ПС)
-Цитата от Трэй Посмотреть сообщение
-Цитата от Mase1 Посмотреть сообщение
-Цитата от Трэй Посмотреть сообщение

абс короче тоже не стартует.
free pascal+lazarus кто юзал?
попадался мне, но так и не пробовал на нём ничего делать
по мне, если паскаль, то либо турбо либо делфи
мне хоть какой-нибудь запустить на линуксе
ой а за линукс хз вообще как там с паскалем
хочу на днях убунту поставить, заодно проверю
а си тебе не катит? нужен именно паскаль?

offline
Ответить с цитированием
Аватар для Трэй
Сообщения: 8,137
Регистрация: 30.09.2008
Старый пост, нажмите что бы добавить к себе блог 23 декабря 2010, 11:00
LastFm
  #669 (ПС)
-Цитата от Mase1 Посмотреть сообщение
-Цитата от Трэй Посмотреть сообщение
-Цитата от Mase1 Посмотреть сообщение

попадался мне, но так и не пробовал на нём ничего делать
по мне, если паскаль, то либо турбо либо делфи
мне хоть какой-нибудь запустить на линуксе
ой а за линукс хз вообще как там с паскалем
хочу на днях убунту поставить, заодно проверю
а си тебе не катит? нужен именно паскаль?
да, я ща паскаль осваиваю

offline
Ответить с цитированием
XXZP.
Аватар для Mase1
Сообщения: 16,816
Регистрация: 09.08.2007
Откуда: Genève
Старый пост, нажмите что бы добавить к себе блог 23 декабря 2010, 11:05
Домашняя страница ВКонтакте Live Journal MySpace Отправить сообщение через twitter для Mase1
  #670 (ПС)
поставь виртуальную винду)

offline
Ответить с цитированием
48 61 6D
Аватар для Hammer
Сообщения: 3,305
Регистрация: 05.10.2006
Откуда: Нижневартовск
Старый пост, нажмите что бы добавить к себе блог 23 декабря 2010, 11:41
  #671 (ПС)
-Цитата от Mase1 Посмотреть сообщение
-Цитата от Трэй Посмотреть сообщение
-Цитата от Hammer Посмотреть сообщение

Потому что Turbo под DOS.



Если правильно понял, то:
Код:
var a,b: integer;
begin;
  readln(a,b);
    if (a mod 2 = 0) OR  (b mod 2 = 0) then
      writeln('чётное число есть')
    else 
      writeln('чётных чисел нет');
end.
абс короче тоже не стартует.
free pascal+lazarus кто юзал?
попадался мне, но так и не пробовал на нём ничего делать
по мне, если паскаль, то либо турбо либо делфи
В Turbo нет int64 - что уже плохо. А юзать дельфи не для ООП программ - особого смысла не вижу.

offline
Ответить с цитированием
quattro
Аватар для Ягодка
Сообщения: 3,438
Регистрация: 03.09.2008
Откуда: :адуктО
Старый пост, нажмите что бы добавить к себе блог 23 декабря 2010, 14:27
ВКонтакте
  #672 (ПС)
-Цитата от Hammer Посмотреть сообщение
-Цитата от твердый знак Посмотреть сообщение
ребят с паскалем поможете?

Даны целые a и b. a>b, Определить результат целого деления a на b не используя div


-
program...
var a,b:integer; c:real;
begin
writeln('vvedite a,b');
read(a,b);
if a>b then begin
c:=a/b;
writeln(c);
end
else
writeln('0');
end.
вот что пезднул
вроде работает, но отладитть помогите, например после ввода данных обратно в меню набора программы(хз как оно называется) вылетаешь
а когда пишется ответ то выдает число и за ним 0000000000.Е+00
знаю что можно эту хуйню убрать, только как?
Исправь:
Код:
writeln(c:1:1);
и поставь перед end.
Код:
readln;
Зачем делать проверку a > b, если из условия => a > b?
рахмет братюнь, нормально работает)

offline
Ответить с цитированием
XXZP.
Аватар для Mase1
Сообщения: 16,816
Регистрация: 09.08.2007
Откуда: Genève
Старый пост, нажмите что бы добавить к себе блог 23 декабря 2010, 20:50
Домашняя страница ВКонтакте Live Journal MySpace Отправить сообщение через twitter для Mase1
  #673 (ПС)
-Цитата от Hammer Посмотреть сообщение
-Цитата от Mase1 Посмотреть сообщение
-Цитата от Трэй Посмотреть сообщение

абс короче тоже не стартует.
free pascal+lazarus кто юзал?
попадался мне, но так и не пробовал на нём ничего делать
по мне, если паскаль, то либо турбо либо делфи
В Turbo нет int64 - что уже плохо. А юзать дельфи не для ООП программ - особого смысла не вижу.
это чё ж такое нада на турбопаскале писать, что бы инт64 понадобился?

offline
Ответить с цитированием
48 61 6D
Аватар для Hammer
Сообщения: 3,305
Регистрация: 05.10.2006
Откуда: Нижневартовск
Старый пост, нажмите что бы добавить к себе блог 23 декабря 2010, 23:27
  #674 (ПС)
-Цитата от Mase1 Посмотреть сообщение
-Цитата от Hammer Посмотреть сообщение
-Цитата от Mase1 Посмотреть сообщение

попадался мне, но так и не пробовал на нём ничего делать
по мне, если паскаль, то либо турбо либо делфи
В Turbo нет int64 - что уже плохо. А юзать дельфи не для ООП программ - особого смысла не вижу.
это чё ж такое нада на турбопаскале писать, что бы инт64 понадобился?
Например, многие олимпиадные задачи требуют int64, который имеется только во free и abc.

offline
Ответить с цитированием
XXZP.
Аватар для Mase1
Сообщения: 16,816
Регистрация: 09.08.2007
Откуда: Genève
Старый пост, нажмите что бы добавить к себе блог 23 декабря 2010, 23:33
Домашняя страница ВКонтакте Live Journal MySpace Отправить сообщение через twitter для Mase1
  #675 (ПС)
-Цитата от Hammer Посмотреть сообщение
-Цитата от Mase1 Посмотреть сообщение
-Цитата от Hammer Посмотреть сообщение

В Turbo нет int64 - что уже плохо. А юзать дельфи не для ООП программ - особого смысла не вижу.
это чё ж такое нада на турбопаскале писать, что бы инт64 понадобился?
Например, многие олимпиадные задачи требуют int64, который имеется только во free и abc.
хз, когда я участвовал в олимпиадах, ничего такого небыло необходимо
причём задачки уже на то время были по волновым алгоритмам даже

offline
Ответить с цитированием
Ответ
Тэги темы: information, java, php, technology, программирование, Программисты, тусуются, учебники
Здесь присутствуют: 1 (пользователей - 0 , гостей - 1)
 
Опции темы
Похожие темы на: Программисты / Компьютерные техники, которые НИКОГДА не спят! [Беседка]
Тема Автор Раздел Ответов Последнее сообщение
Альбомы, которые вы никогда не удалите из плеера Kr0N Rap, MCing (зарубежный) 212 24 мая 2012
смайлы которые вы никогда не ставили Потняк Безбашенное общение 50 19 февраля 2011
Программисты CMS SLAED запустили профессиональную цмску phemrhigh Интернет-релизы: альбомы, микстейпы, сборники 0 11 февраля 2009
программисты, помогите! girl_from_Russia! Разговоры 29 20 июня 2007
Темы, которые вы никогда не посещаете. Шумный Разговоры 21 24 ноября 2006
Часовой пояс GMT +3, время: 08:03.