Показать сообщение отдельно
Mase1
XXZP.
Аватар для Mase1
Сообщения: 16,816
Регистрация: 08.08.2007
Откуда: Genève
Старый пост, нажмите что бы добавить к себе блог 22 декабря 2010, 22: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
Ответить с цитированием