поиск:    

 
переход:  



Екатеринбург Онлайн
Новости:  Автоновости  |  Публикации:  Дороги  |  Форумы:  Автофорум

  Форумы  > Автоклуб > Общение Автоклуба  

помогите решить две задачки (pascal)


Список Тем  |   Поиск  |   Правила  |   Статистика  |
помогите решить две задачки (pascal)   #680532  наверх
Автор: 
Дата:   

субж :-)
вознаграждение гарантируется.
  |  Поделиться:  
Re: помогите решить две задачки (pascal)   #680537  наверх
Автор: 004. 
Дата:   

Обойти шахматную доску конем? )))
  |  Поделиться:  
Re: помогите решить две задачки (pascal)   #680542  наверх
Автор: Vrt
Дата:   

не, не из этой области)
  |  Поделиться:  
Re: помогите решить две задачки (pascal)   #680591  наверх
Автор: Vrt
Дата:   

up :-(
  |  Поделиться:  
Re: помогите решить две задачки (pascal)   #680645  наверх
Автор: ВДУЧ   (О пользователе)
Дата:   

http://www.e1.ru/talk/forum/list.php?f=37
  |  Поделиться:  
Re: помогите решить две задачки (pascal)   #680772  наверх
Автор: LAlex_Баянист :-)
Дата:   


Цитата:
От пользователя: Vrt

помогите решить две задачки (pascal)

Озвучь задачки-та... ;-)
  |  Поделиться:  
Re: помогите решить две задачки (pascal)   #680787  наверх
Автор: Danilka   (О пользователе)
Дата:   

Да, озвучь!

У меня в обоих вузах пятёрки по Паскалю были :-)
  |  Поделиться:  
Re: помогите решить две задачки (pascal)   #681010  наверх
Автор: Vrt
Дата:   

Задача 1.
Даны 2 квадратные матрицы, порядок которых не превосходит 10. Уменьшить в 2 раза элементы той из них, у которой наибольший след (сумма диагональных элементов), считая что такая матрица одна. напечатать исходные и полученную матрицы. Вычисление следа оформить в виде процедуры.

задача 2.
Найти 100 первых простых чисел.
  |  Поделиться:  
Re: помогите решить две задачки (pascal)   #681078  наверх
Автор: PSH   (О пользователе)
Дата:   

Эххх
Даже писать лень
Тут даж думать не надо, тупая работа машинистки - сиди и набивай
Думал, чонить интересное...
  |  Поделиться:  
Re: помогите решить две задачки (pascal)   #681085  наверх
Автор: Duke_Log  (О пользователе)
Дата:   


Цитата:
От пользователя: Vrt

задача 2.
Найти 100 первых простых чисел.

Можно написать тупым методом - просто проверять числа на простоту, а можно замутить решето Эратосфена - будет наамного шустрей - хотя для 100 чисел это не концептуально
  |  Поделиться:  
Re: помогите решить две задачки (pascal)   #681300  наверх
Автор: masterO99
Дата:   

паскаль тут при чем?
может тебе алгоритм нужен?
или сразу готовый ответ на паскале?
  |  Поделиться:  
Re: помогите решить две задачки (pascal)   #681385  наверх
Автор: PSH   (О пользователе)
Дата:   


Цитата:
От пользователя: master099

паскаль тут при чем?
может тебе алгоритм нужен?
или сразу готовый ответ на паскале?


Да полюбому это домашнее задание по информатике для 2-го курса института. Их всегда в паскале требуют и задачи типовые. Я в свое время их тысячами решал и в пиве купался :-d :-d :-d .

Поэтому чюваку явно нужен готовый ответ, со всеми uses и прочей лабудой TP 7.0, чтоб вставил, нажал Compile и алилуйя :-)
  |  Поделиться:  
Re: помогите решить две задачки (pascal)   #681392  наверх
Автор: masterO99
Дата:   

имхо это неправильно...
пошол учицца - учись.
ладно б спросил про историю КПСС...
  |  Поделиться:  
Re: помогите решить две задачки (pascal)   #681516  наверх
Автор: PSH   (О пользователе)
Дата:   


Цитата:
От пользователя: master099

пошол учицца - учись


Так та хз.
Я в свое время половине потока МТ-УПИ их решал. Металлурги эту информатику сдали и никогда больше не вспомнили, а мне хорошо :-) . Издержки университетского образования :-)
  |  Поделиться:  
Re: помогите решить две задачки (pascal)   #681520  наверх
Автор: Тузя   (О пользователе)
Дата:   

Помогите зашифровать пару слов в RSA :-)
по дискретнйо математике нада)))
  |  Поделиться:  
Re: помогите решить две задачки (pascal)   #681588  наверх
Автор: 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:

выводи на печать....
только переменные определи и массивы..
а для простого числа ..ну что дерзайте :-)
  |  Поделиться:  
Re: помогите решить две задачки (pascal)   #681594  наверх
Автор: PSH   (О пользователе)
Дата:   

Не буйт компилиться

Особенно конструкция

Цитата:
От пользователя: John Dow

procedure begin


улыбнула :-)
  |  Поделиться:  
Re: помогите решить две задачки (pascal)   #15411003  наверх
Автор: Е1.RU   (О пользователе)
Дата:   

Тема автоматически закрыта.
  |  Поделиться:  
Список Тем  |   Поиск  |   Правила  |   Статистика  |
Обсуждение этой темы закрыто модератором форума

 Мой E1 
 
Вход для зарегистрированных пользователей:
E-mail:
Пароль:
Если Вы не зарегистрированы, то добро пожаловать на страницу регистрации.
Если Вы зарегистрированы, но забыли пароль, Вы можете его запросить.

Развернуть блок
 Погода