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


#22
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.

#23

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

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

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


#24

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


#25

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


#26

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


#27

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


#28

Ок, спасибо)


#29

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


#30

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

begin
  var b := 0.0;
  b -= 200.11;
  b += 200.10;
  b += 0.01;
  
  writeln(b);
  writeln(0 = b);
end.

#31

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

writeln(0.29 * 100 = 29);

#32

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


#33

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


#34

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


#35

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

Материалы

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

#36

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


#37

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


#38

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


#39

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


#40

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


#41

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