Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Алгоритмы

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

Открыть новую тему     Написать ответ в эту тему

r u b o a r d m a n



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Код:
program GuitarCalc;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  gears: array[0..42] of Integer = (20, 20, 23, 24, 25, 25, 30, 33, 34, 35, 37,
    40, 41, 43, 45, 47, 48, 50, 53, 55, 57, 58, 59, 60, 61, 62, 65, 67, 70, 71,
    73, 75, 79, 80, 83, 85, 89, 90, 92, 95, 97, 98, 100
    );
  ia, ib, ic: Integer;
  fout: TextFile;
 
begin
  { TODO -oUser -cConsole Main : Insert code here }
  AssignFile(fout, 'log.txt');
  Rewrite(fout);
  ic := 0;
  for ia := Low(gears) to High(gears) do
  begin
    for ib := Low(gears) to High(gears) do
    begin
      if (ia <> ib) then
        Write(fout, IntToStr(gears[ia] * gears[ib]) + ', ');
      Inc(ic);
    end;
  end;
  WriteLn(fout, '');
  WriteLn(fout, '');
  WriteLn(fout, IntToStr(ic));
  Close(fout);
end.


Всего записей: 484 | Зарегистр. 10-09-2014 | Отправлено: 20:39 31-12-2018 | Исправлено: r u b o a r d m a n, 20:53 31-12-2018
Открыть новую тему     Написать ответ в эту тему

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Алгоритмы


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru