помогите решить две задачки (pascal)
V
Vrt
субж :-)
вознаграждение гарантируется.
вознаграждение гарантируется.
U
004.
Обойти шахматную доску конем? )))
V
Vrt
не, не из этой области)
V
Vrt
up :-(
L
LAlex_Баянист :-)
помогите решить две задачки (pascal)
Озвучь задачки-та...
V
Vrt
Задача 1.
Даны 2 квадратные матрицы, порядок которых не превосходит 10. Уменьшить в 2 раза элементы той из них, у которой наибольший след (сумма диагональных элементов), считая что такая матрица одна. напечатать исходные и полученную матрицы. Вычисление следа оформить в виде процедуры.
задача 2.
Найти 100 первых простых чисел.
Даны 2 квадратные матрицы, порядок которых не превосходит 10. Уменьшить в 2 раза элементы той из них, у которой наибольший след (сумма диагональных элементов), считая что такая матрица одна. напечатать исходные и полученную матрицы. Вычисление следа оформить в виде процедуры.
задача 2.
Найти 100 первых простых чисел.
Эххх
Даже писать лень
Тут даж думать не надо, тупая работа машинистки - сиди и набивай
Думал, чонить интересное...
Даже писать лень
Тут даж думать не надо, тупая работа машинистки - сиди и набивай
Думал, чонить интересное...
m
masterO99
паскаль тут при чем?
может тебе алгоритм нужен?
или сразу готовый ответ на паскале?
может тебе алгоритм нужен?
или сразу готовый ответ на паскале?
паскаль тут при чем?
может тебе алгоритм нужен?
или сразу готовый ответ на паскале?
может тебе алгоритм нужен?
или сразу готовый ответ на паскале?
Да полюбому это домашнее задание по информатике для 2-го курса института. Их всегда в паскале требуют и задачи типовые. Я в свое время их тысячами решал и в пиве купался :-d :-d :-d .
Поэтому чюваку явно нужен готовый ответ, со всеми uses и прочей лабудой TP 7.0, чтоб вставил, нажал Compile и алилуйя :-)
m
masterO99
имхо это неправильно...
пошол учицца - учись.
ладно б спросил про историю КПСС...
пошол учицца - учись.
ладно б спросил про историю КПСС...
пошол учицца - учись
Так та хз.
Я в свое время половине потока МТ-УПИ их решал. Металлурги эту информатику сдали и никогда больше не вспомнили, а мне хорошо :-) . Издержки университетского образования :-)
J
John Dow
первая
procedure Rachet(Mas)
For i = 1 to 10
begin
Sled1:=Sled1+Mas(i,i):
end:
end;
procedure begin
Sled1=Rachet(Mas1);
Sled2=Rachet(Mas2);
// i takaya drebeden ebet mozgi celyy den
if Sled2>Sled1 then
Masitog=Mas2;
else
MasItog=Mas1;
For i=1 to 10
begin
For j=1 to 10
begin
Temp:= MasItog(i,j)/2;
MasItog:=Temp
end:
end:
выводи на печать....
только переменные определи и массивы..
а для простого числа ..ну что дерзайте :-)
procedure Rachet(Mas)
For i = 1 to 10
begin
Sled1:=Sled1+Mas(i,i):
end:
end;
procedure begin
Sled1=Rachet(Mas1);
Sled2=Rachet(Mas2);
// i takaya drebeden ebet mozgi celyy den
if Sled2>Sled1 then
Masitog=Mas2;
else
MasItog=Mas1;
For i=1 to 10
begin
For j=1 to 10
begin
Temp:= MasItog(i,j)/2;
MasItog:=Temp
end:
end:
выводи на печать....
только переменные определи и массивы..
а для простого числа ..ну что дерзайте :-)
Обсуждение этой темы закрыто модератором форума.