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

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

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

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

Ответ
 
Опции темы
Старый 20.03.2016, 12: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 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


18:06.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.