Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Мария96
0 / 0 / 0
Регистрация: 18.04.2013
Сообщений: 6
1

Составить программу нахождения корня квадратного разности max и min чисел

24.05.2013, 12:42. Просмотров 514. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
Program 
Var a,b,s:real;
Begin
Readln (max,min,s);
Of a>b then writeln (a=max);
Else writeln (a=min)
If b>a then writeln (b=max)
Elsewriteln (b=min);
S:=sqrt(max-min);
Writeln(s:= znachenie funkcii');
End.
Прога вроде норм, но при вбивании чисел не работает.провертье плиз. Прога нужна в пасакле
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.05.2013, 12:42
Ответы с готовыми решениями:

написать программу на Паскале нахождения u=max(a,b,c)-min(a,b,c)
Помогите написать программу очень надо Найти u=max(a,b,c)-min(a,b,c)

Составить программу для нахождения разности двух натуральных чисел без использования знака "-"
Добрый день, очень нужна помощь с двумя задачами для экзамена что то никак с ними разобраться не...

Составить схему алгоритма и программу определения корня квадратного значений элементов массива
Составить схему алгоритма и программу определения корня квадратного значений элементов массива D и...

Составить программу определения значения max и min элементов
Прграмма:"Дан трёх мерный массив A(3,2,4).Составить программу определения значения max и min...

Составить программу для нахождения корня уравнения методом итерации
Составить программу для нахождения корня уравнения методом итерации с точностью ε=0,001....

1
Striker
SausageFlat
240 / 219 / 154
Регистрация: 19.08.2012
Сообщений: 499
Записей в блоге: 1
24.05.2013, 12:55 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
function koren(const a, b: integer): real;
var
  max, min: integer;
begin
  if a > b then begin max := a; min := b; end
  else begin max := b; min := a; end;
  
  koren := sqrt(max - min);
  
end;
 
var
  a, b: integer;
 
begin
  Readln(a, b);
  Writeln('Корень разности = ', koren(a, b));
end.
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.05.2013, 12:55

Нахождение разности между max и min элементами одномерного массива
Люди добрые помогите пожалуйста решить задачу: Составить программу нахождения разности между max...

Дан трёхмерный массив A(3,2,4).Составить программу определения значения max и min элементов и их координат.
Дан трёхмерный массив A(3,2,4).Составить программу определения значения max и min элементов и их...

написать программу нахождения максимольного среди min(a,b) и min(c,d). Не используя function
В задаче нужно найти max{min(a,b),min(c,d)}. Не пойму как нужно прописать в программе эти...


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

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

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