Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Интересная на мой взгляд за задачки...
Автор: vRs 18.03.2008 16:33
Доброго времени суток друзья! возникли вопросы по решению нескольких задачек, может быть кто-нибуть поможет бедному студенту 
...а именно по повду задач:
1) дополнить число 42*4 так , чтобы полученное пятизначное число делилось на 72..
2)Дана действительная матрица размерностью m * n.Разместить все элементы матрицы по убыванию, применив пузырьковую сортировку справа на лево. Обход матрицы осуществлять по строкам.
а также помогите оформить через процедуру с параметрами и функцию ( т.е. в одной задаче использовать 2 подпрограммы). Текст программы:
program l;
uses crt;
var
k,zn:integer;
right,eps,left,r:real;
begin
clrscr;
writeln ('BBeguTe cTeneHb TO4HocTu');
readln (eps);
k:=2;
left:=1;
r:=1;
zn:=-1;
while (abs®>eps) do
begin
r:=zn/k;
left:=left+r;
zn:=-zn;
k:=k+1;
end;
right:=ln(2);
writeln ('JleBa9l cyMma: ',left:6:10,' npu6Jlu3uTeJlbHo paBHa',' npaBou cyMMe: ', right:6:10);
writeln(abs(left-right):1:10);
writeln(k-1);
readkey;
end.
Спасибо за внимание 
Автор: Michael_Rybak 18.03.2008 16:41
| ! | 1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги code. 6. Одна тема - один вопрос (задача) Закрыто |