Hip-Hop.Ru
Страница 27 из 136: « Первая ← 717202122232425262728293031323334374777127 → Последняя »
Показывать 50 сообщений этой темы на одной странице

Hip-Hop.Ru (https://www.hip-hop.ru/forum/)
-   Компьютеры и Интернет (https://www.hip-hop.ru/forum/kompyutery-i-internet-f186)
-   -   Программисты / Компьютерные техники, которые НИКОГДА не спят! [Беседка] (https://www.hip-hop.ru/forum/programmisty-kompyuternye-tehniki-kotorye-nikogda-ne-spyat-besedka-252443/)

Hammer 22 декабря 2010 20:46
Цитата:
Цитата от Трэй (Сообщение 1071850585)
Цитата:
Цитата от Hammer (Сообщение 1071850582)
Цитата:
Цитата от Трэй (Сообщение 1071850025)

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

Цитата:
Цитата от Kasper[ALP CLAN] (Сообщение 1071850653)
Цитата:
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.

Лжэц 22 декабря 2010 20:56
я в теме:cool:

random* 22 декабря 2010 21:04
:horosho:

Ягодка 22 декабря 2010 21:05
ребят с паскалем поможете?

Даны целые 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
знаю что можно эту хуйню убрать, только как?

lil_dem 22 декабря 2010 21:06
сёдня победил в номинации "Техносфера. Информатика и компьютерные технологии" с проектом на тему: Adobe Audition ;D
http://s006.radikal.ru/i214/1012/c2/bac1455494f2.jpg

Hammer 22 декабря 2010 21:31
Цитата:
Цитата от твердый знак (Сообщение 1071850956)
ребят с паскалем поможете?

Даны целые 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?

Die$elek 22 декабря 2010 21:32
Может кто помочь?!?!?!
Программа на языке Assembler.
Написать программу создания функцией 3ch файла my_file.txt в текущем каталоге.

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

Mase1 22 декабря 2010 22:08
Цитата:
Цитата от Hammer (Сообщение 1071851084)
Цитата:
Цитата от твердый знак (Сообщение 1071850956)
ребят с паскалем поможете?

Даны целые 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?
стрессоустойчивость программы:morj:
впринципе правильно, что проверяет, при вводе данных можно навводить хуйни всякой и прога будет работать неадекватно, всё верно, примитивная обработка исключений
а так умный препод обратит внимание, что это учтено и плюс себе сделает:morj:

Die$elek 22 декабря 2010 22:18
Может кто помочь?!?!?!
Программа на языке Assembler.
Написать программу создания функцией 3ch файла my_file.txt в текущем каталоге.

Hammer 22 декабря 2010 22:20
Цитата:
Цитата от Mase1 (Сообщение 1071851218)
Цитата:
Цитата от Hammer (Сообщение 1071851084)
Цитата:
Цитата от твердый знак (Сообщение 1071850956)
ребят с паскалем поможете?

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




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

Die$elek 22 декабря 2010 22:21
у меня инет злосно тормозит:tomato:хер че сделаешь:mad:

Mase1 22 декабря 2010 22:27
Цитата:
Цитата от Hammer (Сообщение 1071851296)
Цитата:
Цитата от Mase1 (Сообщение 1071851218)
Цитата:
Цитата от Hammer (Сообщение 1071851084)

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

Добавлено через 14 минут 11 секунд
Цитата:
Цитата от твердый знак (Сообщение 1071850956)
ребят с паскалем поможете?

Даны целые 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));

Hammer 22 декабря 2010 22:49
Цитата:
Цитата от Mase1 (Сообщение 1071851331)
да ну, по мне, так это подготовка к более серьёзному кодингу, где такие проверки не редкость, преподы в универах часто проверяют на такие дырки проги, пусть даже такая мелочь, как данная, но в ней он показал свою хорошую сторону - предусмотрительность
в дальнейшем пригодится данное качество:horosho:
Качество, не спорю, хорошее, но не везде и не всегда. Тем более в «серьёзном кодинге» имеются тестеры. Да и данные проверки уже строятся на подсознательном уровне.
К примеру, чистый код и быстрый алгоритм всегда играют важную роль. Иногда одна лишняя проверка может «сожрать» кучу памяти.

Mase1 22 декабря 2010 23:02
Цитата:
Цитата от Hammer (Сообщение 1071851427)
Цитата:
Цитата от Mase1 (Сообщение 1071851331)
да ну, по мне, так это подготовка к более серьёзному кодингу, где такие проверки не редкость, преподы в универах часто проверяют на такие дырки проги, пусть даже такая мелочь, как данная, но в ней он показал свою хорошую сторону - предусмотрительность
в дальнейшем пригодится данное качество:horosho:
Качество, не спорю, хорошее, но не везде и не всегда. Тем более в «серьёзном кодинге» имеются тестеры. Да и данные проверки уже строятся на подсознательном уровне.
К примеру, чистый код и быстрый алгоритм всегда играют важную роль. Иногда одна лишняя проверка может «сожрать» кучу памяти.
а иногда отсутствие проверки может убить проект каким нибудь делением на ноль в громоздком коде функции запроса к базе данных в 5000 строчек:blackust: понятное дело, что во всём нужно быть аккуратным, в этом я согласен;)

Трэй 23 декабря 2010 07:32
Цитата:
Цитата от Hammer (Сообщение 1071850863)
Цитата:
Цитата от Трэй (Сообщение 1071850585)
Цитата:
Цитата от Hammer (Сообщение 1071850582)

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

Цитата:
Цитата от Kasper[ALP CLAN] (Сообщение 1071850653)
Цитата:
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 кто юзал?

Mase1 23 декабря 2010 09:50
Цитата:
Цитата от Трэй (Сообщение 1071852561)
Цитата:
Цитата от Hammer (Сообщение 1071850863)
Цитата:
Цитата от Трэй (Сообщение 1071850585)

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

Цитата:
Цитата от Kasper[ALP CLAN] (Сообщение 1071850653)

Как доработать программу с использованием логической операции 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 кто юзал?
попадался мне, но так и не пробовал на нём ничего делать
по мне, если паскаль, то либо турбо либо делфи

Трэй 23 декабря 2010 09:52
Цитата:
Цитата от Mase1 (Сообщение 1071853049)
Цитата:
Цитата от Трэй (Сообщение 1071852561)
Цитата:
Цитата от Hammer (Сообщение 1071850863)

Потому что 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 кто юзал?
попадался мне, но так и не пробовал на нём ничего делать
по мне, если паскаль, то либо турбо либо делфи
мне хоть какой-нибудь запустить на линуксе

Mase1 23 декабря 2010 09:56
Цитата:
Цитата от Трэй (Сообщение 1071853053)
Цитата:
Цитата от Mase1 (Сообщение 1071853049)
Цитата:
Цитата от Трэй (Сообщение 1071852561)

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

Трэй 23 декабря 2010 10:00
Цитата:
Цитата от Mase1 (Сообщение 1071853069)
Цитата:
Цитата от Трэй (Сообщение 1071853053)
Цитата:
Цитата от Mase1 (Сообщение 1071853049)

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

Mase1 23 декабря 2010 10:05
поставь виртуальную винду)

Hammer 23 декабря 2010 10:41
Цитата:
Цитата от Mase1 (Сообщение 1071853049)
Цитата:
Цитата от Трэй (Сообщение 1071852561)
Цитата:
Цитата от Hammer (Сообщение 1071850863)

Потому что 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 - что уже плохо. А юзать дельфи не для ООП программ - особого смысла не вижу.

Ягодка 23 декабря 2010 13:27
Цитата:
Цитата от Hammer (Сообщение 1071851084)
Цитата:
Цитата от твердый знак (Сообщение 1071850956)
ребят с паскалем поможете?

Даны целые 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?
рахмет братюнь, нормально работает):blackust:

Mase1 23 декабря 2010 19:50
Цитата:
Цитата от Hammer (Сообщение 1071853226)
Цитата:
Цитата от Mase1 (Сообщение 1071853049)
Цитата:
Цитата от Трэй (Сообщение 1071852561)

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

Hammer 23 декабря 2010 22:27
Цитата:
Цитата от Mase1 (Сообщение 1071856900)
Цитата:
Цитата от Hammer (Сообщение 1071853226)
Цитата:
Цитата от Mase1 (Сообщение 1071853049)

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

Mase1 23 декабря 2010 22:33
Цитата:
Цитата от Hammer (Сообщение 1071858273)
Цитата:
Цитата от Mase1 (Сообщение 1071856900)
Цитата:
Цитата от Hammer (Сообщение 1071853226)

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


Часовой пояс GMT +3, время: 21:01.
Страница 27 из 136: « Первая ← 717202122232425262728293031323334374777127 → Последняя »
Показывать 50 сообщений этой темы на одной странице

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.

vBulletin Optimisation provided by vB Optimise (Pro) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.