Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Поиск максимального элемента в матрице https://www.cyberforum.ru/ pascalabc/ thread680563.html
Надо написать матрицу 3х5 заполнить ее датчиком случайных чисел, вывести на экран, а потом вывести на экран максимальный элемент матрицы, а так же его значение и позицию в матрице. Половину программы написал, но не могу вывести максимальный элемент и его индекс. Напишите строки где идет поиск максимального элемента.
Pascal ABC По заданной блок-схеме составить программу
Помогите по заданной блок-схеме составить программу Вот ссылка на задание http://imagehost.spark-media.ru/i4/796D8EF1-3B27-491D-3643-1EF29E98D20E.jpgИзображения загружайте на форум в виде вложений.
Pascal ABC Все возможные кобинации из 1,2,3 типо 111 112 123 223 Как составить? покажите пример, с меня спасибо https://www.cyberforum.ru/ pascalabc/ thread680450.html Pascal ABC Вывести элементы массива в обратном порядке Всем привет, Конец четверти и учитель задала 5 задач. Помогите решить хотя бы парочку, буду очень благодарен) https://www.cyberforum.ru/ pascalabc/ thread680442.html
Вывести на экран первые пять квадратов четных чисел Pascal ABC
Вывести на экран первые пять квадрата всех четных чисел от 1 до n, увеличивая шаг на 2
Pascal ABC Определить во сколько раз факториал числа n больше числа m https://www.cyberforum.ru/ pascalabc/ thread680419.html
Определить во сколько раз факториал числа n больше числа m
Pascal ABC Найти наименьшее значение функции y=sinx/1+x Найти наименьшее значение функции y=sinx/1+x https://www.cyberforum.ru/ pascalabc/ thread680408.html Pascal ABC Массивы - замена элемента, нахождение нового массива и максимального элемента
Если не затруднит, помогите, пожалуйста, написать программу на Паскале. Задание: Дана матрица А(5,5) - заполнить генератором случайных чисел. Найти новый одномерный массив С из произведений элементов каждой строки матрицы А. Найти максимальный элемент среди положительных элементов матрицы А. Заменить третий элемент в 1-й строке матрицы А на найденный максимальный элемент. Я составил...
Pascal ABC Определить во сколько раз факториал числа n! больше факториала числа m! Определить во сколько раз факториал числа n! больше факториала числа m! https://www.cyberforum.ru/ pascalabc/ thread680360.html Pascal ABC Написать программу в которой определяется сумма всех целых чисел в интервале A до B Написать программу в которой определяется сумма всех целых чисел в интервале A до B https://www.cyberforum.ru/ pascalabc/ thread680358.html
Pascal ABC Вести первые пять нечетных чисел при этом i увеличивать на два
Вести первые пять нечетных чисел при этом i увеличивать на два
Pascal ABC Вывести число дней в заданном году Дан номер некоторого года(положительное целое число).Вывести число дней в этом году , учитывая,что обычный год насчитывает 365 дней,а високосный-366 дней.Високосным считается год,делящийся на 4,за исключением тех годов ,которые делятся на 100 и неделятся на 400. https://www.cyberforum.ru/ pascalabc/ thread680236.html
272 / 188 / 173
Регистрация: 06.06.2012
Сообщений: 322
26.10.2012, 03:37 0

Заполнить массив различными натуральными числами, квадраты которых заканчиваются данным числами. - Pascal ABC - Ответ 3611040

26.10.2012, 03:37. Показов 2791. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Maria_Добрая как решение

Решение

Выбери какой из них правильный, 2 варианта сделал
В первом просто выводит те числа которые удовлетворяют твоему правилу.
Во втором варианте случайно заполняется массив и из него выбираются те элементы, которые удовлетворяют правилу, если нет выводит соответствующее сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
const
  n = 1000;
 
type
  mas = array [1..n] of integer;
 
var
  a, b: mas;
  i, j, k: integer;
 
procedure random_mas(var b: mas);
var
  i: integer;
begin
  for i := 1 to n do 
  begin
    b[i] := i;
  end;
  for i := 1 to n do 
  begin
    if b[i] > 100 then 
    begin
      if b[i] div 10 = sqr(b[i] div 10) mod 100 then 
      begin 
        j := j + 1; 
        a[j] := b[i] div 10; 
      end; 
        end else
        if b[i] < 10 then 
        if ((sqr(b[i]) mod 10)) = b[i] then 
        begin 
          j := J + 1; 
          a[j] := b[i]; 
      end; 
      end;  end;
 
procedure print_mas(b: mas);
var
  i: integer;
begin
  for i := 1 to 10 do
    write(b[i], ' ');
  writeln;
end;
 
begin
  random_mas(b);
  k := 0;
  for i := 1 to j do 
  begin
    if (a[i] <> a[i + 1]) then 
    begin  
      write(a[i], ' '); end; end;
end.

Второй вариант..)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
const
  n = 10;
 
type
  mas = array [1..n] of integer;
 
var
  a, b: mas;
  i, j: integer;
 
procedure random_mas(var b: mas);
var
  i: integer;
begin
  for i := 1 to n do 
  begin
    b[i] := random(1000);
  end;
  for i := 1 to n do 
  begin
    if b[i] > 100 then 
    begin
      if b[i] div 10 = sqr(b[i] div 10) mod 100 then 
      begin
        j := j + 1; 
        a[j] := b[i] div 10; 
      end; 
    end else
    if b[i] < 10 then 
      if (sqr(b[i]) mod 10) = b[i] then 
      begin
        j := J + 1; 
        a[j] := b[i];  
      end; 
  end;
  
end;
 
procedure print_mas(b: mas);
var
  i: integer;
begin
  for i := 1 to n do
    write(b[i], ' ');
  writeln;
end;
 
begin
  random_mas(b);
  writeln('Случайный массив:');
  print_mas(b);
  writeln('Массив из элеметов удовлетворяющих правилу:'); writeln;
  if j = 0 then writeln('Таких нет, попробуйте снова:)') else
    for I := 1 to j do
      write(a[i], ' ');
end.


Вернуться к обсуждению:
Заполнить массив различными натуральными числами, квадраты которых заканчиваются данным числами. Pascal ABC
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.10.2012, 03:37
Готовые ответы и решения:

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

Заполнить массив первыми N натуральными числами
Напишите подпрограмму, которая заполняет массив первыми N натуральными числами. Размер массива...

Заполнить массив первыми натуральными 4-значными числами, у которых сумма четных цифр больше суммы нечетных
Дано неотрицательное число N - количество элементов массива (N&lt;=100) Заполнить массив первыми...

Заполнить массив натуральными числами от 1 до n
Помогите реализовать программу. В массивах полный ноль): Заполнить массив натуральными числами от...

1
26.10.2012, 03:37
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.10.2012, 03:37
Помогаю со студенческими работами здесь

Заполнить массив натуральными числами в порядке убывания
Дан массив из 100 элементов. Необходимо заполнить первые n из них первыми n натуральными числами в...

Заполнить массив из N элементов последовательными натуральными числами
Напишите программу, которая заполняет массив из N элементов последовательными натуральными числами,...

Заполнить массив двадцатью первыми натуральными числами
Заполнить массив двадцатью первыми натуральными числами, делящимися нацело 13 или на 17 и...

Заполнить массив различными числами Армстронга
Заполнить массив различными числами Армстронга. Числом Армстронга называют натуральное n-цифровое...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru