1 / 1 / 1
Регистрация: 06.10.2013
Сообщений: 120
1

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

21.10.2013, 12:42. Показов 484. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
program var_5;
uses crt;
var
  x,y:real;
  a,b,h:real;
  Fy:string;
begin
  clrscr;
  write('a=');
  readln(a);
  write('b=');
  readln(b);
  write('h=');
  readln(h);
  x:=a;
  writeln('      X      Y      Вид функции');
  writeln;
  repeat
    if x=0 then
      begin
        y:=exp((sqr(x)+1)*ln(10));
        Fy:='exp((sqr(x)+1)*ln(10))';
        end
    else if x=1 then
      begin
        y:=exp((sqr(x)+1)*ln(10));
        Fy:='exp((sqr(x)+1)*ln(10))';
        end
    else if x=3 then
      begin
        y:=exp((sqr(x)+1)*ln(10));
        Fy:='exp((sqr(x)+1)*ln(10))';
        end
    else if x=4 then
      begin
        y:=exp((sqr(x)+1)*ln(10));
        Fy:='exp((sqr(x)+1)*ln(10))';
        end
    else if x>=5 then
      begin
        y:=sin(x*x)*x+cos(x*x);
        Fy:='sin(x*x)*x+cos(x*x)';
        end
    else if (x=-5) and (x=-1) then
      begin
        y:=1-x-x*x;
        Fy:='1-x-x*x';
        end
    else
      begin
        y:=1-x;
        Fy:='1-x';
        end;
    writeln(x:5:2, ' ' , y:9:2, ' ' , 'y:=', Fy:-12);
    x:=x+h;
    until x>5;
    readln;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.10.2013, 12:42
Ответы с готовыми решениями:

Как написать блок схему к программе
как написать блок схему к программе. uses crt; const n=4; var a:array of integer;...

Составить блок-схему к программе 1 и к программе 2
1) var i, multiply,result:longint; digit:byte; fail:boolean; begin writeln('Input...

Построить блок схему по программе
Uses crt; Var f: text; prov,fam: string ; v,n: integer; ot,d: integer; ...

Нарисовать блок-схему по программе
Помогите нарисовать блок-схему по программе, пожалуйста))) очень надо!!! {------Отрицательные...

2
66 / 69 / 33
Регистрация: 07.10.2013
Сообщений: 396
21.10.2013, 12:50 2
вот
Миниатюры
написать блок схему по программе  
1
66 / 69 / 33
Регистрация: 07.10.2013
Сообщений: 396
21.10.2013, 12:51 3
в той части где происходит ввод чисел можешь всё сократить в одно.
1
21.10.2013, 12:51
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.10.2013, 12:51
Помогаю со студенческими работами здесь

Составить блок-схему к программе
uses crt; const nmax=7; var a:array of integer; n,i,j,imx,jmx:byte; x,y1,y2:integer; begin...

Нарисовать блок-схему по программе
нарисуйте пожалуйста блок схему к этой программе Program V19_N7; uses crt; var F ...

Нарисовать Блок-схему к программе
Var f:array of longint; a,i,i2,i3:integer; begin writeln ('vvedite nomer chisla'); readln (a);...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru