сервис вопросов и ответовРЕШИТЕ ПОЖАЛУЙСТА!!! Сформировать массив множителей заданного числа. Язык программирования - паскаль.ПОМОГИТЕ, ПОЖАЛУЙСТА!!! дана матрица
5-9 класс|
|
B(4,3). Заменить отрицательные элементы произведением положительных элементов. Языка программирования - паскаль.
Valyshazayc
09 марта 2015 г., 23:01:41 (9 лет назад)
19анастасия96
10 марта 2015 г., 0:56:17 (9 лет назад)
var
a:array[1..1000] of integer;
n, i, j:integer;
flag:boolean;
begin
a[1] := 0;
write('n = '); readln(n);
for i := 2 to trunc(sqrt(n)) do
if n mod i = 0 then
begin
a[1] := i;
n := n div i;
break;
end;
if a[1] = 0 then
begin
writeln(n);
Exit;
end;
i := 1;
while n <> 1 do
begin
flag := false;
for j := a[i] to trunc(sqrt(n)) do
if n mod j = 0 then
begin
a[i + 1] := j;
inc(i);
n := n div j;
flag := true;
break;
end;
if (not flag) and (n <> 1) then
begin
a[i + 1] := n;
inc(i);
break;
end;
end;
//Вторая программа
const
m = 4;
n = 3;
var
a:array[1..m, 1..n] of integer;
i, j, Pr:integer;
begin
randomize;
Pr := 1;
Writeln('Исходный массив');
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := random(21) - 10;
if a[i, j] > 0 then
Pr := Pr * a[i, j];
write(a[i, j]:4, ' ');
end;
writeln;
end;
writeln;
writeln('Преобразованный массив');
for i := 1 to m do
begin
for j := 1 to n do
if a[i, j] < 0 then
write(Pr:8, ' ')
else
write(a[i, j]:8, ' ');
writeln;
end;
readln;
end.
for j := 1 to i do
write(a[j], ' ');
readln;
end.
Ответить
Другие вопросы из категории
Мы эту тему проходим бегло, а книги про Pascal у меня нет, так что помогите.
Записать в виде обычной математической формулы
1) y:=2*sin(x)*sqrt(x+sqrt(abs(x)))
2) y:=sqrt(sin(x)+sin(sqrt(x)))
3) y:=sqrt(abs(x-1)+sqrt(sin(x)))
информационный объем текста , набронного на комрьютере с использованием кодировки UNICODE (каждый символ кодируется 16 битами )-0,5Кб опрелелить
количество символов в тексте
2) рассчитайте объем одной книги (в килобитах) если одной строке помещается 60 символов, значит (объем одного символа 8 бит) на странице 40 таких строк . В книге 100 страниц
НАПИШИТЕ ПРОГРАММУ В ПАСКАЛЕ, СРОЧНО !!
написать программу, которая вычисляет среднее арифметическое ненулевых элементов массива M[1..100], элементы которого вычисляются по формуле M[i]=sin(i)*cos(i)
и прошу не используйте интернет, а напишите сами по возможности.
Помогите пожалуйста)
Нужно составить программу (в паскаль),которая бы высчитывала значение следующего выражения....
Читайте также
Дан массив целых чисел состоящий из 10 элементов вывести индексы тех элементов значение которых больше заданного числа А (А вводится с клавиатуры)
Язык программирования: Паскаль
Язык Паскаль.
№1 Дан массив, состоящий из n натуральных чисел. Образовать новый массив, элементами которого будут элементы исходного, оканчивающиеся на цифру k.
№2 Дан масив целых числ. Найти в этом массиве минимальный элмент m и максимальный M. Получить в порядке возрастания все целые числа из интервала (m;M), которые не входят в данный массив.
№3 Сформировать массив простых чисел , не больших заданного натурального числа N.
№4 Сформировать массив простых множителей заданного числа.
Люди очень срочно решите пожалуйста задачу на Паскале:
их 4 штуки!
1.дан массив тз N элементов. Есть ли в нем чётные элементы, которые кратны заданному числу K.
2. Дан массив из Nэлементов. Посчитать, сколько элементов массива равных минемальному.
3. Сформировать массив из Nэлементов: 10 12 16 22 30 40.
4. Дан массив из Nэлементов. Перемножить минемальные элементы на 2.
Heeelp!
Решите пожалуйста! 1. С клавиатуры вводятся числа, пока не будет введено число, делящееся на 5. Подсчитать количество и сумму тех, которые
больше 10.
2. Напечатать все делители заданного числа.
Это циклы,ршите в паскале!
Вы находитесь на странице вопроса "РЕШИТЕ ПОЖАЛУЙСТА!!! Сформировать массив множителей заданного числа. Язык программирования - паскаль.ПОМОГИТЕ, ПОЖАЛУЙСТА!!! дана матрица", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.