Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Stein0
0 / 0 / 0
Регистрация: 05.06.2011
Сообщений: 20
1

Нужно отредактировать неправильный вывод

16.06.2011, 20:18. Просмотров 816. Ответов 5
Метки нет (Все метки)

Введите три числа с клавиатуры,смените цвет фона экрана и выведите числа в центре экрана их квадраты в порядке убывания---вот задание
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
var a,b,c,d,e,r:integer;
begin
writeln('vvod 3 4isel');
readln(a,b,c);
textbackground(3);
a:=sqr(a);
b:=sqr(b);
c:=sqr(c);
d:=a; e:=b;
if b>d then b:=d;
if c>d then c:=d;
if a<e then a:=e;
if c<e then c:=e;
if(a>e) and(a<d) then r:=a;
if(b>e) and (b<d) then r:=b;
if (c>e) and (c<d) then r:=c;
gotoxy (20,20);
writeln(d);
writeln(r);
writeln(e);
readln;
end.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.06.2011, 20:18
Ответы с готовыми решениями:

Неправильный вывод второго массива
Добрый день! Подскажите пожалуйста, почему программа выводит во втором массиве...

Неправильный вывод.
Подскажите пожалуйста почему выводятся одни нули. Заранее благодарю. program...

Неправильный вывод. (записи)
1) Известны данные о 16 сотрудниках фирмы: фамилия, возраст и отношение к...

Неправильный парсинг строки и неправильный её вывод
Добрый день! Столкнулся с непонятным поведением парсера: На вход подается...

Нужно отредактировать код
Прошу помощи,очень нужно сделать сегодня) Смысл задачи: вычисление выражения в...

5
Puporev
Модератор
55478 / 42579 / 29428
Регистрация: 18.05.2008
Сообщений: 100,728
16.06.2011, 20:20 2
Цитата Сообщение от Stein0 Посмотреть сообщение
выведите числа в центре экрана их квадраты
Так числа или квадраты или то и другое?
0
Stein0
0 / 0 / 0
Регистрация: 05.06.2011
Сообщений: 20
16.06.2011, 20:21  [ТС] 3
Цитата Сообщение от Puporev Посмотреть сообщение
Так числа или квадраты или то и другое?
ввод чисел
вывод их квадраты в порядке возрастания
0
Puporev
Модератор
55478 / 42579 / 29428
Регистрация: 18.05.2008
Сообщений: 100,728
16.06.2011, 20:41 4
Цитата Сообщение от Stein0 Посмотреть сообщение
их квадраты в порядке возрастания
А в первом посте вроде написано

Цитата Сообщение от Stein0 Посмотреть сообщение
их квадраты в порядке убывания
0
Stein0
0 / 0 / 0
Регистрация: 05.06.2011
Сообщений: 20
16.06.2011, 20:43  [ТС] 5
прошу прощения
да в убывание
0
Puporev
Модератор
55478 / 42579 / 29428
Регистрация: 18.05.2008
Сообщений: 100,728
16.06.2011, 20:55 6
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var a,b,c,d,e,r:integer;
begin
clrscr;
writeln('vvod 3 4isel');
readln(a,b,c);
if a<b then d:=a else d:=b;
if c<d then d:=c;
if a>b then e:=a else e:=b;
if c>e then e:=c;
r:=a+b+c-d-e;
a:=sqr(d);
b:=sqr(r);
c:=sqr(e);
textbackground(3);
textcolor(14);
clrscr;
gotoxy (35,13);
writeln(c,' ',b,' ',a);
readln
end.
1
16.06.2011, 20:55
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.06.2011, 20:55

Нужно отредактировать Эмблему
Требуется вместо надписи на эмблеме написать &quot;Immortal&quot; без кавычек, таким же...

Неправильный вывод
Добрый день. Изучаю MySQL и PHP и вот столкнулся с такой проблемой. Имеется...

неправильный вывод
добрый вечер) нашла в нете уроки по php,сначала установила денвер(вещь для меня...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru