Программа неправильно считает. Например. при a>b, x всегда равен 61 при любых числах. Такая же ситуация и с a=b и a<b

@Влад 0424 · Регистрация: 05.10.2021

Студворк — интернет-сервис помощи студентам

Pascal
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
program lab2;
uses crt;
 
const
inv1='Повторите ввод';
inv2='Деление на ноль!!!! ';
inv3='Результат ';
inv4='выходит за диапазон[-32768...32767]!!!';
inv5='Вводимое значение ';
invA='A';
invB='B';
 
Label L1,L;
 
var
 a,b,x: Integer;
 ch: Char;
 x1: Real;
 s1: String;
 aL: Real;
 s2: String;
 s3: String;
 
 begin
 Repeat
 
 L1:
 Write('Введите значение '+invB,'===>');
 Readln(aL);
 if(aL>=-32768)and(aL<32767) then b:=trunc(aL)
 else
 Begin
 s1:=inv5+inv4;
 Writeln(s1);
 Writeln(inv1);
 goto L1;
 End;
 
 L: Write('Введите значение '+invA,'===>');
 Readln(aL);
 if(aL>=-32768)and(aL<32767) then a:=trunc(aL)
 else
 Begin
 s2:=inv5+inv4;
 Writeln(s2);
 Writeln(inv1);
 goto L;
 End;
 
 if a>b then x1:=b/a + 61
 else if a=b then x1:=-5
 else if a<b then x1:=(b-a)/b
 else
 Begin
 s3:=inv2+inv1;
 Writeln(s3);
 goto L1;
 End;
 
 x:=trunc(x1);
 Writeln('x=',x);
 Writeln('Опять?(y/n)');
 Readln(ch);
 Until (ch='n') or (ch='N');
 end.

@thyrex · 10.12.2021, 16:59

Pascal
1
x:=trunc(x1);

так и должно быть?

@Влад 0424 · 12.12.2021, 21:26 **[ТС]**

Да, так и должно быть

@thyrex · 12.12.2021, 22:15

Ну тогда при a>b и будет всегда ответ 61. Все остальные случаи работают корректно

@Влад 0424 · 12.12.2021, 22:48 **[ТС]**

Так при любых значениях получается 61, так точно правильно?

@thyrex · 13.12.2021, 00:39

Программа, предложенная Вами, выдает у меня 61 только в случае a>b.

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .

@Влад 0424 0 / 0 / 0 Регистрация: 05.10.2021 Сообщений: 6
	12.12.2021, 21:26 [ТС]
	Да, так и должно быть 0

@thyrex 14450 / 7489 / 1582 Регистрация: 06.09.2009 Сообщений: 27,133
	12.12.2021, 22:15
	Ну тогда при a>b и будет всегда ответ 61. Все остальные случаи работают корректно 0

@Влад 0424 0 / 0 / 0 Регистрация: 05.10.2021 Сообщений: 6
	12.12.2021, 22:48 [ТС]
	Так при любых значениях получается 61, так точно правильно? 0

@thyrex 14450 / 7489 / 1582 Регистрация: 06.09.2009 Сообщений: 27,133
	13.12.2021, 00:39
	Программа, предложенная Вами, выдает у меня 61 только в случае a>b. 0