Давайте напишем программу, делающую что-то полезное :) Например, будет переводить градусы Фаренгейта в градусы Цельсия. Эту задачку довольно часто приводят в программировании. Посмотрим, как решить ее на MidletPascal. Допустим нам надо вывести значения градусов Фаренгейта от 0 до 10 и аналогичные им градусы Цельсия. Начнем с математики. Вычислятся это все по такой формуле:

C = (F - 32) * 5 / 9,

где F - градусы по шкале Фаренгейта, а C соответсвенно по шкале Цельсия.

Приступаем к написанию собственно программы. Ну для начала создаем новый проект, как сказано выше и называем его, например, "Perevod".

program Perevod;

Дальше нам нужно ввести переменные C и F. Для этого пишем "var" на следующей строчке и далее пишем наши переменные (конструкция полностью аналогична паскалю):

var
  C, F: integer;

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

 for F:=0 to 10 do
    begin
      C:=trunc((F - 32) * 5 / 9);
      drawText(IntegerToString(F)+' -> '+IntegerToString(C), 0 , F*10);
    end;

Т.е. F у нас будет меняться от 0 до 10. При вычислении C trunc будет отбрасывать дробную часть, что сделано для упрощения процесса. Дальше с помощью drawText выводим все это безобразие. Кстати в последнем параметре - F*10 сделано для того чтобы автоматизировать переход на следующую строку при выводе. Ну и в итоге приведу полный текст программы:

program Perevod;
var
  C, F: integer;
begin
  for F:=0 to 10 do
    begin
      C:=trunc((F - 32) * 5 / 9);
      drawText(IntegerToString(F)+' -> '+IntegerToString(C), 0, F*10);
    end;
   repaint;     
   delay(5000);
end.

К содержанию
	Скачать новую версию данного учебника в одном архиве Курс находится в процессе разработки, поэтому архив постоянно обновляется!