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

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

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

Помогите отладит программу

Составьте программу нахождения суммы двух наибольших из 3-х различных чисел

Pascal
1
2
3
4
5
6
7
8
program name;
var a,b,c,x:integer;
writeln('zaday chisla');
readln(x);
if (a>c)and(c>b)then begin x:=a+c;writeln('x=',x:0:2);end;
if (a>b)and(b>c)then begin x:=a+b;writeln('x:=',x:0:2);end;
if(b>c)and(c>a)then begin x:=b+c;writeln ('x=',x:0:2);end;
end.

@I2um1 · 02.10.2011, 09:23

Pascal
1
2
3
4
5
6
7
8
9
program name;
var a,b,c:integer;
begin
writeln('zaday chisla');
readln(a,b,c);
if (a>=b)and(c>=b)then writeln('a=',a,', c=',c)
else if (a>=c)and(b>=c)then writeln('a=',a,', b=',b)
else if(b>=a)and(c>=a)then writeln('b=',b,', c=',c);
end.

@Xleborezka · 02.10.2011, 10:10 **[ТС]**

Сообщение от Blood-Angel

Pascal
1
2
3
4
5
6
7
8
9
program name;
var a,b,c:integer;
begin
writeln('zaday chisla');
readln(a,b,c);
if (a>=b)and(c>=b)then writeln('a=',a,', c=',c)
else if (a>=c)and(b>=c)then writeln('a=',a,', b=',b)
else if(b>=a)and(c>=a)then writeln('b=',b,', c=',c);
end.

Программа суммы не найдет(

@Jetu · 02.10.2011, 10:23

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
uses crt;
var a,b,c,x:real;
begin
clrscr;
writeln('a');
readln(a);
writeln('b');
readln(b);
writeln('c');
readln(c);
x:=0;
if ((a>c) and (b>c)) then
begin
x:=a+b;
writeln('x = ',x);
end
else
if ((a>b) and (c>b)) then
begin
x:=a+c;
writeln('x = ',x);
end
else
if ((b>a) and (c>a)) then
begin
x:=b+c;
writeln('x = ',x);
end;
readln;
end.

все должно работать вроде проверил )

@Xleborezka · 02.10.2011, 10:30 **[ТС]**

Сообщение от 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
27
28
29
30
uses crt;
var a,b,c,x:real;
begin
clrscr;
writeln('a');
readln(a);
writeln('b');
readln(b);
writeln('c');
readln(c);
x:=0;
if ((a>c) and (b>c)) then
begin
x:=a+b;
writeln('x = ',x);
end
else
if ((a>b) and (c>b)) then
begin
x:=a+c;
writeln('x = ',x);
end
else
if ((b>a) and (c>a)) then
begin
x:=b+c;
writeln('x = ',x);
end;
readln;
end.

все должно работать вроде проверил )

Спасибо,но нам еще не объясняли такие операторы.
Можешь написать используя только условный оператор if,else,then)

@Jetu · 02.10.2011, 10:33

ну а я только и использую if else then только просто вложенный

@Xleborezka · 02.10.2011, 10:36 **[ТС]**

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

uses crt;
var a,b,c,x:real;
begin
clrscr;
writeln('a');
readln(a);
writeln('b');
readln(b);
writeln('c');
readln(c);
x:=0;

Мне не понятно начало,объясни?

@Puporev · 02.10.2011, 10:36

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program name;
var a,b,c,mn,s:integer;
begin
writeln('Введите  3 целых числа:');
readln(a,b,c);
mn:=a;//найдем минимальное
if b<mn then mn:=b;
if c<mn then mn:=c;
s:=a+b+c-mn;//вычтем его из суммы
write('Сумма двух наибольших=',s);
readln
end.

@Jetu · 02.10.2011, 10:40

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

Мне не понятно начало,объясни?

вводим переменные a b c с клавиатуры в writeln ты можешь что угодно написать

Добавлено через 2 минуты
Puporev, мне кажется лучше real использовать

@Xleborezka · 02.10.2011, 10:41 **[ТС]**

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

clrscr;

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

x:=0;

Поясни две вот эти строчки)

@Puporev · 02.10.2011, 10:41

У автора темы integer, я оставил.

@Jetu · 02.10.2011, 10:44

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

Поясни две вот эти строчки)

clrscr очищаем экран это не обязательно делать но мне просто так удобно
x:= 0 это мы присваиваем переменной x значение 0 но это тоже не обязательно )

@Xleborezka · 02.10.2011, 10:45 **[ТС]**

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

clrscr очищаем экран это не обязательно делать но мне просто так удобно
x:= 0 это мы присваиваем переменной x значение 0 но это тоже не обязательно )

Спасибо)

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@Jetu касаткО 51 / 51 / 4 Регистрация: 01.10.2011 Сообщений: 227
	02.10.2011, 10:33
	ну а я только и использую if else then только просто вложенный 1

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	02.10.2011, 10:41
	У автора темы integer, я оставил. 1