Ви не увійшли. Будь ласка, увійдіть або зареєструйтесь.
Ласкаво просимо вас на україномовний форум з програмування, веб-дизайну, SEO та всього пов'язаного з інтернетом та комп'ютерами.
Будемо вдячні, якщо ви поділитись посиланням на Replace.org.ua на інших ресурсах.
Для того щоб створювати теми та надсилати повідомлення вам потрібно Зареєструватись.
Український форум програмістів → Pascal/Delphi → Підпрограма типу функції
Сторінки 1
Для відправлення відповіді ви повинні увійти або зареєструватися
Дані сторони трьох трикутників. Визначити їх площу. Скористатися підпрограмою типу функції.
Ви часом не однокурсниця ulia_oleynik?
Дані сторони трьох трикутників. Визначити їх площу. Скористатися підпрограмою типу функції.
Дано інтернет, конспекти, онлайн підручники, вікіпедія. Визначити власну лінь. Скористатися даними ресурсами і своїм мозком.
anya.silchenko
Ви уже пробували щось робити? Що саме у вас не виходить?
Мабуть в її коді були відсутні наступні строки, тому у неї не виходило.
{
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.Ось програма, та є правило - тобі одну, ти три іншим. Тобто на одну написану тобі програму (алгоритм), ти маєш написати безкоштовно по програмі (алгоритму) трьом іншим відвідувачам форуму. Не хо писати для інших - маєш два варіанти: більше не з'являтися на форумі чи надіслати мені гроші (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.Ось програма, та є правило - тобі одну, ти три іншим. Тобто на одну написану тобі програму (алгоритм), ти маєш написати безкоштовно по програмі (алгоритму) трьом іншим відвідувачам форуму. Не хо писати для інших - маєш два варіанти: більше не з'являтися на форумі чи надіслати мені гроші (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.
Перед тим як вимагати гроші - перевірте код, бо тільки поверхнево оглянувши помітив чотири синтаксичні помилки. Ви пане шахрай! Тож я проситиму вас забанити чи покарати.
Я створював форум не для того, щоб ви заробляли гроші чи щось таке. Я створював форум для того щоб новачкам могли допомогти люди, які розбираються в програмуванні/комп'ютерах. Професіонали змогли обговорити якісь цікаві теми. Для того, щоб люди, яким цікаве програмування змогли знайти тут корисну інформацію українською мовою. Я створював цей форум для України, для українців.
А ви просто хочете обідрати дівчину. А може їй просто треба допомога? Може в неї в інституті поганий викладач з програмування. Може їй програмування навіть не потрібно? Ви ж знаєте як влаштована у вас освіта, що викладають в університетах. Просто хочете на цьому заробити?
Я розумію, що є правила, але ж не потрібно забувати про мораль.
В подальшому прошу або просто ігнорувати подібні теми або допомагати просто так.
Пане HetmanNet, ви ліцензію читали?
До речі, помилок 5 
Але якщо ви вважаєте, що самі без гріха...
Пане Replace, очевидно, що ця "дівчина" просто розкида(ла) завдання по десятку форумів у сподіванні, що в когось спрацює СПВПФ.
Пане HetmanNet, ви ліцензію читали?
До речі, помилок 5Пане Replace, очевидно, що ця "дівчина" просто розкида(ла) завдання по десятку форумів у сподіванні, що в когось спрацює СПВПФ.
Уявіть собі читав. Щодо помилок - то оглядав поверхнево, просто чотири помилки кинулися в очі одразу, якщо перечитував кожну строчку коду - то помітив би більше.
Грішні всі, але я перед тим як писати що це коштує грошей перевіряю код. А загалом зараз обговорюють не її, а вас.
Повідомлення писав на емоціях. Просто не треба робити з форуму смітник. Не забувайте, що велика кількість пасивних користувачів.
HetmanNet, ми самі розберемось з порушниками.
Replace, це вже справа кожного допомагати чи ні
І почитайте це оголошення:
Зверніть увагу, форум програмістів Replace.org.ua некомерційний ресурс. Ми нічого не продаємо, реклами теж немає і не планується. Проект створений за рахунок власних зусиль та коштів з метою покращення якості українського інтернету
Якщо хочете робити/продавати лаби, то робіть це за межами форуму.
Так, я однокурсниця ulia_oleynik . Я розумію, що треба намагатися робити все самостійно, але, дійсно, викладач не дає достатньо інформації для виконання робіт. Отже, звертаюся за допомогою до людей, які сильні у цьому питанні. Дякую.
@anya.silchenko
Якщо вам не вистачає інформації, то читайте підручник http://pascal.org.ua/ Воно спеціально для студентів і робилося.
Це так тепер звертаються за допомогою? Цитую: "Підпрограма типу функції. Дані сторони трьох трикутників. Визначити їх площу. Скористатися підпрограмою типу функції." Як на мене, це - наказ, а не звернення за допомогою. Принаймні, в наш час так вважалося, може, зараз щось змінилося.
Можете спробувати почитати ось це.
anya.silchenko, а на кого ви навчаєтесь?
На дружину мільйонера/інженера/програміста/економіста (потрібне викреслити)
Chemist-i, ви віртуалом помилилися...
Сторінки 1
Для відправлення відповіді ви повинні увійти або зареєструватися