BrAB: Все сообщения за 30 Сентября 2004 года

Пн	Вт	Ср	Чт	Пт	Сб	Вс
		1	2	3	4	5
6	7	8	9	10	11	12
13	14	15	16	17	18	19
20	21	22	23	24	25	26
27	28	29	30

Программирование #30.09.2004 09:54 @Guest#29.09.2004 20:30

BrAB

аксакал

★★

К нечитанному в теме «Программирование»

Guest>>Да я вообще ничего не понял из того, что вы все понмписали.

Я же сказал, что программировать не умею. К тому же тут явно не тот Паскаль, что у нас. У нас Борланд Паскаль - первая версия для Windows, переделанная с ДОСа[»]
brab>Так.... правильно

набежали супер програмеры загрузили по полной. На паскале под винды никогда не писал (для этого делфи есть), сейчас напишу на нём по dos. думаю адаптировать будет недолго.[»]

Воощем....................... надеюсь написал понятно. работает под TP 7.0

code text

uses crt;
var a,b,c:real;s:string;
begin
repeat {бесконечный цикл}
clrscr;
writeln('Enter a');
readln(a);
repeat
writeln('Enter +;-;*;/;exit');
readln(s);
until (s='-') or (s='+') or (s='*') or (s='/') or (s='exit'); {проверяем ввод знака или условие выхода}
if s='exit' then halt; {выходим из программы если введено exit}
writeln('Enter b');
readln(b);
case s[1] of {s[1] - это первый символ строки. case не понимает строк, поэтому мы даём ему символ}
'-':c:=a-b; {если s[1]=- то вычитаем}
'+':c:=a+b;
'*':c:=a*b;
'/':c:=a/b;
end;
writeln(a:5:3,s,b:5:3,'=',c:5:3); {:5:3 ограничение по кол-ву знаков после запятой и ещё чему то :)}
readln;
until 1<>1; {из цикла выходим внутри него при вводе exit}
end.

Ежели чего непонятно - в форум, аську, почту. нужно будет изменить под делфи - изменю. нужно что-то исправить - исправлю

Было у еврея всё плохо. Пришел за советом к равину. Тот - напиши над дверью - "Так будет не всегда". Стало всё ок. Пошел он благодарить. А тот ему - надпись не стирай. Злой чечен ползет на берег. ©Лермонтов

СССР победил в "холодной войне" #30.09.2004 10:06 @Iva#30.09.2004 01:12

BrAB

аксакал

★★

К нечитанному в теме «СССР победил в "холодной войне"»

Iva>Страшное дело. Монополия в масштабе всего мира - полное отсутсвие какой-либо конкуренции.
Iva>как любил говорить мой отец - "великое счастье всего мира, что в России произошла Революция - к низам стали относиться много лучше, а великое наше ( сов. людей) счастье - что она не победила во всем мире. И надо нашему верху реагировать на сравнения с ними, а не только с 1913 годом."[»]

Я когда читаю всяки стат. справочники, где сравнение с 1913 всегда с ужасом жду колонки Атомная энергетика. Ведь там же деление на ноль :blink:

Было у еврея всё плохо. Пришел за советом к равину. Тот - напиши над дверью - "Так будет не всегда". Стало всё ок. Пошел он благодарить. А тот ему - надпись не стирай. Злой чечен ползет на берег. ©Лермонтов

Причины поражений в воздухе #30.09.2004 10:17 @genadich#30.09.2004 09:00

BrAB

аксакал

★★

К нечитанному в теме «Причины поражений в воздухе»

genadich>2 Vikond
genadich>Ваше мнение про уровень л/с Люфтваффе в начале 43? На сколько сильно он упал с начала войны?
genadich>Английские источники любят утверждать, что во время битвы за Англию был выбит весь цвет немецких бомбардировочных (как минимум) соединеней. По Вашему мнению, имел ли место что-либо подобное воздушное сражение на Советском фронте?[»]

Я приводил цифры, взятые из книги Зефирова. На восточный фронт приходится менее 50% потерь асов бомбандировочно авиации, причём львиная доля приходится на 44-45 годы.

Было у еврея всё плохо. Пришел за советом к равину. Тот - напиши над дверью - "Так будет не всегда". Стало всё ок. Пошел он благодарить. А тот ему - надпись не стирай. Злой чечен ползет на берег. ©Лермонтов

СССР победил в "холодной войне" #30.09.2004 14:43 @Iva#30.09.2004 01:12

BrAB

аксакал

★★

К нечитанному в теме «СССР победил в "холодной войне"»

Iva>>Страшное дело. Монополия в масштабе всего мира - полное отсутсвие какой-либо конкуренции.
Centuriones>...
Centuriones>[»]
BrAB>>Я когда читаю всяки стат. справочники, где сравнение с 1913 всегда с ужасом жду колонки Атомная энергетика. Ведь там же деление на ноль :blink:

[»]
Centuriones>Сколько раз врачи всем говорят: "Не чешите монополию, конкуренцию, 1913 год, Атомную энергетику... Не чешите. И беспокоить не будет, сон улучшится. А там, глядишь, и выздоровление наступит".

[»]

Ага. Только для полного выздоровления надо выяснить что за птичка у вас на аватаре

Было у еврея всё плохо. Пришел за советом к равину. Тот - напиши над дверью - "Так будет не всегда". Стало всё ок. Пошел он благодарить. А тот ему - надпись не стирай. Злой чечен ползет на берег. ©Лермонтов