Машинная программа представляет собой последовательность команд. В команде программы содержится описание операции, которую должен выполнить компьютер. Как правило, у команды есть свой код (условное обозначение), исходные данные и результат. Например, у команды "сложить два числа" операндами являются слагаемые, а результатом — их сумма. Результат команды вырабатывается по точно определенным для данной команды правилам, заложенным в конструкцию компьютера. Реальная программа, выполняемая ЭВМ (электронная вычислительная машина), представляет собой последовательность единиц и нулей, которая хранится в памяти машины. Эту цепочку единиц и нулей (бит) называют машинным языком.
type car = record mark: string[64]; year: integer; colour: string[32]; number: string[12]; end;
var text_out: file of car; cars: array[1..1] of car; count,limit: integer; temp:car;
begin writeln('vvod'); assign(text_out, 'input.txt'); rewrite(text_out);
cars[1].mark := 'Lada Vesta bbb'; cars[1].year := 2000; cars[1].colour := 'красный'; cars[1].number := 'а111ааrus000'; write(text_out, cars[1]); writeln(''); readln(limit); for count:=1 to limit do begin writeln('Введите марку автомобиля'); readln(temp.mark); writeln('Введите год выпуска автомобиля'); readln(temp.year); writeln('Введите цвет автомобиля'); readln(temp.colour); writeln('Введите номер автомобиля'); readln(temp.number); write(text_out, temp); end; close(text_out); end.
И пример поиска в том же типизированном файле
uses crt;
type car = record mark: string[64]; year: integer; colour: string[32]; number: string[12]; end;
var text_in: file of car; temp: car; count: integer; mask: string;
begin writeln('Введите искомый цвет'); readln(mask); assign(text_in, 'input.txt'); reset(text_in); while not eof(text_in) do begin read(text_in, temp); if temp.colour = mask then begin write('Машина заданного цвета '); writeln(temp.mark); write(temp.year); writeln(' года выпуска'); write('Государственный знак номер '); writeln(temp.number); writeln(); end; end; end.
Можно и обычным текстовым файлом, но проще типизированным.
1
2
3
4
5
6
7
8
9
10
11
12
program 1;
uses crt;
var i,n,sum:integer;
Begin clrscr;
writeln("Enter n");
readln(n)
sum:=0;
for i:=1 to n do
sum:=sum+1;
writeln("result=",sum);
readln;
End.
Объяснение: