Массивы. Найдите элементы целочисленного массива, кратные а и некратный b.

@Skif-N1 · Регистрация: 26.11.2012

Студворк — интернет-сервис помощи студентам

Заданы два простых числа a и b. Найдите элементы целочисленного массива, кратные а и некратный b. Размерность массива 100. Заполнение массива осуществить случайными числами от 1 до 30.

Добавлено через 4 часа 19 минут
Поправьте что не так? Она работает правильно, вот оформление мне что-то не нравится

Код

program Massiv;
uses crt;
var m:array [1..100] of integer;
i,a,b:integer;
begin
  clrscr;
  randomize;
  writeln;
 For i:=1 to 100 do begin
    m[i]:=random(30);
    write(m[i]:4);
    end;
    writeln;
    {Массив}
  writeln ('Введите число "A" и "B"');
 readln (a,b);
 writeln ('Числа кратные "',a,'" и не кратные "',b,'"');
 For i:=1 to 100 do begin
 If (m[i] mod a=0) and (m[i] mod b<>0) then
 writeln (m[i]:4)
 end;
 writeln;
 {Здесь определяли кратность элементов массива}
    readln;
    end.

@orange_rush · 26.11.2012, 22:14

Попробуй мою -)

Pascal

uses crt;
const n=100;
var
        counter,i,a,b: integer;
        mas: array [1..n] of byte;
        v1,v2,onlyA,onlyB,AandB,NotAB: boolean;
begin
   repeat
        writeln;
        onlyA:=false;onlyB:=false;AandB:=false;NotAB:=false;
        a:=random(100)+30; b:=random(100)+30;
        textcolor(14);write('a = ',a);textcolor(3);writeln('; b = ',b);
        writeln;
        for i:=1 to n do begin
                textcolor(8);
                mas[i]:=random(9)+2;
                v1:=a mod mas[i]=0;
                v2:=b mod mas[i]=0;
                if v1 and v2 then begin
                        textcolor(12); write(mas[i]:4); AandB:=true;
                end;
                if v1 and not v2 then begin
                        textcolor(14); write(mas[i]:4); onlyA:=true;
                end;
                if not v1 and v2 then begin
                        textcolor(3); write(mas[i]:4); onlyB:=true;
                end;
                if not v1 and not v2 then begin
                        textcolor(8); write(mas[i]:4); NotAB:=true;
                end;
        end;
        writeln;
        if onlyA then begin
                textcolor(14); writeln('kratnye tolko A');
        end;
        if OnlyB then begin
                textcolor(3); writeln('kratnye tolko B');
        end;
        if AandB then begin
                textcolor(12); writeln('kratnye A i B odnovremenno');
        end;
        if NotAB then begin
                textcolor(8);
                writeln('dlya A i B net kratnih');
        end;
        textcolor(7);
        writeln('PRESS ENTER');
        readln;
        delay(100);
 until false;
end.

Kodzaev · 26.11.2012, 22:15

10 строчка

Pascal

1	m[i]:=Random(30)+1;

20 строчка

Pascal

1	Write(m[i]:4);

@Skif-N1 · 26.11.2012, 22:47 **[ТС]**

Сложновато для новичка... Но спасибо, некоторые параметры пригодятся

Добавлено через 1 минуту

Сообщение от Kodzaev

10 строчка

Pascal

1	m[i]:=Random(30)+1;

А зачем Random(30)+1??? Точнее сам "+1"?

Kodzaev · 26.11.2012, 22:56

Смотри, у тебя в задании написано

Сообщение от Skif-N1

случайными числами от 1 до 30

т.е. [1..30] включительно. В твоей же программе генерируются числа от 0 до 29.
Функция Random(n) возвращает число от 0 до n-1.

Сообщение от Skif-N1

А зачем Random(30)+1??? Точнее сам "+1"?

Допустим функция сгенерирует число 0.
0+1=1. Таким образом число входит в нужный диапазон.
Допустим функция сгенерирует число 29.
29+1=30
Таким образом условие соблюдается.
Знаю, что не очень доходчиво объяснил, но постарайся понять. И почитай где-нибудь про Random. Хотя бы во встроенном хелпе Паскаля. Удачи!

@Skif-N1 · 26.11.2012, 23:04 **[ТС]**

Сообщение от Kodzaev

Знаю, что не очень доходчиво объяснил, но постарайся понять. И почитай где-нибудь про Random. Хотя бы во встроенном хелпе Паскаля. Удачи!

Спасибо

Всё доходчиво)))

@Skif-N1 1 / 1 / 1 Регистрация: 26.11.2012 Сообщений: 24
		1
	Массивы. Найдите элементы целочисленного массива, кратные а и некратный b. 26.11.2012, 22:07. Показов 849. Ответов 5 Метки нет (Все метки) Заданы два простых числа a и b. Найдите элементы целочисленного массива, кратные а и некратный b. Размерность массива 100. Заполнение массива осуществить случайными числами от 1 до 30. Добавлено через 4 часа 19 минут Поправьте что не так? Она работает правильно, вот оформление мне что-то не нравится Код program Massiv; uses crt; var m:array [1..100] of integer; i,a,b:integer; begin clrscr; randomize; writeln; For i:=1 to 100 do begin m[i]:=random(30); write(m[i]:4); end; writeln; {Массив} writeln ('Введите число "A" и "B"'); readln (a,b); writeln ('Числа кратные "',a,'" и не кратные "',b,'"'); For i:=1 to 100 do begin If (m[i] mod a=0) and (m[i] mod b<>0) then writeln (m[i]:4) end; writeln; {Здесь определяли кратность элементов массива} readln; end. 0

Kodzaev 3030 / 1916 / 1649 Регистрация: 30.04.2011 Сообщений: 3,060
	26.11.2012, 22:56	5
	Смотри, у тебя в задании написано Сообщение от Skif-N1 случайными числами от 1 до 30 т.е. [1..30] включительно. В твоей же программе генерируются числа от 0 до 29. Функция Random(n) возвращает число от 0 до n-1. Сообщение от Skif-N1 А зачем Random(30)+1??? Точнее сам "+1"? Допустим функция сгенерирует число 0. 0+1=1. Таким образом число входит в нужный диапазон. Допустим функция сгенерирует число 29. 29+1=30 Таким образом условие соблюдается. Знаю, что не очень доходчиво объяснил, но постарайся понять. И почитай где-нибудь про Random. Хотя бы во встроенном хелпе Паскаля. Удачи! 1

@Skif-N1 1 / 1 / 1 Регистрация: 26.11.2012 Сообщений: 24
	26.11.2012, 23:04 [ТС]	6
	Сообщение от Kodzaev Знаю, что не очень доходчиво объяснил, но постарайся понять. И почитай где-нибудь про Random. Хотя бы во встроенном хелпе Паскаля. Удачи! Спасибо Всё доходчиво))) 0

Опции темы