0 / 0 / 0
Регистрация: 25.12.2011
Сообщений: 39
1

Определить количество элементов последовательности натуральных чисел, кратных числу М

29.12.2011, 01:36. Показов 4504. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите плс! , вот задачи:
(Операторы цикла, одномерные массивы, двумерные массивы, символы и строки, файлы)
3. Определить количество элементов последовательности натуральных чисел, кратных числу М и заключенных в промежутке от L до N.
5. Дана целочисленная квадратная матрица. Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали.
6. Упорядочить по возрастанию элементы каждой строки матрицы размером п х т.
7. Дана строка, изображающая двоичную1|десятичную2 запись целого числа. Вывести строку, изображающую десятичную1|двоичную2 запись этого же числа.
9. Описать процедуру FileTo (Name)1| To File(Name)2, преобразующую [двоичный строковый]1|текстовый2 файл с именем Name в текстовый1|[двоичный строковый]2 файл с тем же именем. Используя эту процедуру, преобразовать два данных строковых1|текстовых2 файла с именами Name1 и Name2 в текстовые1|строковые2.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.12.2011, 01:36
Ответы с готовыми решениями:

Определить количество элементов последовательности натуральных чисел, кратных числу M и заключенных в промежутке от L до N.
Определить количество элементов последовательности натуральных чисел, кратных числу M и заключенных...

Определить количество элементов последовательности натуральных чисел, кратных числу M и заключенных в промежутке от L до N.
Определить количество элементов последовательности натуральных чисел, кратных числу M и заключенных...

В последовательности натуральных чисел определить количество чисел, кратных 6, и оканчивающихся на 0
Напишите программу, которая в последовательности натуральных чисел определяет количество всех...

Определить количество элементов последовательности натуральных чисел, кратных числу м и заключенных В промежутке от l до n
Определить количество элементов последовательности натуральных чисел, кратных числу м и заключенных...

3
--\.founder./--
565 / 565 / 392
Регистрация: 20.10.2011
Сообщений: 867
29.12.2011, 14:45 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от RMfan Посмотреть сообщение
6. Упорядочить по возрастанию элементы каждой строки матрицы размером п х т.
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
uses crt;
var a: array [1..100,1..100] of integer;
    n,i,j,k,buf: integer;
 
begin
randomize;
write ('Razmer matrizy ');
readln (n);
writeln ('Dana matriza');
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        a[i,j]:=random(21)-10;
        write (a[i,j]:5);
        end;
    writeln;
    end;
for i:=1 to n do
    begin
    For k:=1 to n do
          begin
          for j:=1 to n-1 do
              if a[i,j]>a[i,j+1] then
                 begin
                 buf:=a[i,j];
                 a[i,j]:=a[i,j+1];
                 a[i,j+1]:=buf;
                 end;
          inc(k);
          end;
    k:=0;
    end;
writeln ('Sortirovannaja matriza');
for i:=1 to n do
    begin
    for j:=1 to n do
        write (a[i,j]:5);
    writeln;
    end;
end.
0
0 / 0 / 0
Регистрация: 04.06.2012
Сообщений: 5
04.06.2012, 22:05 3
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
57
58
59
60
61
62
63
program Project6;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
        type massiv= array[1..5,1..4] of real ;
  var a:massiv;
  i,j,k:integer;
   r:real;
 
  procedure Zapolnenie(i,j:integer;  var a:massiv);
  var x:real;
 
begin
  { TODO -oUser -cConsole Main : Insert code here }
    randomize;
   for I := 1 to 5 do
     for j := 1 to 4 do 
begin   
   a[i,j]:=random(50);
    x:= random(17)-8;
a[i,j]:=x*x*x+1;
     end;
  end;
begin
  { TODO -oUser -cConsole Main : Insert code here }
 
     Zapolnenie(i,j,a);
        begin
 
       for i := 1 to 5 do
      begin
    for j := 1 to 4 do
write(a[i,j]:10:3);
    writeln;
    end;
   end;
 for i := 1 to 4-1 do
  begin
    repeat
k:=0;
for j:= i+1 to  4 do
if a[i,j]>a[i+1,j] then
  begin
  r:=a[i,j];
  a[i,j]:=a[i+1,j];
  a[i+1,j]:=r;
k:=k+1;
end;
    until k=0;
  end;
 
      begin
       for i := 1 to 5 do
      begin
    for j := 1 to 4 do 
write(a[i,j]:10:3);
    writeln;
    end;
   end;
   readln;
end.
а я вот так делала эту задачу...
0
26 / 26 / 8
Регистрация: 14.05.2011
Сообщений: 242
04.06.2012, 22:25 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
//3. Определить количество элементов последовательности натуральных чисел, кратных числу М и заключенных в промежутке от L до N
var 
  a:array[1..100] of integer;
  i,n1,n,l,m,k:integer;
begin
  readln(n1);
  readln(l,n);
  readln(m);
  k:=0;
  for i:=1 to n1 do
    begin
      read(a[i]);
      if (a[i]>=l) and (a[i]<=n) and ((a[i] mod m)=0) then
        inc(k);
    end;
  writeln;
  write(k);
end.
0
04.06.2012, 22:25
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.06.2012, 22:25
Помогаю со студенческими работами здесь

количество элементов последовательности натуральных чисел, кратных числу М.
Определить количество элементов последовательности натуральных чисел, кратных числу М.

Определить количество последовательности натуральных чисел кратных числу М и заключенных в промежутке от L до N
Определить количество последовательности натуральных чисел кратных числу М и заключенных в...

Дана последовательность целых чисел, за которой следует 0. Найти количество элементов этой последовательности, кратных числу K1 и не кратных числу K2
Ребята помогите пожалуйста решить 2 задачи с помощью цикла do и while. (без массива) 1)Дана...

Вычислить сумму членов последовательности натуральных чисел, кратных и не кратных заданному числу
Дана последовательность натуральных чилел А. Вычислить сумму членов последовательности, кратных и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

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