Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Кафедра ЕОМ
Інформація про роботу
Рік:
2002
Тип роботи:
Звіт
Предмет:
Основи алгоритмізації та програмування
Група:
КІ-15
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти і науки України
Національний університет "Львівська Політехніка"
І К Т А М
Кафедра ЕОМ
ЗВІТ
Про виконання роботи з дисципліни
_"Основи алгоритмізації та програмування”__
МЕТА: Метою цієї роботи було засвоєння розділових знаків у мові Паскаль.
Завдання полягало в тому, щоб проставити розділові знаки, але при умові що ця програма (в даному випадку календар) повинна працювати.
Опис програми:
program day;
var correctdate:boolean;
d, m, y:integer;
procedure InputDate (var d, m, y:integer; var correctly: boolean);
begin
write ('dd,mm,yyyy');
readln (d,m,y);
correctly:= (d>=1) and (d<=31) and (m>=1) and (m<=12) and (y>=1582) and (y<=4903);
end;
procedure WriteDay (d, m, y:integer);
const days_of_week: array[0..6] of string[3] =('sun', 'mon', 'tue', 'wed', 'thu', 'fri', 'sat');
var c,w:integer;
begin
if m<3 then begin m:=m+10; y:=y-1 end
else m:=m-2; c:=y div 100; y:=y mod 100;
w:=(trunc (2.6*m-0.2) + d + y div 4 + y + c div 4 - 2*c) mod 7;
if w<0 then w:=w+7;
if m=12 then w:=w+1;
writeln (days_of_week[w])
end;
begin
repeat
InputDate (d, m, y, correctdate);
if correctdate then writeDay (d, m, y)
until not correctdate
end.
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора