М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
dascha21schou
dascha21schou
02.10.2020 01:18 •  Информатика

Используя материалы уроков, составьте программу на языке Pascal. Ввод и вывод данных в программе, должен осуществляться в окне консоли crt, для которого задать размеры окна: 80 колонок на 32 строки; цвет фона - синий; цвет текста - белый. При составлении программы использовать операторы цикла while или repeat.

Сохранить файл программы и прикрепить к этому вопросу.

ЗАДАНИЕ:

Составить программу вычисления банковского процента по займу за указанный период.

Исходные данные:

- сумма займа

- годовой процент по займу

- срок займа(в годах)

сумма займа выплачивается равномерно за каждый перод выплат - один год.

Результат выполнения программы:

- за каждый период выплат(один год) вычислить и вывести на экран сумму процентов и сумму выплаты.

- вычислить итоговую сумму выплаты по всему займу и сумму переплаты.

👇
Открыть все ответы
Ответ:
Поэзия
Поэзия
02.10.2020
Судя по всему, здесь в цикле складываются квадраты всех нечетных чисел от m до n включительно.

m & 1 - это битовая конъюнкция. Результатом будет 1, если m нечетное, и 0, если m - четное (то есть, содержит или не содержит соответствующий разряд)

Выражение вида T ? X : Y, где T - логическое высказывание, принимает значение X, если T истинно, и Y, если T ложно.

Соответственно, i = (m & 1) == 1 ? m : m + 1 означает, что
если m нечетное, то i = m
если четное, i = m+1 (то есть, первое нечетное число после m)

i += 2 означает, что цикл идет с шагом, соответственно, рассматриваются только нечетные числа.
4,4(60 оценок)
Ответ:
777sofia777
777sofia777
02.10.2020
Дешифровка: ВХОД_ОТКР Ы Т.

дешифровки:
Const sh = '_.,';
Var
  St : String;
  i  : Integer;
Function DeCode(S : String; Tabl : String; k : Integer) : String;
Var j,n : Integer;
Begin
  For j:=1 to Length(S) do
  Begin
    n:=Pos(S[j],sh);
    If n>0 then
    Begin
      n:=n+k;
      While n>Length(sh) do n:=n-Length(sh);
      While n<=0 do n:=n+Length(sh);
      S[j]:=sh[n];
    end
  end;
  DeCode:=S;
end;
Begin
  St:='ЗЫФЙГФШРЦ . ШД';
  Writeln(Decode(St,sh,-6));
  //For i:=-10 to 10 do Writeln(Decode(St,sh,i));
end.
4,6(36 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ