Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
ItaKKa
1

Блок-схемы

22.05.2009, 17:04. Показов 992. Ответов 1
Метки нет (Все метки)

Как составить блок схему???подскажите плизззззззззззззз
program 3;
uses crt;
var y,b,x,c: real;
a:integer;
begin
clrscr;
write ('a='); readln (a);
write ('x='); readln (x);
write ('b='); readln (b);
write ('c='); readln (c);
if a=2 then y:=a+b*x+c*sqr(x);
if a=3 then y:=sqr(a*sin(x));
if a=4 then y:=a+b*x;
if a=5 then y:=a*exp(4*ln(x))/4+b*sqr(x)/2;
if a in [2..5] then
writeln('y=',y:0:5);
writeln('net reshenia');
readln
end.






program 2;
uses crt;
var mx,sr,mn:integer;
a,b,c:integer;
begin
clrscr;
mx:=a;
if b>mx then mx:=b;
if c>mx then mx:=c;
mn:=a;
if b<mn then mn:=b;
if c<mn then mn:=c;
sr:=a+b+c-mx-mn;
end;
a,b,c,d,max,srd,min:integer;
begin
clrscr;
repeat
writeln('Vvodite po 3 chisla, okonchanie vvoda c=0:');
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
if (a+b<=c)or (a+c<=b)or(b+c<=a) then
writeln('eto ne treugolnik!');
else if (a=b) and (b=c) then writln('eto ravnostoroney treugolnik!');
else if ((a=b) and (b<>c)) or ((a=c)and (b<>c))or ((b=c) and (a<>c));
writeln('eto ravnobedrenniy treugolnik!');
else
begin
Sort(a,b,c,max,min,srd);
d:=sqr(min)+sqr(srd);
e:=sqr(max);
if d>e then writeln('eto ostrougolniy treugolnik!');
else if d<e then writeln('eto tupougolniy treugolnik!');
else if d=e then writeln('eto priamougolniy treugolnik!');
end:
until c=0;
readln
end.

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.05.2009, 17:04
Ответы с готовыми решениями:

=( блок схемы
Здравствуйте мальчики помогите плиз дурацкие блок схемы програмки сделала а с блок схемами не как...

блок-схемы
Помогите пожалуйста написать блок-схему к задаче с оператором case:Единицы массы пронумерованы...

Блок схемы
Нарисуйте блок схемы плиз: 1.Заданы два одномерных массива A(N)(N≤20) и...

блок схемы !
помогите написать блок схему к программе можно нарисовать просто от руки в паинте ...

1
10021 / 2609 / 84
Регистрация: 17.02.2009
Сообщений: 10,364
22.05.2009, 17:13 2
Цитата Сообщение от ItaKKa Посмотреть сообщение
Как составить блок схему?
1. разбить программу на составляющие логические элементы (в основном 1 оператор - элемент)
2. каждому логическому элементу представить соответсвуюющий графический
3. нарисовать (сначала в уме, потом на бумаге, потом при необходимости на компутере, обычно рисуют в Visio)
подробнее здесь

Не по теме:

зы. данная сцылка разрешена

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.05.2009, 17:13

Блок-схемы
Напишите пожалуйста блок-схему к задаче : var s:string; i,k:integer; begin readln(s); for i:=1...

блок схемы...
Помогите сделать блок схемы... 1) var a: array of integer; kol, j, i, n: integer; begin...

блок схемы
кто может помочь оформить блок схемы по госту, я схемы нарисовал, мне нужно чтоб мне...

блок схемы!
приветик! ребят помогите пожалуста построит блок схемы а то я сама чёта не помню как :( program...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.