Народ пажалуста помогите с FORTRANOM!!

учится надо было раньше.

задача тупая и банальная. Учиться надо было.

Просто программирование- это не мое !! ,Выручите что вам стоит , мне надо завтра сдать эту задачу ..Плиз напишите !!!

Кто может помочь в трудную минуту скиньте текст программы на mail upling@narod.ru.Буду очень благодарен.

;;; -*- Mode:Lisp; Syntax:ANSI-Common-Lisp; Coding:utf-8 -*-

#|
Выработка каждого из 10 кранов порта за смену в течение суток
представлена в виде массива из 3-х чисе.Выработка всехкрано-в виде
матрицы (10*3).Выработку крана , простоявшего всю смену , считать
равной нулю.Определить и напечатать номер крана с наибольшей
выработкой в течение суток .Исходную матрицу вывести на печать в
общепринятом виде.Исходные данные задать самостоятельно.
|#

(defun gen-product (cranes noise)
  (flet ((rand ()
           (random noise)))
    (loop for crane from 1 to cranes
       collect (list crane
                     (list (rand) (rand) (rand))))))

(defun the-best-crane (prods)
  (first
   (sort prods #'> :key #'(lambda (p)
                            (apply #'+ (cadr p))))))

(defun runme ()
  (let* ((cranes 10)
         (prods (gen-product cranes 10)))
    (format t "Выработка каждого из ~a кранов порта за смену в течение суток:~%" cranes)
    (dolist (p prods)
      (format t "~a: ~{~a~^, ~}~%" (car p) (cadr p)))
    (let ((the-best (the-best-crane prods)))
      (format t "Номер крана с наибольшей выработкой в течение суток: ~a: ~{~a~^, ~}~%"
              (car the-best) (cadr the-best)))))

CL-USER> (runme)
Выработка каждого из 10 кранов порта за смену в течение суток:
1: 4, 6, 2
2: 7, 6, 6
3: 2, 7, 8
4: 1, 9, 1
5: 9, 2, 8
6: 7, 7, 3
7: 2, 5, 7
8: 8, 2, 5
9: 6, 9, 2
10: 4, 0, 8
Номер крана с наибольшей выработкой в течение суток: 2: 7, 6, 6
NIL

че за хрень??чтото это не похоже на программу на фартране!!! это должно быть типо так: PROGRAM REAL P,PMAX INTEGER P(10*3) WRITE(*,*)"ВВЕДИТЕ ИМЯ ФАЙЛА С ДАННЫМИ' READ(1,100)((P(I,J),J=1,3),I=1,10) 100 FORMAT(6F4.0) WRITE(*,*)'ВВЕДИТЕ ИМЯ ФАЙЛА С РЕЗУЛЬТАТОМ" ****вот так она должна выгледеть***

это фортран, только самой последней версии.

ну у нас работают на fortran 7.7 типо так както .. а можиш написать просто словами ну как я там показал .без запуска программы мне нужен токо текст и все..

без ответа

На моём ЛОРе не любят воинствующих невежд.
Исключение делается только для забавных троллей.
Так что, в армию, сынок!

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

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

Задачка тупейшая, при чём не важно на каком языке. Попроси кого-нить из старших курсов. За небольшую сумму сделают. Или узнай какая у вас в инсте кафедра с программированием жружит.

да я и сам в полне мог бы ее написать я не пойму ..как мне оформить ввод данных??надо вводить матрицу 10*3 и массив из 3 чисел??

ну раз сам можешь - то что ж тогда страху нагонять =) сделай заполнение матрицы рандомными числами - у тебя же не специфицированно в задании как именно.

а как ту написать текст в столбик, а не в сточку??

А как тебя в универ такого взяли, раз ты читать не умеешь?

как,как..просто по ЭГ!!!

Ну что ж ты такой трудный-то, а? Я фортрана уже двадцать лет не видел,
 и то на интернете за пять минут нашел...

 100  real cranes(3,10)
 200  real work(10)

 300  do 600 i=1,3
 400     do 600 j=1,10
 450        write(*,550) i,j
 500        read(*,*) cranes(i,j)
 550        format('cranes(',I1','I2,')=')
 600   continue

 700   write(*,*) 'Matrix:'
 800   do 1000 i=1,3
 900      write(*,1100) (cranes(i,j),j=1,10)
 1000   continue
 1100   format(3F7.1)

 1200   stop
 1300   end

gfortran cranes.f -o cranes
./cranes

Как таких земля держит.

> как,как..просто по ЭГ!!!

А что ты вообще в универе делаешь? Я что-то сомневаюсь, что учишься.

Всегда знал, что ЕГЭ - пагубная идея. вот мальчика взяли, а он что-то ни одного поста без ошибок написать не может.

что делаю ??Учусь,да это так!!! я не знаю иформатику-это не мое,зато я знаю матан , физику , термех то что пригодится мне в жизне больше.Да кстати седня я получил отлично на экзамене по информатике!! так вот , причем сам написал задачу,не ту которую вас просил решить а другую.И теперь я получу степендию.))

molodec.

>я не знаю иформатику-это не мое,зато я знаю матан , физику , термех то что пригодится мне в жизне больше.

а ещё русский язык.
man философия, а то так и будешь думать, что бывают ненужные знания

Да парни, он гонит, вы что. У меня сын в третьем классе сейчас, да и то грамотнее пишет, чем он. Ты не на винте сидишь случайно? Говорят, он мозг сильно дестроит, у тебя, похоже расстройство лексики... Какой ФОРТРАН тебе в жопу! Тебе в дурку надо!

Дима, а ты не хачик? Тут не любят, когда базарят на чурекском.