Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.11.2021, 14:24   #1
Никита Марабу
Новичок
Джуниор
 
Регистрация: 12.11.2021
Сообщений: 3
По умолчанию

Код:
program pd;
uses crt;
var x, y, dal, rez : real;

begin
clrscr;
writeln ('Ievadiet skaitlus x un y');
readln(x,y);

if x>y then
rez:=x-y;
writeln ('x-y :', rez:5:2);

if y>x then begin
dal:=y/x;
writeln ('y/x : ', dal:5:2);
end
end.
Почему при дилении в конце выводит x-y : 0.00

Мне нужно что бы при дилении в конце выводило только y/x : 2.33

В чем я ошибся тут?

Пример как у меня должно быть : https://imgur.com/a/lr8dXN7

Я ночичек и не понимаю в чем тут ошибка

Последний раз редактировалось BDA; 12.11.2021 в 20:11.
Никита Марабу вне форума Ответить с цитированием
Старый 12.11.2021, 14:36   #2
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,534
По умолчанию

Нужно проконтролировать ввод - может, что не так ввелось. Сделай вывод x, y после ввода - станет ясно
digitalis вне форума Ответить с цитированием
Старый 12.11.2021, 14:40   #3
Никита Марабу
Новичок
Джуниор
 
Регистрация: 12.11.2021
Сообщений: 3
По умолчанию

Я не совсем понял

Тут у меня небольшая ошибка и я уже 4 часа не могу понять где она

Последний раз редактировалось BDA; 12.11.2021 в 20:11.
Никита Марабу вне форума Ответить с цитированием
Старый 12.11.2021, 14:51   #4
ForenLi
Форумчанин
 
Регистрация: 02.06.2021
Сообщений: 515
По умолчанию

У вас
Код:
writeln ('x-y :', rez:5:2);
не под ифом и выводится всегда.
ForenLi вне форума Ответить с цитированием
Старый 12.11.2021, 19:08   #5
Никита Марабу
Новичок
Джуниор
 
Регистрация: 12.11.2021
Сообщений: 3
По умолчанию

А как мне сделать как в примере?
Никита Марабу вне форума Ответить с цитированием
Старый 12.11.2021, 19:57   #6
ViktorR
Старожил
 
Регистрация: 23.10.2010
Сообщений: 2,304
По умолчанию

А в каком примере?
Если из первого поста, то там есть два условных оператора.
Сравни их и попробуй ответить на свой вопрос.
Как-то так, ...
ViktorR вне форума Ответить с цитированием
Старый 12.11.2021, 22:24   #7
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,534
По умолчанию

Мой кот Мурзик сделал бы так:
Код:
if x>y then
   begin
      rez:=x-y;
      writeln ('x-y :', rez:5:2)
   end;
но он Паскаль не любит, только Felix
Остаётся неохваченной ситуация при x=y
digitalis вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
спасите, добрые люди, пожаааааалуйста:3 где-то в коде закралась ошибка, потому что выводит левые числа, а где, понятия не имею:с typayababa Помощь студентам 9 19.11.2017 11:48
найти результат вычисления арифметического выражения y=a(x+1), где a=2, x принадлежит [-5;15] с шагом =1. вычислить все значения и найти количество элементов <10 MrFarick Паскаль, Turbo Pascal, PascalABC.NET 4 10.03.2017 00:45
выводит то,что надо и то,чего нет c++ vadim93 Помощь студентам 4 22.12.2013 14:57
выводит такую ошибку.Что она означает? camel5 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 4 28.11.2013 11:09
Ошибку сделал где,исправить надо Азамат32664 Паскаль, Turbo Pascal, PascalABC.NET 0 05.12.2011 15:24