1

Тема: Підпрограма типу функції

Дані сторони трьох трикутників. Визначити їх площу. Скористатися підпрограмою типу функції.

2

Re: Підпрограма типу функції

Ви часом не однокурсниця ulia_oleynik?

3 Востаннє редагувалося DOP (16.11.2013 00:24:05)

Re: Підпрограма типу функції

anya.silchenko написав:

Дані сторони трьох трикутників. Визначити їх площу. Скористатися підпрограмою типу функції.

Дано інтернет, конспекти, онлайн підручники, вікіпедія. Визначити власну лінь. Скористатися даними ресурсами і своїм мозком.

Подякували: miroslav.chandler1

4

Re: Підпрограма типу функції

anya.silchenko
Ви уже пробували щось робити? Що саме у вас не виходить?

5

Re: Підпрограма типу функції

Мабуть в її коді були відсутні наступні строки, тому у неї не виходило.

{
   Anya.pas
   
   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;

type Triangle = record
    a : Double;
    b : Double;
    c : Double;
    s : Double;
    name : String;
end;

var f : Triangle;
var s : Triangle;
var t : Triangle;

function Square(x : Triangle): Triangle;
var p : Double;
var h : Double;
var s : Triangle;
begin
    s:=x;
    p:=(x.a+x.b+x.c)/2;
    h:=(2/x.b)*Sqrt(p*(p-x.a)*(p-x.b)*(p-x.c));
    s.s:=(x.b*h)/2;
    Square:=s;
end;

function Enter(name : String): Triangle;
var e : Triangle;
begin
    e.name:=name;
    WriteLn('Triangle:',name,'Size of the first side:');
    ReadLn(e.a);
    WriteLn('Triangle:',name,'Size of the second side:');
    ReadLn(e.b);
    WriteLn('Triangle:',name,'Size of the third side:');
    ReadLn(e.c);
    e.s:=0;
    Enter:=e;
end;

BEGIN
    f:=Square(Enter('First'));
    s:=Square(Enter('Second'));
    t:=Square(Enter('Third'));
    WriteLn('The area of the ',f.name,'triangle:',f.s:2:8);
    WriteLn('The area of the ',s.name,'triangle:',s.s:2:8);
    WriteLn('The area of the ',t.name,'triangle:',t.s:2:8);
END.

6 Востаннє редагувалося koala (17.11.2013 08:30:06)

Re: Підпрограма типу функції

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

{
   Anya1.pas
   
   Copyright 2013 Koala
   
   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 Anya;
 
function Area(a,b,c:real):real;
var p:real;
begin
  if (a>0)and(b>0)and(c>0)and(a<b+c)and(a>abs(b-c)) then begin
    p:=(a+b+c)/2;
    Area:=sqrt(p*(p-a)*(p-b)*(p-c));{http://uk.wikipedia.org/wiki/Формула_Герона}
  end
  else Area:=0;
end;
 
var a,b,c:real;
    i:integer;
 
begin
  for i:=1 to 3 do begin
    writeln('Input the sides of the ',i,' triangle, separated with spaces:');
    read(a,b,c);
    if Area(a,b,c)>0 then writeln('Area is ',Area(a,b,c))
    else writeln('Such triangle can''t exist!');
  end;
end.

7 Востаннє редагувалося HetmanNet (17.11.2013 00:21:05)

Re: Підпрограма типу функції

koala написав:

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

{
   Anya1.pas
   
   Copyright 2013 Koala
   
   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 Anya;

function Area(a,b,c:real);
var p:real;
begin
  if (a>0)and(b>0)and(c>0)and(a<b+c)and(a>abs(b-c) then begin
    p:=(a+b+c)/2;
    Area:=sqrt(p*(p-a)*(p-b)*(p-c));{http://uk.wikipedia.org/wiki/Формула_Герона}
  end
  else Area:=0;
end;

var i,a,b,c:real;

begin
  for i:=1 to 3 do begin
    writeln('Input the sides of the ',i,' triangle, separated with spaces:');
    read(a,b,c);
    if Area(a,b,c)>0 then writeln('Area is ',Area(a,b,c));
    else writeln('Such triangle can't exist!');
  end;
end.

Перед тим як вимагати гроші - перевірте код, бо тільки поверхнево оглянувши помітив чотири синтаксичні помилки. Ви пане шахрай! Тож я проситиму вас забанити чи покарати.

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

8

Re: Підпрограма типу функції

Я створював форум не для того, щоб ви заробляли гроші чи щось таке. Я створював форум для того щоб новачкам могли допомогти люди, які розбираються в програмуванні/комп'ютерах. Професіонали змогли обговорити якісь цікаві теми. Для того, щоб люди, яким цікаве програмування змогли знайти тут корисну інформацію українською мовою. Я створював цей форум для України, для українців.
А ви просто хочете обідрати дівчину. А може їй просто треба допомога? Може в неї в інституті поганий викладач з програмування. Може їй програмування навіть не потрібно? Ви ж знаєте як влаштована у вас освіта, що викладають в університетах. Просто хочете на цьому заробити?
Я розумію, що є правила, але ж не потрібно забувати про мораль.

В подальшому прошу або просто ігнорувати подібні теми або допомагати просто так.

9

Re: Підпрограма типу функції

Пане HetmanNet, ви ліцензію читали?
До речі, помилок 5 :) Але якщо ви вважаєте, що самі без гріха...

Пане Replace, очевидно, що ця "дівчина" просто розкида(ла) завдання по десятку форумів у сподіванні, що в когось спрацює СПВПФ.

10

Re: Підпрограма типу функції

koala написав:

Пане HetmanNet, ви ліцензію читали?
До речі, помилок 5 :) Але якщо ви вважаєте, що самі без гріха...

Пане Replace, очевидно, що ця "дівчина" просто розкида(ла) завдання по десятку форумів у сподіванні, що в когось спрацює СПВПФ.

Уявіть собі читав. Щодо помилок - то оглядав поверхнево, просто чотири помилки кинулися в очі одразу, якщо перечитував кожну строчку коду - то помітив би більше.
Грішні всі, але я перед тим як писати що це коштує грошей перевіряю код. А загалом зараз обговорюють не її, а вас.

11

Re: Підпрограма типу функції

Повідомлення писав на емоціях. Просто не треба робити з форуму смітник. Не забувайте, що велика кількість пасивних користувачів.

HetmanNet, ми самі розберемось з порушниками.
Replace, це вже справа кожного допомагати чи ні :)

І  почитайте це оголошення:

Зверніть увагу, форум програмістів Replace.org.ua некомерційний ресурс. Ми нічого не продаємо, реклами теж немає і не планується. Проект створений за рахунок власних зусиль та коштів з метою покращення якості українського інтернету

Якщо хочете робити/продавати лаби, то робіть це за межами форуму.

Подякували: Chemist-i2

12

Re: Підпрограма типу функції

Так, я однокурсниця  ulia_oleynik . Я розумію, що треба намагатися робити все самостійно, але, дійсно, викладач не дає достатньо інформації для виконання робіт. Отже, звертаюся за допомогою до людей, які сильні у цьому питанні. Дякую.

13

Re: Підпрограма типу функції

@anya.silchenko
Якщо вам не вистачає інформації, то читайте підручник http://pascal.org.ua/ Воно спеціально для студентів і робилося.

14 Востаннє редагувалося koala (18.11.2013 21:56:23)

Re: Підпрограма типу функції

Це так тепер звертаються за допомогою? Цитую: "Підпрограма типу функції. Дані сторони трьох трикутників. Визначити їх площу. Скористатися підпрограмою типу функції." Як на мене, це - наказ, а не звернення за допомогою. Принаймні, в наш час так вважалося, може, зараз щось змінилося.
Можете спробувати почитати ось це.

15

Re: Підпрограма типу функції

anya.silchenko, а на кого ви навчаєтесь?

16 Востаннє редагувалося Chemist-i (19.11.2013 04:34:31)

Re: Підпрограма типу функції

Replace написав:

anya.silchenko, а на кого ви навчаєтесь?

На дружину мільйонера/інженера/програміста/економіста (потрібне викреслити)

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

17

Re: Підпрограма типу функції

Chemist-i, ви віртуалом помилилися... :)