Отладка программы

@Xleborezka · Регистрация: 19.06.2011

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

Помогите отладить программу
Известен рост 3-х человек .Определите одинаков ли их рост

Pascal
1
2
3
4
5
6
7
8
Program name;
var a,b,c:integer;
writeln('zaday rost');
readln(a,b,c);
if (a=b)and(b=c)then writeln ('rosty ne ravny');
if(a>b)and(b>c)then writeln ('rosty ne ravny');
if(a<b)and(b<c)then writeln ('rosty ne ravny');
end.

@Jetu · 02.10.2011, 10:58

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
uses crt;
var a,b,c:integer;
begin
clrscr;
writeln('a');
readln(a);
writeln('b');
readln(b);
writeln('c');
readln(c);
if ((a=b)  and (b=c) ) then
writeln('Rost y vseh troih odinakov')
else
if ((a=b) and (a<>c) and (a>0) and (b>0)) then
writeln('Rost 2 lydei a i b odinakov')
else
if ((a=c) and (a<>b)) then
writeln('Rost 2 lydei a i c odinakov')
else
if ((b=c) and (b<>a)) then
writeln('Rost 2 lydei b i c odinakov')
else
if ((a<>b) and (b<>c) and (c<>a)) then
writeln('Rost vseh lydei raznii');
readln;
end.

@Xleborezka · 02.10.2011, 11:05 **[ТС]**

Сообщение от Jetu

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
uses crt;
var a,b,c:integer;
begin
clrscr;
writeln('a');
readln(a);
writeln('b');
readln(b);
writeln('c');
readln(c);
if ((a=b)  and (b=c) ) then
writeln('Rost y vseh troih odinakov')
else
if ((a=b) and (a<>c) and (a>0) and (b>0)) then
writeln('Rost 2 lydei a i b odinakov')
else
if ((a=c) and (a<>b)) then
writeln('Rost 2 lydei a i c odinakov')
else
if ((b=c) and (b<>a)) then
writeln('Rost 2 lydei b i c odinakov')
else
if ((a<>b) and (b<>c) and (c<>a)) then
writeln('Rost vseh lydei raznii');
readln;
end.

А двойные скобки обязательно?

@Jetu · 02.10.2011, 11:07

нет не обязательны опять же так мне удобнее

@Xleborezka · 02.10.2011, 11:26 **[ТС]**

Спасибо)

Добавлено через 4 минуты

Сообщение от Xleborezka

(a<>c)

Что значит?

@Jetu · 02.10.2011, 11:38

Сообщение от Xleborezka

Спасибо)

Добавлено через 4 минуты

Что значит?

а не равно с

@Xleborezka · 02.10.2011, 11:52 **[ТС]**

http://tempfile.ru/view/10274/... d9e4b1.jpg
Посмотри в чем ошибка?

Сообщение от Xleborezka

a>0) and (b>0)

Зачем это указывать?

Добавлено через 7 минут
Одну ошибку нашел )
Не написал readln
Осталась синтаксическая ошибка(

@Jetu · 02.10.2011, 12:15

Сообщение от Xleborezka

http://tempfile.ru/view/10274/... d9e4b1.jpg
Посмотри в чем ошибка?

Зачем это указывать?

Добавлено через 7 минут
Одну ошибку нашел )
Не написал readln
Осталась синтаксическая ошибка(

если ты введешь отрицательные числа
хотя не т можешь это не писать ну что a>0
после else ставь if ну как у меня

Добавлено через 15 минут
а + если ты не написал readln это не ошибка просто для просмотра результата тебе надо нажать Debug - User screen т.е. сочетание клавиш Alt + F5

@Xleborezka · 02.10.2011, 12:56 **[ТС]**

http://tempfile.ru/view/10274/... 73d8df.jpg
Исправил,а ошибка осталась(

@I2um1 · 02.10.2011, 13:04

Сообщение от Xleborezka

Исправил,а ошибка осталась(

Поменяй местами 3-ю и 4-ю строчку в коде у себя.

@Jetu · 02.10.2011, 13:08

readln пишется после begin

@Xleborezka · 02.10.2011, 13:40 **[ТС]**

спасибо)

Добавлено через 28 минут
http://tempfile.ru/view/10274/... 6b643d.jpg
В чем ошибка?
Надо найти сумму двух наибольших из 3 чисел.

@I2um1 · 02.10.2011, 13:42

В 6-ой, 7-ой, 8-ой строке пропущен ; между уравнением и writeln
В 8-ой строке неправильно написан writeln
И напиши после:

Pascal
1
readln(x);

Строку:

Pascal
1
readln(a,b,c);

@Xleborezka · 02.10.2011, 13:47 **[ТС]**

Спасибо

Новые блоги и статьи Все статьи Все блоги /
Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .

@Jetu касаткО 51 / 51 / 4 Регистрация: 01.10.2011 Сообщений: 227
	02.10.2011, 11:07
	нет не обязательны опять же так мне удобнее 1

@Xleborezka 6 / 6 / 0 Регистрация: 19.06.2011 Сообщений: 231
	02.10.2011, 12:56 [ТС]
	http://tempfile.ru/view/10274/... 73d8df.jpg Исправил,а ошибка осталась( 0

@Jetu касаткО 51 / 51 / 4 Регистрация: 01.10.2011 Сообщений: 227
	02.10.2011, 13:08
	readln пишется после begin 1

@Xleborezka 6 / 6 / 0 Регистрация: 19.06.2011 Сообщений: 231
	02.10.2011, 13:40 [ТС]
	спасибо) Добавлено через 28 минут http://tempfile.ru/view/10274/... 6b643d.jpg В чем ошибка? Надо найти сумму двух наибольших из 3 чисел. 0

@Xleborezka 6 / 6 / 0 Регистрация: 19.06.2011 Сообщений: 231
	02.10.2011, 13:47 [ТС]
	Спасибо 0