Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 17.11.2012
Сообщений: 39
1

Вычислить значение выражения

17.11.2012, 22:32. Просмотров 988. Ответов 3
Метки нет (Все метки)

Всем привет помогите решить задачку пожалуйста.

Даны действительные числа a1...a20. Найти сумму значений |ai-aj|
(1<=i<j<=20) и распечатать

Заранее спасибо)
0
Миниатюры
Вычислить значение выражения  
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.11.2012, 22:32
Ответы с готовыми решениями:

Вычислить значение выражения
Написать это выражение на FP. Надо разбивать выражение на отдельные переменные и записывать его по...

Вычислить значение выражения
С клавиатуры вводится значение переменных X1 и X2 типа REAL, и R1 и R2 типа BYTE. Необходимо...

Вычислить значение выражения
Не знаю как написать программу по этой формуле

Вычислить значение выражения
Ребята помогите,очень надо!!! Максим_макс, обращаю Ваше внимания на правила форума: 1....

3
0 / 0 / 0
Регистрация: 17.11.2012
Сообщений: 39
21.11.2012, 18:34  [ТС] 2
ну помогите кто-нибудь(
0
142 / 148 / 116
Регистрация: 15.11.2012
Сообщений: 535
Записей в блоге: 2
21.11.2012, 18:50 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var
a: array[1..20] of real;
i,j,k: byte;
r: real;
BEGIN
   clrscr;
   writeln('исходный массив: ');
   for i:=1 to 20 do begin
      a[i]:=random(11)/3.8;
      write(a[i]:4:2,' ');
   end;
   writeln;
   writeln('с какого элемента по какой сложить? через пробел: ');
   readln(i,j);
   for k:=i to j do r:=r+a[k];
   writeln(r:4:2);
   readln();
END.
1
0 / 0 / 0
Регистрация: 17.11.2012
Сообщений: 39
23.11.2012, 13:11  [ТС] 4
Спасибочки =****
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.11.2012, 13:11

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Вычислить значение выражения
Программирование циклических процедур y=0.05cos(x+1) интервал:отрезок: шаг pi/8...

Вычислить значение выражения
Задано вещественное значение аргумента х. Вычислите значение функции у: y=\begin{cases}cos^2x +...

Вычислить значение выражения
Составить программу, которая, сформировав с помощью датчика случайных чисел одномерный массив...

Вычислить значение выражения
Добрый День!!! Как можно записать выражение в Free Pascal? log_3(2^x-5)+log_3(2^x-7)=1


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

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

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