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

Архив 2015/16
#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

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

1.jpg901×195 31 KB

#27

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

#28

Ок, спасибо)

#29

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

#30

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

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

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

writeln(0.29 * 100 = 29);
2 лайка
#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 это часть домашнего задания.