(1 курс ФИИТ) CS101. Основы программирования — практика

begin
  var eps := ReadReal('Введите вещественное число eps > 0: ');
  Assert(eps > 0, 'Eps должно быть больше 0!');
  
  var a1 := 1.0;
  var a2 := 2.0;
  var ak := a2;
  var k := 2;
  
  while abs(a2 - a1) >= eps do
  begin
    ak := (a1 + 2 * a2) / 3;
    a1 := a2;
    a2 := ak;
    k += 1;
  end;
  
  Writeln('Номер k = ', k);
  WritelnFormat('Ak-1 = {0}, Ak = {1}', a1, a2);
  Writeln('|Ak - Ak-1| = ', abs(a2 - a1));
end.

На странице с требованиями к оформлению лабораторных работ добавлено одно требование:

Ввод-вывод в основной программе должен в обязательном порядке сопровождаться поясняющими сообщениями ('Введите два положительных числа a и b:’, 'Частное от деления a на b: ' и т. п.).

Просьба всем студентам первого курса — принять к сведению.

Открылось третье бонуснеое задание. Ну, и очередное ДЗ, как обычно.

К первому занятию на этой неделе стоит прочесть раздел «Особенности „досрочного“ завершения обработки» из выданного на прошлой неделе материала.

“Выбрасывать” разряды или цифры?

По примеру видно, что цифры.

Ок, спасибо)

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

На последнем семинаре в своей подгруппе я говорил о том, что нельзя сравнивать значения вещественных типов на равенство. В качестве иллюстрации к этому разговору привожу следующий код и предлагаю каждому попытаться предсказать, что будет выведено на экран после запука программы. Свою догадку можно проверить здесь.

begin
  var b := 0.0;
  b -= 200.11;
  b += 200.10;
  b += 0.01;
  
  writeln(b);
  writeln(0 = b);
end.
1 лайк

Зачем такой сложный пример? =)

writeln(0.29 * 100 = 29);
2 лайка

Тоже хороший пример, спасибо.

Артём Михайлович, в домашнем задании №4(1) во 2 упражнении не работает ссылка. Поправьте, пожалуйста.

Спасибо, исправлено.

Перед следующим занятием желательно посмотреть описание стандартного модуля GraphABC для работы с графикой.

Материалы

  1. Краткое описание на вики.
  2. Методическое пособие.
  3. Файл с примерами.

В файле с примерами в комментариях вместо русских букв выводится примерно это: { Íàïèøèòå ïðîöåäóðó TextOutRightBottomCorner, êîòîðàÿ âûâîäèò çàäàííûé òåêñò â ïðàâûé íèæíèé óãîë ãðàôè÷åñêîãî îêíà. Òåêñò äîëæåí ðàñïîëàãàòüñÿ â óêàçàííîì ìåñòå íåçàâèñèìî îò åãî ðàçìåðà }

Сохраните файл на диск (Ctrl+S) и откройте в среде Паскаля.

Большое спасибо

Материал ко второму занятию по графике.

Что делать с “Занятие #16. Загрузка и сохранение изображений”? Оно уже просрочено

Спасибо за указание, продлена до пятницы 20:00, потому что для всей 1.9 это часть домашнего задания.