Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
abvgdesh54
0 / 0 / 0
Регистрация: 22.11.2016
Сообщений: 2
1

В прямоугольнике разбитом на квадраты найти все квадраты пересекаемые диагональю

22.11.2016, 20:35. Просмотров 240. Ответов 1
Метки нет (Все метки)

Прямоугольник , стороны которого выражены целыми числами M и N, разбит на квадраты со стороной К. Составить программу которая находит число квадратов пересекаемых диагональю.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.11.2016, 20:35
Ответы с готовыми решениями:

Найти все трехзначные числа, квадраты которых оканчиваются тремя цифрами
Найти: а) все трехзначные числа, квадраты которых оканчиваются тремя цифрами,...

Заменить в файле все элементы на их квадраты
Дан файл вещественных чисел. Заменить в нем все элементы на их квадраты. в делфи

Заменить в файле все элементы на их квадраты
дан файл вещественных чисел.Заменить в нем все элементы на их квадраты. имя...

Заменить в файле чисел все элементы на их квадраты.
1. Дан текстовый файл не менее чем из 4-х элементов. Вывести первый, второй,...

Все отрицательные элементы массива заменить на их квадраты
Дан массив целых чисел. Все отрицательные элементы заменить на их квадраты....

1
abvgdesh54
0 / 0 / 0
Регистрация: 22.11.2016
Сообщений: 2
13.12.2016, 19:47  [ТС] 2
короче сам разобрался

const
kol_strok = 100;
kol_stolbcov = 100;

var
A: array[1..kol_strok, 1..kol_stolbcov] of integer;

i, j, k, m, n, o, jk, ik,b,da,nol,fh,t: integer;
f: real;
x:boolean;
begin
Randomize;
k := 1;
readln(n, m);
if n < m then
begin
o:=n;
n:=m;
M:=o;
da:=1;
end;
for i := 1 to kol_strok do
for j := 1 to kol_stolbcov do
begin
A[i, j] := k;
k := k + 1;
if j = kol_stolbcov then
k := 1;
end;
readln(k);
ik:=1;
jk:=1;
k:=k-1;
repeat
for i := ik to ik+k do
for j := jk to jk+k do
if(j=jk+k) or (i=ik+k) then
begin
f := (m * i) / (n);
if ((j >= f) and (Ceil(f) = j)) then
x:=true;
end;
if x=true then
begin
for i := ik to ik+k do
for j := jk to jk+k do
A[i,j]:=0;
inc(t);
end;
x:=false;
jk:=jk+k+1;
if jk>m then
begin
ik:=ik+k+1;
jk:=1;
end
until ik>n;
for i := 1 to kol_strok do
for j := 1 to kol_stolbcov do
if a[i,j]<>0 then
a[i,j]:=1;

if da=1 then
for i := 1 to m do
for j := 1 to n do
begin
write(A[j, i]:2);
if j = n then
begin
writeln;
end;
end
else
for i := 1 to n do
for j := 1 to m do
begin
write(A[i, j]:2);
if j = m then
begin
writeln;
end;
end;
writeln(t)
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.12.2016, 19:47

В файле вещественных чисел заменить все элементы на их квадраты
В файле вещественных чисел заменить все элементы на их квадраты. Help...

Заменить все элементы первых двух строк матрицы на их квадраты

Заменить все элементы первых трех столбцов матрицы на их квадраты
дан двумерный массив заменить все элементы первых трех столбцов на их квадраты


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

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

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