Язык программирования - pascal). Составить программу, определяющую, является ли год високосным

Язык программирования - Pascal). Составить программу, определяющую, является ли год високосным

Год считается високосным: 1) год не вековой - если последние две цифры образуют число, которое делится на 4, 2) год вековой – номер столетия должен делиться на 4.

program exam01;

var year: integer;

begin

write('введите год: '); readln(year);

if year mod 4 <> 0 then writeln('год не високосный')

else

if (year mod 100 = 0) and (year mod 400 <> 0) then writeln('год не високосный')

else writeln('год високосный');

readln;

end.

Язык программирования - Pascal). Составить фрагмент программы вычисления среднего значения одномерного массива, используя цикл с предусловием

Принять размер массива – 10 элементов, тип элементов – real.

program exam03;

{ Составить фрагмент программы вычисления среднего значения }

{ одномерного массива, используя цикл с предусловием }

{ топорный вариант: сначала ввод массива, затем вычисления }

{ красивее: сразу при вводе вычислять сумму вводимых чисел }

var

a: array[1..10] of real;

aa, sr: real; // текущее и среднее значение

i: integer; // счетчик

begin

// ввод массива

for i:=1 to 10 do begin write('a[',i,']= '); readln(a[i]); end;

// контрольный вывод массива

writeln('введен массив:');

for i:=1 to 10 do write(a[i]:10:3); writeln;

sr:=0; i:=1;

// требуемый цикл с предусловием

while i<=10 do begin sr:=sr+a[i]; i:=i+1; end;

sr:=sr/10;

writeln('среднее значение:', sr:10:3);

readln;

end.

Язык программирования - Pascal). Составить фрагмент программы вычисления минимального значения одномерного массива, используя цикл с постусловием

program exam05;

{ Составить фрагмент программы вычисления минимального }

{ значения одномерного массива, используя цикл с постусловием }

var

a: array[1..10] of real;

aa, min: real; // текущее и минимальное значение

i: integer; // счетчик

begin

// ввод массива

for i:=1 to 10 do begin write('a[',i,']= '); readln(a[i]); end;

// контрольный вывод массива

writeln('введен массив:');

for i:=1 to 10 do write(a[i]:10:3); writeln;

min:=a[1]; i:=2;

// требуемый цикл с постусловием

repeat

if min>a[i] then min:=a[i]; i:=i+1;

until i=10;

writeln('минимальное значение:', min:10:3);

readln;

end.

7. (Язык программирования – Pascal, C++). Составить фрагмент программы открытия и чтения строк из текстового файла

program exam07;

{ Составить фрагмент программы открытия и чтения строк из текстового файла }

var

s: string;

f: text;

begin

Assign(f,'exam07.txt');

{$I-}

Reset(f);

{$I+}

if IOResult<>0 then begin

writeln('ошибка чтения файла'); halt(1);

end;

while not eof(f) do begin

readln(f,s); writeln(s);

end;

Close(f);

readln;

end.

Язык программирования - Pascal). Составить фрагмент программы вычисления среднего значения одномерного массива, используя цикл со счетчиком

program exam08;

{ Составить фрагмент программы вычисления среднего значения }

{ одномерного массива, используя цикл со счетчиком }

{ топорный вариант: сначала ввод массива, затем вычисления }

{ красивее: сразу при вводе вычислять сумму вводимых чисел }

var

a: array[1..10] of real;

aa, sr: real; // текущее и среднее значение

i: integer; // счетчик

begin

// ввод массива

for i:=1 to 10 do begin write('a[',i,']= '); readln(a[i]); end;

// контрольный вывод массива

writeln('введен массив:');

for i:=1 to 10 do write(a[i]:10:3); writeln;

sr:=0; i:=1;

// требуемый цикл со счетчиком

for i:=1 to 10 do sr:=sr+a[i]; sr:=sr/10;

writeln('среднее значение:', sr:10:3);

readln;

end.

Язык программирования - Pascal). Составить фрагмент программы вычисления минимального значения одномерного массива, используя цикл со счетчиком

program exam10;

{ Составить фрагмент программы вычисления минимального }

{ значения одномерного массива, используя цикл со счетчиком }

var

a: array[1..10] of real;

aa, min: real; // текущее и минимальное значение

i: integer; // счетчик

begin

// ввод массива

for i:=1 to 10 do begin write('a[',i,']= '); readln(a[i]); end;

// контрольный вывод массива

writeln('введен массив:');

for i:=1 to 10 do write(a[i]:10:3); writeln;

min:=a[1]; i:=2;

// требуемый цикл со счетчиком

for i:=1 to 10 do if min>a[i] then min:=a[i];

writeln('минимальное значение:', min:10:3);

readln;

end.

Язык программирования - Pascal). Составить программу, определяющую, является ли год високосным

Год считается високосным: 1) год не вековой - если последние две цифры образуют число, которое делится на 4, 2) год вековой – номер столетия должен делиться на 4.

program exam01;

var year: integer;

begin

write('введите год: '); readln(year);

if year mod 4 <> 0 then writeln('год не високосный')

else

if (year mod 100 = 0) and (year mod 400 <> 0) then writeln('год не високосный')

else writeln('год високосный');

readln;

end.