|
Turbo Pascal 7.0
|
|
| Indeoo | Дата: Понедельник, 27 Июня 2011, 18:52:02 | Сообщение # 51 |
7 уровень
Группа: Проверенные
Сообщений: 258
Награды: 0
Репутация: 50
Блокировки:  | Скачал чтот-то типо адаптировки. Давайте самый простой математические пример сделаем
Бот Indeoo v2.1 © ClanNR enterteiment
Про всегда прав!
|
| |
|
|
| Velm@ris | Дата: Понедельник, 27 Июня 2011, 18:52:20 | Сообщение # 52 |
|
1 3 3 7 bot
Группа: Ветераны
Сообщений: 587
Награды: 0
Блокировки: | кстати у шео более верная программа, т.к. идёт проверка неотрицательности числа под корнем, но можно было написать if (tyt yclovie)>0 then (chto delaem);
и не писать всяких брейков, элсев.
Рекорд 1377.75р  |
| |
|
|
| Sheogorath | Дата: Понедельник, 27 Июня 2011, 18:53:53 | Сообщение # 53 |
10 уровень
Группа: Ветераны
Сообщений: 1285
Награды: 1
Репутация: 333
Блокировки: | Indeoo, ну вот
program additivnost;
var x,y: integer;
begin
writeln ('vvedi 1-e 4islo');
readln (x);
writeln ('vvedi 2-e 4islo');
readln (y);
writeln (x+y, ':trollface:');
readln;
end.
Я вам, ребята, вот что скажу. Если у тебя в детстве не было велосипеда, а сейчас есть Бентли, то все равно в детстве у тебя не было велосипеда.
Если за все платить, деньги могут закончиться
|
| |
|
|
| Velm@ris | Дата: Понедельник, 27 Июня 2011, 18:54:30 | Сообщение # 54 |
|
1 3 3 7 bot
Группа: Ветераны
Сообщений: 587
Награды: 0
Блокировки: | Quote (Sheogorath) readln;
не нужно
Рекорд 1377.75р |
| |
|
|
| Indeoo | Дата: Понедельник, 27 Июня 2011, 18:55:02 | Сообщение # 55 |
7 уровень
Группа: Проверенные
Сообщений: 258
Награды: 0
Репутация: 50
Блокировки: | Quote (Velm@ris) кстати у шео более верная программа, т.к. идёт проверка неотрицательности числа под корнем, но можно было написать if (tyt yclovie)>0 then (chto delaem); и не писать всяких брейков, элсев.
его пример прямо как из книги только я увидел не ту С и сразу нчалиь какие-то сомнения
Бот Indeoo v2.1 © ClanNR enterteiment
Про всегда прав!
|
| |
|
|
| Sheogorath | Дата: Понедельник, 27 Июня 2011, 18:55:45 | Сообщение # 56 |
10 уровень
Группа: Ветераны
Сообщений: 1285
Награды: 1
Репутация: 333
Блокировки: | Quote (Velm@ris) не нужно
ну функционала от этой команды действительно никакой, но часто без нее просто выходит, а чтоб посмотреть результат, надо еще раз запускать программу, а нафиг это делать, когда можно просто написать ридлн?
Я вам, ребята, вот что скажу. Если у тебя в детстве не было велосипеда, а сейчас есть Бентли, то все равно в детстве у тебя не было велосипеда.
Если за все платить, деньги могут закончиться
|
| |
|
|
| Velm@ris | Дата: Понедельник, 27 Июня 2011, 18:56:34 | Сообщение # 57 |
|
1 3 3 7 bot
Группа: Ветераны
Сообщений: 587
Награды: 0
Блокировки: | Indeoo, тебе вообще зачем паскаль? Добавлено (27-06-2011, 18:56)
---------------------------------------------
Quote (Sheogorath) часто без нее просто выходит
ололо
Рекорд 1377.75р |
| |
|
|
| Sheogorath | Дата: Понедельник, 27 Июня 2011, 18:57:24 | Сообщение # 58 |
10 уровень
Группа: Ветераны
Сообщений: 1285
Награды: 1
Репутация: 333
Блокировки: | Quote (Indeoo) его пример прямо как из книги только я увидел не ту С и сразу нчалиь какие-то сомнения
а, лол, просто английскую с в скобках он записывает как копирайт. У тебя у самого в посте такая же беда. ©, (с)
Я вам, ребята, вот что скажу. Если у тебя в детстве не было велосипеда, а сейчас есть Бентли, то все равно в детстве у тебя не было велосипеда.
Если за все платить, деньги могут закончиться
|
| |
|
|
| Indeoo | Дата: Понедельник, 27 Июня 2011, 19:00:30 | Сообщение # 59 |
7 уровень
Группа: Проверенные
Сообщений: 258
Награды: 0
Репутация: 50
Блокировки: | Velm@ris, незнаю 
Бот Indeoo v2.1 © ClanNR enterteiment
Про всегда прав!
|
| |
|
|
| Velm@ris | Дата: Понедельник, 27 Июня 2011, 19:03:12 | Сообщение # 60 |
|
1 3 3 7 bot
Группа: Ветераны
Сообщений: 587
Награды: 0
Блокировки: | Quote (Sheogorath) английскую с в скобках он записывает как копирайт
поэтому я и пишу в коде)
Рекорд 1377.75р |
| |
|
|
| Indeoo | Дата: Понедельник, 27 Июня 2011, 19:05:52 | Сообщение # 61 |
7 уровень
Группа: Проверенные
Сообщений: 258
Награды: 0
Репутация: 50
Блокировки: | Короче тут с виндой проблемы!! Добавлено (27-06-2011, 19:05)
---------------------------------------------
Народ какой язык еще относительно легкий кроме паскал, и идет на семерку
Бот Indeoo v2.1 © ClanNR enterteiment
Про всегда прав!
|
| |
|
|
| MaSer | Дата: Понедельник, 27 Июня 2011, 19:06:51 | Сообщение # 62 |
|
Котобог
Группа: Стримеры
Сообщений: 3574
Награды: 13
Блокировки: | Quote (Indeoo)
Народ какой язык еще относительно легкий кроме паскал, и идет на семерку
Асм
|
| |
|
|
| Indeoo | Дата: Понедельник, 27 Июня 2011, 19:07:58 | Сообщение # 63 |
7 уровень
Группа: Проверенные
Сообщений: 258
Награды: 0
Репутация: 50
Блокировки: | MaSer, ?
Бот Indeoo v2.1 © ClanNR enterteiment
Про всегда прав!
|
| |
|
|
| Velm@ris | Дата: Понедельник, 27 Июня 2011, 19:11:37 | Сообщение # 64 |
|
1 3 3 7 bot
Группа: Ветераны
Сообщений: 587
Награды: 0
Блокировки: | асамблер Добавлено (27-06-2011, 19:11)
---------------------------------------------
делфи Добавлено (27-06-2011, 19:11)
---------------------------------------------
делфи как паскаль, разницы можно сказать нет
Рекорд 1377.75р |
| |
|
|
| BinGO | Дата: Понедельник, 27 Июня 2011, 19:24:57 | Сообщение # 65 |
|
Группа: Модераторы
Сообщений: 2906
Награды: 8
Блокировки: |
Не язык уж это, нет.Добавлено (27-06-2011, 19:24)
---------------------------------------------
Делфи - среда разработки приложений, использующая язык обжект паскаль, если говорить точнее.
|
| |
|
|
| MaSer | Дата: Понедельник, 27 Июня 2011, 19:25:01 | Сообщение # 66 |
|
Котобог
Группа: Стримеры
Сообщений: 3574
Награды: 13
Блокировки: | Quote (B1nGO)
Не язык уж это, нет.
Уже как 4 года язык.
|
| |
|
|
| BinGO | Дата: Понедельник, 27 Июня 2011, 19:25:55 | Сообщение # 67 |
|
Группа: Модераторы
Сообщений: 2906
Награды: 8
Блокировки: | Я новые версии не юзал
|
| |
|
|
| AdMiRaLL | Дата: Понедельник, 27 Июня 2011, 19:32:57 | Сообщение # 68 |
8 уровень
Группа: Проверенные
Сообщений: 743
Награды: 1
Репутация: 61
Блокировки: | о рома
|
| |
|
|
| Malfatto | Дата: Понедельник, 27 Июня 2011, 19:57:25 | Сообщение # 69 |
|
Группа: Модераторы
Сообщений: 3806
Награды: 7
Репутация: 2425
Блокировки: | Quote (Velm@ris) не надо как бы
надо, могу аргументировать
Quote (Indeoo) program roots2;
var a, b, c, x1, x2: real;
begin
WriteLn;
Write ('A':);
REad (a);
Write ('B:');
Read (b);
Write ('C:');
Read ©;
x1:=(-b+sqrt(sqr(b)-4*a*c)).(2*a);
x2=(-b-sqrt(sqr(b)-4*a*c))/(2*a);
WriteLn ('x1=',x1);
WriteLn ('x2-',x2);
end.
никогда для чтения не используй Read, эта функция нужна лишь в исключительных случаях.
|
| |
|
|
| Velm@ris | Дата: Понедельник, 27 Июня 2011, 20:01:50 | Сообщение # 70 |
|
1 3 3 7 bot
Группа: Ветераны
Сообщений: 587
Награды: 0
Блокировки: | давай аргументы)
Рекорд 1377.75р |
| |
|
|
| Malfatto | Дата: Понедельник, 27 Июня 2011, 20:05:38 | Сообщение # 71 |
|
Группа: Модераторы
Сообщений: 3806
Награды: 7
Репутация: 2425
Блокировки: | Quote (Sheogorath) у вас неправильные паскали. Нормальные люди пользуются free pascal или дельфями
я тоже через делфи пишу но там разницы вообще нет, те же разрабы тупо паскаль улучшилиДобавлено (27-06-2011, 20:05)
---------------------------------------------
Quote (Velm@ris) делфи как паскаль, разницы можно сказать нет
есть
Velm@ris, программа прекращает свою работу после "end.". нужно давать пользователю возможность увидеть результат.Добавлено (27-06-2011, 20:05)
---------------------------------------------
Code program Project1;
var
A,B,C,X1,X2: Real;
begin
Write('Vvedite A: ');
ReadLn(A);
Write('Vvedite B: ');
ReadLn(B);
Write('Vvedite C: ');
ReadLn(C);
X1:=(-B+Sqrt(Sqr(B))-4*A*C)/(2*A);
X2:=(-B-Sqrt(Sqr(B))-4*A*C)/(2*A);
WriteLn('X1=',X1:8:3);
WriteLn('X2=',X2:8:3);
ReadLn;
end.
вот готовый код программы
|
| |
|
|
| Velm@ris | Дата: Понедельник, 27 Июня 2011, 20:08:58 | Сообщение # 72 |
|
1 3 3 7 bot
Группа: Ветераны
Сообщений: 587
Награды: 0
Блокировки: |
фраза "можно сказать нет" не говорит о том что её вообще нет, т.е. подразумевается, что она есть.
Quote (Хамяг) Velm@ris, программа прекращает свою работу после "end.". нужно давать пользователю возможность увидеть результат.
Результат можно посмотреть нажав или в меню что-то, короче из меню можно открыть результат, т.е. эта строка нахрен нужна. =)
Рекорд 1377.75р |
| |
|
|
| Malfatto | Дата: Понедельник, 27 Июня 2011, 20:09:13 | Сообщение # 73 |
|
Группа: Модераторы
Сообщений: 3806
Награды: 7
Репутация: 2425
Блокировки: |
|
| |
|
|
| Velm@ris | Дата: Понедельник, 27 Июня 2011, 20:09:43 | Сообщение # 74 |
|
1 3 3 7 bot
Группа: Ветераны
Сообщений: 587
Награды: 0
Блокировки: | Хамяг, у меня ошибка - нет условия проверки отрицательности выражения под корнем, но мы не об этом.
Quote (Velm@ris) Результат можно посмотреть нажав или в меню что-то, короче из меню можно открыть результат, т.е. эта строка нахрен нужна. =)
Рекорд 1377.75р |
| |
|
|
| Malfatto | Дата: Понедельник, 27 Июня 2011, 20:10:37 | Сообщение # 75 |
|
Группа: Модераторы
Сообщений: 3806
Награды: 7
Репутация: 2425
Блокировки: | Quote (Velm@ris) Результат можно посмотреть нажав или в меню что-то, короче из меню можно открыть результат, т.е. эта строка нахрен нужна. =)
1 - зачем пользователю каждый раз что-то нажимать, когда можно прописать readln и всё сразу можно увидеть?
2 - этот метод прокатит только запуская программу через отладчик паскаля. готовый скомпилированный экзешник будет сразу закрываться.
|
| |
|
|
