Составить блок схему к готовому коду

@dark99 · Регистрация: 21.01.2011

Author24 — интернет-сервис помощи студентам

Pascal

uses crt;
function Visok(n:integer):boolean;
begin
Visok:=((n mod 100<>0)and(n mod 4=0))or(n mod 400=0);
end;
function Dn_gd(g,m,d:integer):integer;
var k,k2:integer;
begin
if Visok(g)then k2:=60 else k2:=59;
case m of
1:k:=d;
2:k:=31+d;
3:k:=k2+d;
4:k:=k2+31+d;
5:k:=k2+61+d;
6:k:=k2+92+d;
7:k:=k2+122+d;
8:k:=k2+153+d;
9:k:=k2+184+d;
10:k:=k2+214+d;
11:k:=k2+245+d;
12:k:=k2+275+d;
end;
Dn_gd:=k;
end;
var a,b,c,k:integer;
begin
clrscr;
repeat
write('Год: ');readln(c);
until c>0;
repeat
write('Месяц: ');readln(b);
until b in [1..12];
repeat
k:=0;
write('День: ');readln(a);
if(a<1)or(a>31) then k:=1;
if(b in [4,6,9,11]) and(a>30)then k:=1;
if(b=2) and Visok(c) and(a>29) then k:=1;
if(b=2) and(c mod 4<>0) and(a>28) then k:=1;
until k=0;
write('Номер дня=',Dn_gd(c,b,a));
readln
end.

@N@tali · 26.01.2011, 20:02

блок схема

	26.01.2011, 20:02