Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 20.03.2016, 11:14   #1
Fortran90
Новичок
Джуниор
 
Регистрация: 20.03.2016
Сообщений: 1
По умолчанию Перевод из паскаля в фортран

Здравствуйте, переведите пожалуйста из паскаля в фортран.

Код:
program Center;
var
  f1: text;
  s: string;
  i, from_left, from_right: integer;
begin
  assign(f1,'zadan.inp');
  reset(f1);
  while not seekeof(f1) do begin
    readln(f1, s);
    from_left := 0; from_right := 0;
 
    if s = '' then continue;
 
    i := 1;
    while s[i] = ' ' do begin
      inc(i); inc(from_left);
    end;
 
    while length(s) < 80 do begin
      if from_left < from_right then begin
        s := ' ' + s; inc(from_left);
      end
      else begin
        s := s + ' '; inc(from_right);
      end;
    end;
    writeln(s);
  end;
  close(f1);
end.
Fortran90 вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перевод с паскаля на си++ dolphin-cv Помощь студентам 1 06.01.2016 15:12
из паскаля в фортран katya2.5 Помощь студентам 0 27.12.2013 21:59
Перевод с паскаля на С++ trum Помощь студентам 0 01.11.2013 18:23
Нужен перевод кода с паскаля на фортран. Cheeelios Помощь студентам 1 06.03.2011 14:27
Нужен перевод с паскаля в фортран. Pascaler Помощь студентам 2 04.06.2010 19:34


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840