| marfarus | Дата: Воскресенье, 01.02.2015, 19:24 | Сообщение # 1 |
|
Рядовой
Группа: Пользователи
Сообщений: 4
Статус: Offline
| Желательно построить блок-схему по ГОСТ!
ПРОГРАММА НА ПАСКАЛЕ:
Program laba2;
var d,m,y:integer;
begin
write('Введите через пробел день,месяц,год->');
readln(d,m,y);
if(d=28) and (m=2) then
if(y mod 4=0) and ((y mod 400=0) or (y mod 100<>0)) then d:=29
else begin
d:=1; m:=3
end
else begin
d:=d+1;
if(m in[1,3,5,7,8,10,12]) and (d=32) then
begin
d:=1; m:=m+1;
if m=13 then
begin
m:=1; y:=y+1 end
end
else if d=31 then
begin
d:=1; m:=m+1
end
end;
writeln('Следующий день',d,'.',m,'.',y)
end.
Сообщение отредактировал marfarus - Воскресенье, 01.02.2015, 19:45 |
| |
| |
| diamFC | Дата: Воскресенье, 01.02.2015, 19:48 | Сообщение # 2 |
|
Полковник
Группа: Администраторы
Сообщений: 207
Статус: Offline
| Для исходников в которых до 30 строк кода, программа diamFC строит блок-схему бесплатно.
Сделайте её, пожалуйста, сами.
Ссылка для скачивания последней версии программы: http://diamfc.ucoz.ru/load/0-0-0-1-20
|
| |
| |
Программа для построения БЛОК-СХЕМ!!!
