Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Александр Римша
0 / 0 / 0
Регистрация: 25.05.2011
Сообщений: 9
1

Заменить максимальный элемент матрицы суммой всех нечётных элементов матрицы

28.05.2011, 09:50. Просмотров 726. Ответов 1
Метки нет (Все метки)

1.Ввести с клавиатуры координаты четырёх точек, являются ли они вершинами квадрата, ромба?
2.В текстовом файле А записана целочисленная матрица. Заменить её максимальный элемент суммой всех нечётных элементов матрицы, минимальный элемент - суммой всех чётных элементов матрицы. Результат записать в файл В.
3.Создать на экране изображение, состоящее из 3-х стандартных фигур (например: окружность, прямоугольник, многоугольник).
4.Дан текстовый файл А, содержащий целые числа. Записать в файл В все нечетные компоненты
файла А.
5.Составить программу для проверки, можно ли заданное натуральное число N представить в виде: квадрата простого числа; куба простого числа.
6. Дан массив натуральных чисел. Составить программу, которая выполняет сортировку его элементов следующим образом: сначала идут элементы, кратные числу K (дают 0 в остатке от деления на K),
затем те, которые при делении на K дают в остатке 1, и т.д. Последнюю группу составляют числа, остаток от деления на K которых равен K-1.
7.Описать процедуру TrimLeftC(S, C), удаляющую в*строке*S начальные символы, совпадающие с*символом*C. Строка*S является входным и*выходным параметром. Дан символ*C и*пять строк. Используя процедуру TrimLeftC, преобразовать данные строки.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.05.2011, 09:50
Ответы с готовыми решениями:

Заменить максимальный элемент суммой всех нечётных элементов матрицы
Уважаемые форумчане! У меня к вам такая проблема!(( Задача: В текстовом файле...

Заменить наибольший элемент каждой строки матрицы суммой элементов, расположенных до него
Вот как это все записать? Я в принципе знаю как наибольший элемент найти, ну...

Каждый элемент главной диагонали заменить суммой всех других элементов этой строки.
Каждый элемент главной диагонали заменить суммой всех других элементов этой...

Каждый элемент главной диагонали заменить суммой всех других элементов этой строки.
Каждый элемент главной диагонали заменить суммой всех других элементов этой...

Каждый положительный элемент матрицы заменить суммой предшествующих ему в этом столбце
Мое задание!! Дана действительная матрица a размера (n×m), n,m≤10. В каждом...

1
Mr.Y
99 / 92 / 90
Регистрация: 10.05.2011
Сообщений: 172
28.05.2011, 10:35 2
Лучший ответ Сообщение было отмечено Александр Римша как решение

Решение

1)
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
Uses crt;
 
Function isrhombus(x1,y1,x2,y2,x3,y3,x4,y4:integer):boolean;
Var
 k1,k2,k3,k4:real;
Begin
 k1:=sqrt(sqr(x2-x1)+sqr(y2-y1));
 k2:=sqrt(sqr(x3-x2)+sqr(y3-y2));
 k3:=sqrt(sqr(x4-x3)+sqr(y4-y3));
 k4:=sqrt(sqr(x1-x4)+sqr(y1-y4));
 isrhombus:=(k1+k2)-(k3+k4) = 0;
End;
 
Function issquare(x1,y1,x2,y2,x3,y3,x4,y4:integer):boolean;
Var
 p1,p2,p3:integer;
Begin
 p1:=(x2-x1)*(x3-x2)+(y2-y1)*(y3-y2);
 p2:=(x3-x2)*(x4-x3)+(y3-y2)*(y4-y3);
 p3:=(x4-x3)*(x1-x4)+(y4-y3)*(y1-y4);
 issquare:=(p1 = 0) and (p2 = 0) and (p3 = 0);
End;
 
Var
 x1,y1,x2,y2,x3,y3,x4,y4:integer;
Begin
 clrscr;
 write('Введите координаты первой точки: ');
 Readln(x1,y1);
 write('Второй: ');
 Readln(x2,y2);
 write('Третьей: ');
 Readln(x3,y3);
 write('Четвертой: ');
 Readln(x4,y4);
 If isrhombus(x1,y1,x2,y2,x3,y3,x4,y4) then
  Begin
   writeln('Это ромб');
   If issquare(x1,y1,x2,y2,x3,y3,x4,y4) then writeln('Это квадрат');
  End
                                       else
  writeln('Эта фигура не является ни ромбом, ни квадратом.');
 readln;
End.
4)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Var
 a,b:text;
 x:integer;
Begin
 assign(a,'c:\input.txt');
 assign(b,'c:\output.txt');
 reset(a);
 rewrite(b);
 While not eof(a) do
  Begin
   readln(a,x);
   If odd(x) then writeln(b,x);
  End;
 close(a);
 close(b);
End.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.05.2011, 10:35

Строку матрицы с наибольшей суммой элементов заменить нулями, если она четная
Для произвольной матрицы строку с наибольшей суммой элементов заменить нулями,...

Заменить максимальный элемент диагонали матрицы суммой строки.
Здравствуйте.. Составить програму для размещения суммы положительных элементов...

массиве А(n) каждый элемент, заменить суммой всех предыдущих элементов первый заменить на 0
помогите пожалуйста! Например, в массиве 5 чисел: 1,2,3,4,5 Они должны...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru