Hip-Hop.Ru

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.

хз, когда я участвовал в олимпиадах, ничего такого небыло необходимо:|
причём задачки уже на то время были по волновым алгоритмам даже

Hammer 23 декабря 2010 22:52

Цитата:

Цитата от Mase1 (Сообщение 1071858311)
Цитата:

Цитата от Hammer (Сообщение 1071858273)
Цитата:

Цитата от Mase1 (Сообщение 1071856900)

это чё ж такое нада на турбопаскале писать, что бы инт64 понадобился?:confused:

Например, многие олимпиадные задачи требуют int64, который имеется только во free и abc.

хз, когда я участвовал в олимпиадах, ничего такого небыло необходимо:|
причём задачки уже на то время были по волновым алгоритмам даже

Не знаю, участвовал в олимпиадах с года 2004, почти в каждой требовался int64. Поэтому приходилось юзать Delphi, что совсем убивало.

Mase1 23 декабря 2010 23:27

Цитата:

Цитата от Hammer (Сообщение 1071858459)
Цитата:

Цитата от Mase1 (Сообщение 1071858311)
Цитата:

Цитата от Hammer (Сообщение 1071858273)

Например, многие олимпиадные задачи требуют int64, который имеется только во free и abc.

хз, когда я участвовал в олимпиадах, ничего такого небыло необходимо:|
причём задачки уже на то время были по волновым алгоритмам даже

Не знаю, участвовал в олимпиадах с года 2004, почти в каждой требовался int64. Поэтому приходилось юзать Delphi, что совсем убивало.

я участвовал до 2004-2005
особенно радовали в то время флоппики, которые могли просто взять и не прочитаться и надо было создавать на всякий случай дополнительную папочку в дискете:cool: самый дорогой хранитель информации - флоппи, меньше 2мб стоило как ща двд болванка и мог сдохнуть не дойдя до дома:D

Die$elek 24 декабря 2010 00:24

Кто умеет работать на Assembler'е?
Напишите в личку, нужна помощь.

Таяпантабули 24 декабря 2010 07:38

я умею)))
мой самый любимый язык)))

Die$elek 24 декабря 2010 11:57

Написать программу создания функцией 3ch файла my_file.txt в текущем каталоге.
Знаешь как сделать ^ ?

Таяпантабули 24 декабря 2010 13:57

надо открыть справочник пирогова и вспомнить:)

Mase1 24 декабря 2010 14:12

Цитата:

Цитата от Die$elek (Сообщение 1071861114)
Написать программу создания функцией 3ch файла my_file.txt в текущем каталоге.
Знаешь как сделать ^ ?

Цитата:

TITLE bar
.Model Small
.Stack 100h
.Data
handle DW 0
namef DB 'my_file.txt',0
.Code
begin:
mov ax,@data
mov ds,ax
MOV AH, 3CH
MOV CX, 0
LEA DX, namef
INT 21H
MOV handle, AX

mov ax, 4c00h
int 21h
END begin
как то так попробуй

Die$elek 24 декабря 2010 14:13

помоги пожалуйста:horosho:или хотя бы посоветуй где че найти можно:)

st. GID 24 декабря 2010 14:17

Вложений: 1
Народ, не понимаю, это иллюзия? Вот бля буду, вижу на картинке говно, а люди из майкрасофта утверждают что это операционная система...

Hammer 24 декабря 2010 14:19

Цитата:

Цитата от st. GID (Сообщение 1071862063)
а люди из майкрасофта утверждают что это операционная система...

Людям свойственно ошибаться. ;)

Mase1 24 декабря 2010 14:20

Цитата:

Цитата от Die$elek (Сообщение 1071862037)
помоги пожалуйста:horosho:или хотя бы посоветуй где че найти можно:)

:miha:я ж тебе дал код уже
басота погнали в кс:eek:

Die$elek 24 декабря 2010 14:24

Цитата:

Цитата от Mase1 (Сообщение 1071862087)
Цитата:

Цитата от Die$elek (Сообщение 1071862037)
помоги пожалуйста:horosho:или хотя бы посоветуй где че найти можно:)

:miha:я ж тебе дал код уже
басота погнали в кс:eek:

ssory:saint:со своими головниками совсем погнал:ugly:
СПАСИБО:horosho:

Mase1 24 декабря 2010 14:25

ты сначала проверь код) а потом говори спасибо)

Făt-Frumos 24 декабря 2010 15:50

Я на Линукс сестренку пересадил :)):saint:

Hammer 24 декабря 2010 16:00

Цитата:

Цитата от Făt-Frumos (Сообщение 1071862925)
Я на Линукс сестренку пересадил :)):saint:

Погубил сестру. http://on-video.kz/engine/data/emoticons/facepalm.gif

Făt-Frumos 25 декабря 2010 02:23

Гг :)

Die$elek 25 декабря 2010 02:59

Цитата:

Цитата от Mase1 (Сообщение 1071862137)
ты сначала проверь код) а потом говори спасибо)

на чем проверять... я в этом полный 0:| ток учиться собрался...

Трэй 25 декабря 2010 12:00

Цитата:

Цитата от Făt-Frumos (Сообщение 1071862925)
Я на Линукс сестренку пересадил :)):saint:

бедная...
надеюсь ты систему ей хоть допилишь?

Таяпантабули 25 декабря 2010 12:50

Цитата:

Цитата от Die$elek (Сообщение 1071867391)
Цитата:

Цитата от Mase1 (Сообщение 1071862137)
ты сначала проверь код) а потом говори спасибо)

на чем проверять... я в этом полный 0:| ток учиться собрался...

скачай Tasm!
открой консоль, скомпилируй и запусти!
Учебник Пирогова тебе в помощь!

Die$elek 25 декабря 2010 12:59

Цитата:

Цитата от CARBO (Сообщение 1071869012)
Цитата:

Цитата от Die$elek (Сообщение 1071867391)
Цитата:

Цитата от Mase1 (Сообщение 1071862137)
ты сначала проверь код) а потом говори спасибо)

на чем проверять... я в этом полный 0:| ток учиться собрался...

скачай Tasm!
открой консоль, скомпилируй и запусти!
Учебник Пирогова тебе в помощь!

буду пробывать, учиться:horosho:

Таяпантабули 25 декабря 2010 13:08

не забудь еще качнуть BeBugger!

Die$elek 25 декабря 2010 13:09

а он зачем?

Făt-Frumos 25 декабря 2010 15:14

Цитата:

Цитата от Трэй (Сообщение 1071868702)
Цитата:

Цитата от Făt-Frumos (Сообщение 1071862925)
Я на Линукс сестренку пересадил :)):saint:

бедная...
надеюсь ты систему ей хоть допилишь?

конечно :))
а ты шо думал я поставлю ей голый арч и пусть сома ручками пилит?)):D

Таяпантабули 25 декабря 2010 20:11

дебагер поможет тебе всю эту хуйню понять)
пошаговая отладка наглядно демонстрирует что происходит с регистрами:)

Die$elek 25 декабря 2010 23:27

Цитата:

Цитата от CARBO (Сообщение 1071871701)
дебагер поможет тебе всю эту хуйню понять)
пошаговая отладка наглядно демонстрирует что происходит с регистрами:)

:horosho: буду пробывать :cool:


Часовой пояс GMT +3, время: 15:11.

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.