По программе нужно составить блок-схемы! - Форум
Вторник, 06.12.2016, 08:44
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » По программе нужно составить блок-схемы!
По программе нужно составить блок-схемы!
LAPUSYAДата: Воскресенье, 27.09.2009, 15:29 | Сообщение # 1
Сержант
Группа: Новичок
Сообщений: 5
[ 0 ]
Статус: Offline
Пожалуйста помогите!!!По программе нужно составить блок-схемы!
1)
program z188b;
var g,n,m:integer;
Begin
writeln ('vvedi god,4islo,mesyac');
readln (g,n,m);
case n of
1:if (m+1)>31
then begin
m:=1;
writeln (g,' ',n+1,' ',m);
end
else writeln (g,' ',n,' ',m+1);
2:if (m+1)>28
then begin
m:=1;
writeln (g,' ',n+1,' ',m);
end
else writeln (g,' ',n,' ',m+1);
3:if (m+1)>31
then begin
m:=1;
writeln (g,' ',n+1,' ',m);
end
else writeln (g,' ',n,' ',m+1);
4:if (m+1)>30
then begin
m:=1;
writeln (g,' ',n+1,' ',m);
end
else writeln (g,' ',n,' ',m+1);
5:if (m+1)>31
then begin
m:=1;
writeln (g,' ',n+1,' ',m);
end
else writeln (g,' ',n,' ',m+1);
6:if (m+1)>30
then begin
m:=1;
writeln (g,' ',n+1,' ',m);
end
else writeln (g,' ',n,' ',m+1);
7:if (m+1)>31
then begin
m:=1;
writeln (g,' ',n+1,' ',m);
end
else writeln (g,' ',n,' ',m+1);
8:if (m+1)>31
then begin
m:=1;
writeln (g,' ',n+1, ' ',m);
end
else writeln (g,' ',n,' ',m+1);
9:if (m+1)>30
then begin
m:=1;
writeln (g,' ',n+1,' ',m);
end
else writeln (g,' ',n,' ',m+1);
10:if (m+1)>31
then begin
m:=1;
writeln (g,' ',n+1,' ',m);
end
else writeln (g,' ',n,' ',m+1);
11:if (m+1)>30
then begin
m:=1;
writeln (g,' ',n+1,' ',m);
end
else writeln (g,' ',n,' ',m+1);
12:if (m+1)>31
then begin
m:=1;
n:=1;
writeln (g+1,' ',n,' ',m);
end
else writeln (g,' ',n,' ',m+1);
end;
End.
2)
program z77;
var a,d,n,b,c,x,y: integer;
begin
writeln('vvedi trehznachnoe chislo');
readln(a);
writeln('vvedi dvyhznachnoe chislo');
readln(b);
n:=a+b;
if (n mod 2)=0 then
begin
d:=n mod 10;
n:= n div 10;
x:= n mod 10;
n:= n div 10;
y:= n mod 10;
n:= n div 10;
writeln(n,' ',y,' ',x,' ',d);
end
else begin
n:= a-b;
d:=n mod 10;
n:= n div 10;
x:= n mod 10;
n:= n div 10;
y:= n mod 10;
n:= n div 10;
writeln(n,' ',y,' ',x,' ',d);
end;
end.
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » По программе нужно составить блок-схемы!
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016