Лабораторная работа по «Программирование»

Федеральное агентство связи

Федеральное государственное образовательное бюджетное

учреждение высшего профессионального образования

«Поволжский государственный университет телекоммуникаций и информатики»

Лабораторная работа№1

по дисциплине «Программирование»

Вариант№6

Выполнила:

студентка 1у/ПИ

Черновол Н.И.

Самара 2012

Условие: Даны две тройки чисел: a,b, c  и х, y, z (число, месяц, год). Определить количество полных лет, прошедших между этими датами;

Текст программы:

Program Razniza_dat;

var d1,m1,y1,d2,m2,y2,s:integer;

begin;

Writeln ('Вычисляем количество полных лет между датами');

Writeln ('Введите 2 даты в формате ДД ММ ГГГГ через пробел');

write ('Дата 1 - ');

readln (d1,m1,y1);

write ('Дата  2 - ');

readln (d2,m2,y2);

if (m2>m1) or (m1=m2) and (d2>=d1)  then s:=y2-y1 else s:=y2-y1-1;

Writeln ('Полных лет', s);

readln;

end.

Окно программы и вывода: