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

Как заменить код "метод правых прямоугольников" на "метод трапеции" на примере данной программы

14.12.2019, 22:01. Показов 568. Ответов 1
Метки нет (Все метки)

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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
program lab3;
uses Crt;
 
var x, s, h, minlim, maxlim, funcabspog:real;
    prssedkey:char;
    enteredlims, enteredstep, hasresult:boolean;
    curitem: integer;
 
const menu: array[1..5] of string = ('Predely', 'Shag', 'Result', 'Pogreshnost``', 'Exit');
procedure writemenu();
var item:integer;
begin
    for item:= 1 to length(menu) do begin
        if item = curitem then TextBackground(Blue)
        else TextBackground(Black);
        writeln(item,'.',menu[item]);
    end;
    TextBackground(Black);
end;
 
function f(x:real):real;
begin
    f:=x*x*x+(-2)*x*x+(-2)*x+(10);
end;
 
function fp(x:real):real;
begin
    fp:=;
end;
 
begin
    enteredstep:=false;
    enteredlims:=false;
    hasresult:=false;
    curitem:=1;
    while true do begin
        clrscr();
        writemenu();
        while true do begin
            prssedkey:=ReadKey();
            if prssedkey = char(13) then break;
            if prssedkey <> char(0) then continue;
            prssedkey:= ReadKey();
            case prssedkey of
                char(72): curitem:=curitem-1;
                char(80): curitem:=curitem+1;
                else continue;
            end;
            if curitem>length(menu) then curitem:=1
            else if curitem<1 then curitem:=length(menu);
            clrscr();
            writemenu();
        end;
        writeln();
        case curitem of
            1: begin
                repeat begin
                    Write('min: '); readln(minlim);
                    if minlim<=-2.3888 then begin
                        writeln('nizhniy predel dolzhen byt` >-2.3888');
                        continue;
                    end;
                    Write('max: '); readln(maxlim);
                    if maxlim<=minlim then
                        writeln('nizhniy predel dolzhen byt` men`she verhnego');
                end until (maxlim>minlim) and (minlim>-2.3888);
 
                enteredlims:= true;
                hasresult:=false;
            end;
            2: begin
                repeat begin
                    Write('shag: '); readln(h);
                    if h<=0 then writeln('shag dolzhen byt` >0.');
                end until h>0;
                enteredstep:= true;
                hasresult:=false;
            end;
            3: begin
                if (enteredstep = false) or (enteredlims = false) then writeln('vvedeny ne vse dannye')
                else begin
                    s:=0;
                    x:= minlim;
                    repeat begin
                        x:=x+h;
                        s:=s+f(x)*h;
                    end until x>maxlim;
                    writeln('s=', s:0:4);
 
                    hasresult:=true;
                end;
            end;
            4: begin
                if hasresult = false then writeln('snachala nado poschitat` plochshad`')
                else begin
                    funcabspog:=abs(fp(maxlim) - fp(minlim) - s);
                    writeln('abs pog=',funcabspog:0:4);
                    writeln('otn pog=',(s/funcabspog*100):0:4,'%');
                end;
            end;
            5: exit;
        end;
        ReadLn();
    end;
    ReadLn();
end.
Как заменить код "метод правых прямоугольников" на "метод трапеции" на примере данной программы
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.12.2019, 22:01
Ответы с готовыми решениями:

Как написать регулярное выражение для выдергивания английских букв и символов: "+", ",", ":", "-", " ", "!", "?" и "."
Не могу ни как собразить как написать регулярное выражение для выдергивания английских букв и...

2 Программы. На "целые числа и системы счисления" и на "метод деления отрезка пополам"
1)Дано натурально число n. Среди чисел 1, ... ,n найти все такие, запись которых совпадает с...

Ругается на метод "Ни одна из перегрузок метода "Change" не принимает "1" аргументов"
Всем привет, помогите, пожалуйста, разобраться где у меня ошибка в программе. Дан массив размером...

"student" не содержит определения для "Name" и не был найден метод расширения "Name"
Здравствуйте. Помогите пожалуйста найти ошибку (&quot;student&quot; не содержит определения для &quot;Name&quot; и...

1
242 / 161 / 89
Регистрация: 07.11.2019
Сообщений: 557
15.12.2019, 09:07 2
Цитата Сообщение от Pussy228 Посмотреть сообщение
function fp(x:real):real;
begin
fp:=;
end;
ценная вещь
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.12.2019, 09:07

Заменить символы "1", "2", "3" словами "один", "два", "три"
Дана строка символов. Заменить символы &quot;1&quot;, &quot;2&quot;, &quot;3&quot; словами &quot;один&quot;, &quot;два&quot;, &quot;три&quot;. Оформить в...

Нужны задачи и их решения по темам "Метод полного перебора" и "Метод Greedy"
Нужны задачи и их решения по темам &quot;Метод полного перебора&quot; и &quot;Метод Greedy&quot;

В зависимости от времени года "весна", "лето", "осень", "зима" определить погоду "тепло", "жарко", "холодно", "очень холодно"
В зависимости от времени года &quot;весна&quot;, &quot;лето&quot;, &quot;осень&quot;, &quot;зима&quot; определить погоду &quot;тепло&quot;,...

Получить значение из {"text1":"val1","text2":"val2","text3":{"text":"val"}}
Есть такая строка var my = '{&quot;text1&quot;:&quot;val1&quot;,&quot;text2&quot;:&quot;val2&quot;,&quot;text3&quot;:{&quot;text&quot;:&quot;val&quot;}}'; Как из...


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

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

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