Статистика
Всего в нашей базе более 4 326 128 вопросов и 6 444 097 ответов!

РЕШИТЕ ПОЖАЛУЙСТА!!! Сформировать массив множителей заданного числа. Язык программирования - паскаль.ПОМОГИТЕ, ПОЖАЛУЙСТА!!! дана матрица

5-9 класс

B(4,3). Заменить отрицательные элементы произведением положительных элементов. Языка программирования - паскаль.

Valyshazayc 09 марта 2015 г., 23:01:41 (4 года назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
19анастасия96
10 марта 2015 г., 0:56:17 (4 года назад)

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)

и прошу не используйте интернет, а напишите сами по возможности.

Зачем нужно изучать ПАСКАЛЬ?
Помогите пожалуйста)

Нужно составить программу (в паскаль),которая бы высчитывала значение следующего выражения....

Читайте также

Язык Паскаль.

№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" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.