Циклическая обработка целых - дополнения

1. Перевести заданное натуральное N из с.с. с основанием p в с.с. с основанием q ( p,q не превосходят 10)
2. Перевести число из 16-ричной в 10-ную.

4.333335
Your rating: Нет Average: 4.3 (6 votes)

Комментарии

Юрий Жаворонков аватар

Код

Код сюда или на e-mail?

На e-mail

На e-mail.
Впрочем, условия устарели.
Эти задачи уже решены в группе ПМ в следующей, обобщающей их постановке: Перевести заданное натуральное N из с.с. с основанием p в с.с. с основанием q ( p,q не превосходят 16)

Юрий Жаворонков аватар

тогда....

В таком случае.. чуть поменяем условие и вот новая задача.

Киржинов Довлет аватар

Домашняя задача

Задача, данная на лекции:
(Решить иным (рациональным) способом):Ввести матрицу и вывести максимальное значение элементов над главной диагональю, включая саму диагональ.
Решение отличается тем, что мы проходим не по всей матрице, а только по нужным элемента(элементам главной диагонали и над ней):

  1. program max_diag;
  2. const m=50;
  3. type VECTOR=array[1..m] of Real;
  4.      MATRIX=array[1..m] of VECTOR;
  5. var a:matrix;
  6.     max:real;
  7.     n,i,j:byte;
  8.  begin
  9.   writeln('Введите размерность массива(не более 50)');
  10.   readln(n);//ввод размерности массива
  11.   for i:=1 to n do begin//цикл ввода двумерного массива (матрицы)
  12.     write('Вводим строку ',i,':');
  13.     for j:=1 to n do begin
  14.       read(a[i,j]);
  15.     end;
  16.     writeln;//переход на следующую строку
  17.   end;
  18.   max:=a[1,1];
  19.   for i:=1 to n do begin//пробегаем все строки
  20.     for j:=i to n do begin//пробегаем элементы текущей строки начиная с того, который находится на главной диагонали
  21.       if a[i,j]>max then
  22.         max:=a[i,j];
  23.     end;
  24.   end;
  25.   writeln('Максимальный элемент матрицы находящийся над главной диагональю включая саму диагональ ',max:10:3);
  26.  end.

ОК, Давлет.

ОК, Давлет.