1

Тема: Обчислення виразу

допоможіть Скласти програму обчислення на ПЕОМ значення виразів, вказаних у таблиці 6
(варіант 5), згідно з заданими формулами та вихідними даними.  заздалегідь дякую )

Post's attachments

Безымянный2.png 9.91 kb, 267 downloads since 2013-11-11 

2

Re: Обчислення виразу

http://s018.сайт-злодій/i504/1305/4e/128b3beefcef.jpg

3

Re: Обчислення виразу

ось, там є приклад... мені потрібно 5 варіант

Post's attachments

LR_3_5.pdf 123.7 kb, 2446 downloads since 2013-11-11 

4

Re: Обчислення виразу

- Ваші напрацювання, а не Вашого інституту де?
- Де Ваш код? Де Ви намагаєтесь розв_язувати задачу. Навіть якщо він не працює.
- Де ВАШІ ідеї, як розв_язувати це завдання.

х За шекель можу написати за Вас

5

Re: Обчислення виразу

ну хоча блок-схему допоможіть скласти .)

6

Re: Обчислення виразу

$5

7 Востаннє редагувалося HetmanNet (11.11.2013 23:35:33)

Re: Обчислення виразу

Ось програма, та є правило - тобі одну, ти три іншим. Тобто на одну написану тобі програму (алгоритм), ти маєш написати безкоштовно по програмі (алгоритму) трьом іншим відвідувачам форуму. Не хо писати для інших - маєш два варіанти: більше не з'являтися на форумі чи надіслати мені гроші (32 грн.). Вибір за тобою.

{
   Лабораторна робота #5
   
   Copyright 2013 Viktor Matvieienko <Hetman.Net@gmail.com>
   
   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2 of the License, or
   (at your option) any later version.
   
   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.
   
   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
   MA 02110-1301, USA.
   
   
}


program replace;
uses crt;
const a=1.5;
var x : Extended;
var y : Extended;
var b : Extended;
var c : Extended;
var d : Extended;
var e : Extended;
BEGIN
    WriteLn('Run!');
    WriteLn('y=((cos(x))^2-x)/sqrt(a^2+x^2), a=1.5, x=0,0.1..1');
    d:=a*a;
    x:=0;
    while x<1.1 do
        begin
        b:=Cos(x);
        c:=b*b;
        b:=c-x;
        c:=x*x;
        e:=c+d;
        c:=Sqrt(e);
        y:=b/c;
        WriteLn('x=',x:8:5,'    ','y=',y:8:3);
        x:=x+0.1;
        end;
    WriteLn('Stoped!')    
END.

8

Re: Обчислення виразу

а чого 32 ? як вираховуєшь собівартість ? і чого так дешево ? у тебе є трійко добірних китайців-програмерів в підвалі ?

9 Востаннє редагувалося Chemist-i (11.11.2013 23:53:47)

Re: Обчислення виразу

Я думаю 32, бо якщо HetmanNet візьме більше в нього буде переповнення, і коунтер буде постійно обнулятись =)

10

Re: Обчислення виразу

Комусь вже вдалось щось заробити? :)

11 Востаннє редагувалося HetmanNet (12.11.2013 00:22:27)

Re: Обчислення виразу

Singularity написав:

а чого 32 ? як вираховуєшь собівартість ? і чого так дешево ? у тебе є трійко добірних китайців-програмерів в підвалі ?

a = pow(2, number_of_lines)/pow(2, 5);
b = ceil(a);
c = number_of_branching/b;
d = ceil(c);
e = b+1;
f = 5*b;
price = pow(e, f)*d;

12

Re: Обчислення виразу

Chemist-i написав:

Я думаю 32, бо якщо HetmanNet візьме більше в нього буде переповнення, і коунтер буде постійно обнулятись =)

От дурко, якщо HetmanNet має комірку пам'яті довжиною в 5 біт, то значення 32 вже є переповненням! Тому ваша версія хибна.

13

Re: Обчислення виразу

HetmanNet написав:
   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
   MA 02110-1301, USA.

Щось я не бачу копії GNU GPL поруч із програмою. Чи мені писати до FSF?

14

Re: Обчислення виразу

koala написав:
HetmanNet написав:
   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
   MA 02110-1301, USA.

Щось я не бачу копії GNU GPL поруч із програмою. Чи мені писати до FSF?

Пиши, хай вони тобі надішлють копію. :D

Подякували: koala1