Даны три различных действительных числа. Найти два числа, модуль разности которых имеет наибольшее/наименьшее значение

@sarattsevd · Регистрация: 06.03.2013

Я сижу на экзамене по Информатике и запутался.

Данно задание

Даны три различных действительных числа. Найти среди них два числа, модуль разности которых имеет: наибольшее значение, наименьшее значение.

И ЧТО НУЖНО СДЕЛАТЬ:
Разветвляющиеся алгоритмические структуры
Цель работы
Научиться строить разветвляющиеся алгоритмы, записывать алгоритмы в виде блок-схемы и на алгоритмическом языке.
Задание к лабораторной работе
По результатам работы необходимо в отчёте привести алгоритм в виде блок-схемы и на алгоритмическом языке, а также привести контрольный пример, демонстрирующий выполнение алгоритма (форма отчёта приведена ниже).

@Puporev · 06.03.2013, 12:40

Pascal

uses crt;
var a,b,c,max,min:real;
    k:byte;
begin
clrscr;
writeln('Введите 3 действительных числа');
readln(a,b,c);
if abs(a-b)>abs(a-c) then
 begin
  k:=1;
  max:=abs(a-b);
 end
else
 begin
  k:=2;
  max:=abs(a-c);
 end;
if abs(b-c)>max then k:=3;
writeln('Максимальный модуль разности имеют числа');
if k=1 then writeln('a=',a:0:2,' b=',b:0:2)
else if k=2 then writeln('a=',a:0:2,' c=',c:0:2)
else writeln('b=',b:0:2,' c=',c:0:2);
if abs(a-b)<abs(a-c) then
 begin
  k:=1;
  min:=abs(a-b);
 end
else
 begin
  k:=2;
  min:=abs(a-c);
 end;
if abs(b-c)<min then k:=3;
writeln('Минимальный модуль разности имеют числа');
if k=1 then writeln('a=',a:0:2,' b=',b:0:2)
else if k=2 then writeln('a=',a:0:2,' c=',c:0:2)
else writeln('b=',b:0:2,' c=',c:0:2);
readln
end.

@sarattsevd · 06.03.2013, 12:46 **[ТС]**

мне не на Паскале нужно(((
а на простом алгоритмическом языке

@Puporev · 06.03.2013, 12:47

Так нахрена в Паскаль лезешь?

@Puporev · 06.03.2013, 12:49

На блок-схему.

@sarattsevd · 06.03.2013, 12:53 **[ТС]**

говорил же что на экзамене сижу( не успел нужную тему найти

@sarattsevd 0 / 0 / 0 Регистрация: 06.03.2013 Сообщений: 8
		1
	Даны три различных действительных числа. Найти два числа, модуль разности которых имеет наибольшее/наименьшее значение 06.03.2013, 12:08. Показов 7682. Ответов 5 Метки нет (Все метки) Я сижу на экзамене по Информатике и запутался. Данно задание Даны три различных действительных числа. Найти среди них два числа, модуль разности которых имеет: наибольшее значение, наименьшее значение. И ЧТО НУЖНО СДЕЛАТЬ: Разветвляющиеся алгоритмические структуры Цель работы Научиться строить разветвляющиеся алгоритмы, записывать алгоритмы в виде блок-схемы и на алгоритмическом языке. Задание к лабораторной работе По результатам работы необходимо в отчёте привести алгоритм в виде блок-схемы и на алгоритмическом языке, а также привести контрольный пример, демонстрирующий выполнение алгоритма (форма отчёта приведена ниже). 0

@sarattsevd 0 / 0 / 0 Регистрация: 06.03.2013 Сообщений: 8
	06.03.2013, 12:46 [ТС]	3
	мне не на Паскале нужно((( а на простом алгоритмическом языке 0

@Puporev Почетный модератор 64276 / 47575 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	06.03.2013, 12:47	4
	Так нахрена в Паскаль лезешь? 0

@Puporev Почетный модератор 64276 / 47575 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	06.03.2013, 12:49	5
	На блок-схему. Миниатюры 1

@sarattsevd 0 / 0 / 0 Регистрация: 06.03.2013 Сообщений: 8
	06.03.2013, 12:53 [ТС]	6
	говорил же что на экзамене сижу( не успел нужную тему найти 0

Опции темы