4. Примеры программ с линейной структурой.
Проиллюстрируем
изложенные в данной лекции средства
Турбо Паскаля на примерах программ с
линейной структурой, т.е. содержащих
лишь операторы присваивания, ввода,
вывода, управления цветом.
program
first;{вычисление среднего балла}
var
math,phys,phil,hist:integer;{баллы
по
предметам}
average:real;
{средний
балл}
begin
write('математика:');
read(math);
write('физика:');
read(phys);
write('философия:');
read(phil);
write('история;');
read(hist);
average:=(math+phys+phil+hist)/4;
writeln(' Средний
балл:',average:1:2);
end
{first}.
Другой
вариант программы - first_2, использует
средства экранного вывода текста и
отличается также тем, что запрашивает
ввод в окно экрана не только балла, но
и названий четырёх дисциплин.
program
first_2;{второй вариант программы first}
uses
CRT;
var
name: string;
{названия
предметов}
v1,v2,v3,v4:integer;{баллы
по предметам}
average:real;
{средний
балл}
begin
TextBackground(cyan);TextColor(yellow);ClrScr;
window(10,10,70,16);TextBackground(green);ClrScr;
writeln('Введите
в
одну
строку
названия
4-х
предметов,');
writeln('а
в следующую строку - баллы по этим
предметам:');
readln(name);
readln(v1,v2,v3,v4);
average:=(v1+v2+v3+v4)/4;writeln('
Средний
балл:',average:1:2);
end
{first_2}.