разработать программу на языке паскаль: 1) из массивов вещественных чисел А и В сформировать массив С, записав в него элементы массивов А и В, которые не
10-11 класс
|
содержат "семерок" в восьмеричном представлении 2) в матрице целых чисел А (n.n) упорядочить те строки , в которых диагональные элементы не содержат семерок. ПОМОГИТЕ РЕШИТЬ ЛИБО 1 ЛИБО 2 ЗАДАЧУ
Первая задача.
function Has7Octal(n: integer): Boolean;
var
p, q, r: integer;
begin
Result := false;
if n > 0 then begin
p := abs(n);
repeat
q := p div 8;
r := p mod 8;
if r = 7 then begin Result := true; p := 0 end
else p := q
until p = 0;
end;
end;
const
m = 10;
n = 7;
var
a: array[1..m] of integer;
b: array[1..n] of integer;
c: array[1..m + n] of integer;
i, k: integer;
begin
writeln('Введите элементы масcива А(', m, ')');
for i := 1 to m do read(a[i]);
writeln('Введите элементы масcива B(', n, ')');
for i := 1 to n do read(b[i]);
k := 0;
for i := 1 to m do
if not Has7Octal(a[i]) then begin
k := k + 1;
c[k] := a[i]
end;
for i := 1 to n do
if not Has7Octal(b[i]) then begin
k := k + 1;
c[k] := b[i]
end;
writeln('Результирующий массив');
for i := 1 to k do write(c[i]:7);
writeln
end.
Тестовый прогон:
Введите элементы масcива А(10)
3453 -2341 2424 15353 0 5344 93 7777 1274 -343
Введите элементы масcива B(7)
8644 8090 -12321 23432 5 1234 35
Результирующий массив
-2341 0 5344 93 -343 -12321 23432 5 1234 35
Вторая задача, Паскаль АВС
Program Robiertmusin;
uses crt;
const n = 15;
type
MyArray = array [1..n,1..n] of integer;
procedure ArrayOutput(A: MyArray);
var i,j: integer;
begin
for i := 1 to n do
begin
for j:= 1 to n do
write(A[i,j]:4, ' ');
writeln;
end;
writeln;
end;
procedure RowSort(var A: MyArray; Nom: integer);
var i, j, temp: integer;
begin
for i := 1 to n-1 do
for j := i+1 to n do
if A[nom,i]>A[nom,j] then begin
temp:=A[nom,i];
A[nom,i]:=A[nom,j];
A[nom,j]:=temp;
end;
writeln(nom,'-я строка упорядочена');
end;
var
mass:MyArray;
i,j:integer;
begin
writeln('В матрице целых чисел А (n*n) программа упорядочивает те строки,'); writeln('в которых диагональные элементы не содержат семерок');
{Создаём начальный массив и выводим его}
randomize;
for i := 1 to n do
for j:= 1 to n do
mass[i,j]:=random(20);
ArrayOutput(mass);
{Просматриваем строки}
for i := 1 to n do
begin
if (mass[i,i]<>7) and (mass[n-i+1,n-i+1]<>7) then RowSort(mass, i);
end;
{Выводим итоговый массив}
writeln('Упорядоченный массив: ');
ArrayOutput(mass);
end.
мне надо подумать, интересная задачка, массивы A и B состоят из десятичных чисел?
и довольно сложная...хммм..
Ну для почетного грамотея, конечно, несложная)
Комментарий удален
Другие вопросы из категории
Условие задачи:
Составить программу формирования двумерного массива из предложенного одномерного так, чтобы первая строка нового массива содержала четные по номеру элементы исходящего массива, а вторая - нечетные. Предусмотреть случай нечетного количества элементов массива.
Например, если мы вводим такой одномерный массив 2 5 1 6 9 2, то должно вывести так:
5 6 2
2 1 9
А если количество элементов одномерного массива нечетное, например 2 5 1 6 9 2 4 то так:
5 6 2 0
2 1 9 4
Помогите пожалуйста, заранее благодарен!
Читайте также
не содержат "семерок" в восьмеричном представлении.
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
б)y=x^15
Постараться использовать минимальное количество дополнительных переменных.
4. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a ← b ← c. Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.
углов.
2)
Напишите пожалуйста программу (на языке BASIC) для определения подобия:
а) двух прямоугольников по двум смежным сторонам;
б) двух треугольников по трем сторонам.
2)Найти количество всех нечетных чисел на интервале от 11 до 20
3)Найти сумму целых положительных четных чисел на интервале от 1 до 100
4)Найти сумму ряда,общий член которого равен А(х)=1/(3*N-2)*(3*N+1)
5)Дано произвольное число n≤100.Определить количество цифр в числе
ОЧЕНЬ НУЖНО!!НА ЯЗЫКЕ ПАСКАЛЬ!ВЫРУЧАЙТЕ!