Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 11653
Последний выпуск: 19.06.2015

Кто сможет нарисовать блок схему?

83K
27 июня 2012 года
mirka
1 / / 27.06.2012
ребята выручайте.. ппц устал уже в нете копаться кто может нарисовать блок схему по исходнику.(тоесть уже готовой программе). если у вас есть небольшие программы с блок схемами ПЛИЗ выложите их мне надо 5штук. если что вот мои 5 произвольных программ

1)

{ Найти сумму. }
uses crt;
var a,b,s : integer;
begin
clrscr;
write(‘a=’);readln(a);
write(‘b=’);readln(b);
s:=a+b;
write(‘сумма s=’,s);
readln;
end.

2)
{ Найти наибольшее из четырёх чисел. }
uses crt;
var a,b,c,d,max,max1,max2 : real;
procedure bol2( aa,bb : real; var maxmax : real );
begin
if aa>bb then maxmax:=aa
else maxmax:=bb;
end;
begin
clrscr;
write(‘введте a,b,c,d через пробел ‘);
readln(a,b,c,d);
bol2(a,b,max1);
bol2(c,d,max2);
bol2(max1,max2,max);
writeln(‘max=’,max);
readln;
end.

3)
{Дано предложение составить программу располагающую слова в порядке убывания длины слов}
uses crt;
type slov = array [1..10] of string;
var p,b : string;
s : slov;
i,j,l : integer;
q : boolean;
procedure maxdl( ii,jj : integer;ss : slov; var ll : integer );
var t:integer;m:string;
begin
m:=ss[ii]; { считает max(t) }
ll:=ii; { l-номер max }
for t:=ii+1 to jj do
if length(m)<length(ss[t]) then
begin
m:=ss[t];
ll:=t;
end;
end;
begin
clrscr;
write(‘текст p=’);readln(p);
j:=1;
for i:=1 to length(p) do
begin
b:=p;
if b=’ ‘ then j:=j+1
else s[j]:=s[j]+b;{ склеивание слова и заносим в таб }
end;
b:=»;
for i:=1 to j do
begin
maxdl(i,j,s,l); { находим номер мах элм }
b:=s; { меняем местами мах элм: }
s:=s[l];
s[l]:=b;
end;
for i:=1 to j do write(s,’ ‘);
readln;
end.

4)
{ Определить Является ли n-угольник выпуклым
Ввод состоит из n отрезков, n>3 и n<10 }
uses crt;
var m,n,k,i,j : integer;
ot : boolean;
x,y : array[1..10] of integer;
z1,z2 : real;
procedure haltproc;
begin
writeln(‘Неверные данные’);
writeln(‘n >= 3&#8242;);
readln;
halt;
end;
begin
clrscr;
write(‘n=’);readln(n);
if n<3 then haltproc;
for i:=1 to n do
begin
write(‘x[',i,']=’);readln(x);
write(‘y[',i,']=’);readln(y);
end;
ot:=true;
for i:=1 to n do
begin
j:=i+1;
k:=j+1;
if k=n+1 then k:=1;
if i=n then j:=1;
m:=i-1;
if m=n-1 then k:=2;
if i=1 then m:=n;
z1:=(x[m]-x)*(y[j]-y)-(y[m]-y)*(x[j]-x);
z2:=(x[k]-x)*(y[j]-y)-(y[k]-y)*(x[j]-x);
if z1*z2<0 then ot:=false;
end;
if ot=true then write(‘выпуклый’)
else write(‘не выпуклый’);
readln;
end.

5)
{ Составить алгоритм нахождения суммы цифр числа. }
uses crt;
var i,n,k,s : longint;
b : array [1..10] of integer;
begin
clrscr;
write(‘введите число ‘);readln(n);
k:=1;
while n>=1 do
begin
b[k]:=trunc(n) mod 10; {элм. таб}
n:=trunc(n)div 10;
k:=k+1;
end;
for i:=1 to k do s:=s+b;
write(‘s=’,s);
readln;
end.

Ребята УМОЛЯЮ СДЕЛАЙТЕ БЛОК СХЕМЫ ЕСЛИ У ВАС ЕСТЬ УЖЕ ГОТОВЫЕ ПРОГРАМКИ С БЛОК СХЕМАМИ ВЫЛОЖИТЕ. ЕСТЬ ХОТЬ 1 ЖИВОЙ ПРОГРАММИСТ?
82K
27 июня 2012 года
DSJ
2 / / 04.05.2012
Я могу.

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог