Форум программистов, компьютерный форум, киберфорум
Наши страницы

Найти значение выражения - 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 часа...
C++ Получить удвоеную сумму всех положительных членов последовательности даны натуральное число n , действиетльные числа а1,....,an. Получить удвоеную сумму всех положительных членов последовательности а1 ..аn . на паскале сделал, теперь надо еще на С++ . Заранее... 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...
C++ Проверка ввода в с++ (целое/вещественное)
Здравствуйте, необходима помощь в написании программы! Необходимо использовать ввод значения с клавиатуры - про этом если в задаче используется тип " INT " - то программы должна пропускать только...
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), которая вычисляет количество элементов,... подробнее

Показать сообщение отдельно
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.



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