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

Татьяна19 · 31.10.2011, 16:37

Здравствуйте! помогите с решение пожалуйста

Vladimir_S · 31.10.2011, 17:04

Цитата:

Сообщение от Татьяна19

Здравствуйте! помогите с решение пожалуйста

Охо-хо, ну до чего надоело...

Язык какой?!!! Pascal? Delphi?

Татьяна19 · 31.10.2011, 18:46

ой, извиняюсь, Pascal.

Vladimir_S · 31.10.2011, 20:07

С блок-схемами, к сожалению, помочь не смогу, а вот решения - пожалуйста:

1.

Код:

Const
 a=5.0;
 x=2.3;
var
 t:Real;
begin
 t:=1.0/Cos(x)+Ln(Abs(Sin(x/2)/Cos(x/2)))+Exp(1.0/3*Ln(a*x));
 Writeln('t= ',t:0:5);
 Readln
end.

2.

Код:

Const
 g=9.81;
 L=0.0278;
var
 T:Real;
begin
 T:=2.0*Pi*SQRT(L/g);
 Writeln('T= ',t:0:5,' sec');
 Readln
end.

3.

Код:

Var
 a,b,c,d,u1,u2,u3:Integer;
Begin
 write('a= ');
 readln(a);
 write('b= ');
 readln(b);
 write('c= ');
 readln(c);
 write('d= ');
 readln(d);
 if a<b then u1:=a else u1:=b;
 if c>d then u2:=c else u2:=d;
 if u1>u2 then u3:=u1 else u3:=u2;
 writeln('Max[Min(a,b,b*b),Max(c,d)]= ',u3);
 readln
End.

Внимание! Здесь использовано то, что, если b - целое число, то b² НЕ может быть меньше b. А потому в первом минимуме достаточно сравнить a и b.

4.

Код:

Var
 a,x,y:Real;
Begin
 write('a= ');
 readln(a);
 write('x= ');
 readln(x);
 if a<x then y:=a*x else
 if a>x then y:=a*a-x*x else
 y:=a*a+x*x;
 writeln('y= ',y:0:5);
 readln
End.

А вообще, Таня, простите, но с подобными глупыми пустячками надо бы справляться самостоятельно, а не бегать по форумам. Извините еще раз.

DDS · 31.10.2011, 20:51

Блок-схемы к 1 и 2 задачам

DDS · 31.10.2011, 20:55

А вот блок-схемы к 3 и 4 задачам.

Татьяна19 · 01.11.2011, 08:26

Огромное спасибо за помощь!

31.10.2011, 16:37	#1 (permalink)
Татьяна19 Member Регистрация: 15.03.2011 Сообщений: 15 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Составить блок-схему и программу Здравствуйте! помогите с решение пожалуйста Миниатюры

31.10.2011, 20:07	#4 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	С блок-схемами, к сожалению, помочь не смогу, а вот решения - пожалуйста: 1. Код: Const a=5.0; x=2.3; var t:Real; begin t:=1.0/Cos(x)+Ln(Abs(Sin(x/2)/Cos(x/2)))+Exp(1.0/3Ln(ax)); Writeln('t= ',t:0:5); Readln end. 2. Код: Const g=9.81; L=0.0278; var T:Real; begin T:=2.0PiSQRT(L/g); Writeln('T= ',t:0:5,' sec'); Readln end. 3. Код: Var a,b,c,d,u1,u2,u3:Integer; Begin write('a= '); readln(a); write('b= '); readln(b); write('c= '); readln(c); write('d= '); readln(d); if a<b then u1:=a else u1:=b; if c>d then u2:=c else u2:=d; if u1>u2 then u3:=u1 else u3:=u2; writeln('Max[Min(a,b,bb),Max(c,d)]= ',u3); readln End. Внимание! Здесь использовано то, что, если b - целое число, то b² НЕ может быть меньше b. А потому в первом минимуме достаточно сравнить a и b. 4. Код: Var a,x,y:Real; Begin write('a= '); readln(a); write('x= '); readln(x); if a<x then y:=ax else if a>x then y:=aa-xx else y:=aa+xx; writeln('y= ',y:0:5); readln End. А вообще, Таня, простите, но с подобными глупыми пустячками надо бы справляться самостоятельно, а не бегать по форумам. Извините еще раз.

31.10.2011, 20:51	#5 (permalink)
DDS Member Регистрация: 15.02.2009 Сообщений: 695 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 523	Блок-схемы к 1 и 2 задачам Миниатюры

31.10.2011, 20:55	#6 (permalink)
DDS Member Регистрация: 15.02.2009 Сообщений: 695 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 523	А вот блок-схемы к 3 и 4 задачам. Миниатюры

31.10.2011, 16:37
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Аналогичные темы уже тут встречались, вот их список Составить блок-схему Помогите пожалуйста составить блок-схему! Помогите написать программу и блок схему в Паскале

31.10.2011, 18:46	#3 (permalink)
Татьяна19 Member Регистрация: 15.03.2011 Сообщений: 15 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	ой, извиняюсь, Pascal.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

01.11.2011, 08:26	#7 (permalink)
Татьяна19 Member Регистрация: 15.03.2011 Сообщений: 15 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Огромное спасибо за помощь!