Форум программистов, компьютерный форум CyberForum.ru

Найти значение выражения - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Вычислить среднее и дисперсию http://www.cyberforum.ru/cpp-beginners/thread1715635.html
Даны действительные числа a1, ..., a15. Получить <br />\bar{a}=\frac 1{15}\sum_{i=1}^{15}a_i\,;\qquad s=\sqrt{\frac{\sum_{ i=1}^{15}\left(a_i-\bar{a} \right)^2}{14}}<br /> Добавлено через 2 часа 31 минуту хеелп... Добавлено через 23 часа 45 минут хелпп .. ребят . Добавлено через 2 часа 43 минуты
C++ Получить удвоеную сумму всех положительных членов последовательности даны натуральное число n , действиетльные числа а1,....,an. Получить удвоеную сумму всех положительных членов последовательности а1 ..аn . на паскале сделал, теперь надо еще на С++ . Заранее спасибо !!! Добавлено через 2 часа 35 минут хеелп... http://www.cyberforum.ru/cpp-beginners/thread1715628.html
C++ Вывод календаря
Подскажите пожалуйста, с чего начать написание такой программы? Sometimes it is of great importance to know which day of the week a given date will be. And we start searching for the nearest calendar. Being lucky we may find one. And find out that this one does not contain the date you need. What a pity! Thus you are asked to create a calendar that will be able to process any given date in the...
C++ Проверка ввода в с++ (целое/вещественное)
Здравствуйте, необходима помощь в написании программы! Необходимо использовать ввод значения с клавиатуры - про этом если в задаче используется тип " INT " - то программы должна пропускать только значения типа - "1" , "99" , "3212". т.е. только цифры. Столкнулся на форуме с решением моего вопроса, но там при вводе - "13.2.3.4." программа понимала как " INT " и записывала "13". Помогите...
C++ Задано натуральное число n . Написать программу вычисления значения выражения.Очень нада)Спасибо! http://www.cyberforum.ru/cpp-beginners/thread1715621.html
1+1/2+1/2^2+1/( 2^3 )+…+ 1/( 2^n ) Пользуйтсь редактором внизу страницы y=\sum_{i=0}^{n}\frac{1}{{2}^{i}}
C++ Использование рекурсивных функций Дан массив x, . . . , x, состоящий из целых чисел, и целое число y. Найти количество элементов массива x, равных y. Использовать рекурсивную функцию eq(k), которая вычисляет количество элементов, равных y, среди последних элементов массива x, начиная с k-го элемента. Помогите пожалуйста. подробнее

Показать сообщение отдельно
JiL777
0 / 0 / 0
Регистрация: 03.12.2015
Сообщений: 23
20.04.2016, 23:20  [ТС]     Найти значение выражения
const mi = 100;

type matrix = array [1..mi] of integer;

//генерація та ввід масиву
procedure gen_prn(s: string; var x: matrix; r: integer);
var i: integer;
begin
writeln('Масив ', s, ':');
for i := 1 to r do
begin
x[i] := random(50);
write(x[i]:4)
end;
writeln
end;

//знаходження мінімума та максимума
procedure min_max(var x: matrix; r: integer; d: integer; var t: integer);
var i: integer;
begin
t := x[1];
for i := 2 to r do
if d * x[i] > d * t
then t := x[i]
end;

//ввід розміру масиву
procedure inp_raz(s: string; var x: integer);
begin
repeat
write('Введіть розмір масиву ', s, ' (1..', mi, '): ');
readln(x)
until (x >= 1) and (x <= mi)
end;

var l, m, n, p, q: integer;
a, b, c: matrix;

begin
randomize;
inp_raz('A', n);
inp_raz('B', m);
gen_prn('A', a, n);
gen_prn('B', b, m);
gen_prn('C', c, 30);
min_max(a, n, -1, p);
if p > 10
then begin
min_max(b, m, -1, p);
min_max(c, 30, -1, q);
l := p + q
end
else begin
min_max(c, 30, 1, p);
l := 1 + p * p
end;
write('L = ', l);
end.



Вот ,я смог сделать на Паскале,
а на С++ не выходит почемуто.... нужно както переделать его((( я чайник
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru