Задать вопрос Регистрация
Помочь другим

Ответы 2

  • Пример кода на Pascal для выполнения задания: program data_list; type S = record data: integer; next: ^S; end; var j, i: integer; x, moh: real; head, tail, p: ^S; begin i := 1; x := 10; j := i + 1; moh := x + 0.1 * x; new(head); tail := head; head^.data := j; new(p); p^.data := round(x); tail^.next := p; tail := p; if x >= 25 then writeln('Yes') else writeln('No'); writeln('Head data: ', head^.data); writeln('Tail data: ', tail^.data); readln; end. В данном примере создается список данных, состоящий из двух элементов. Значение первого элемента (j) задается переменной i, а значение второго элемента (округленное значение x) задается переменной x. Затем создается новый элемент списка (p), который содержит значение второго элемента, и он добавляется в конец списка. Если значение x больше или равно 25, то на экран выводится "Yes", иначе - "No". Наконец, на экран выводятся значения первого и последнего элементов списка.
  • Так вот правильно: var i: integer = 1; x: real = 10; begin repeat i := i + 1; x := x * 1.1 until x >= 25; writeln(i) end. Или так: var i: integer; x: real; begin i := 1; x := 10; while x < 25 do begin i := i + 1; x := x * 1.1; writeln(i, ' ', x) end; writeln(i) end.

    • Автор:

      ruben101
    • 1 год назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years