Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 01.12.2015
Сообщений: 1
1

Построить блок-схему к этому коду

21.02.2016, 17:25. Показов 521. Ответов 1
Метки нет (Все метки)

Нужно построить блок-схему к функции. Программа работает по формуле F=G*(m1*m2)/r*r

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
  Form5: TForm5; 
    A, B, Sila: real;
  function Sil(A, B,r: real): real;
 
implementation
{$R *.dfm}
 
procedure TForm5.Button1Click(Sender: TObject);
var m1,m2,r,F,G :real; 
begin
 m1:= strtofloat(Edit1.Text);
 m2:= strtofloat(Edit2.Text);           
 r:= strtofloat(Edit3.Text);
 Sila:=Sil(A, B,r); 
 Edit4.Text:= floattostr(Sila); 
end;
 
function Sil(A, B, r:real):real; 
begin
 Sila:=G*(A*B)/sqr(r);
end;
0
Заказывайте контрольные, курсовые и дипломы здесь.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.02.2016, 17:25
Ответы с готовыми решениями:

Построить блок-схему по коду
Program project1; uses crt; var s,a:string; i,k,min,max,max1,min1,t:integer; b:boolean;...

Построить блок-схему по коду
Решение методом Гаусса. Нужно построить блок-схему по коду. Помогите пожалуйста. unit GaussU1; ...

Построить блок схему по программному коду
Дан массив натуральных чисел размерности n , содержащий некоторое количество одинаковых чисел....

Построить блок схему по данному коду
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

1
Эксперт Pascal/Delphi
4668 / 2655 / 832
Регистрация: 04.10.2012
Сообщений: 9,677
21.02.2016, 17:49 2
Цитата Сообщение от Жанель Посмотреть сообщение
Нужно построить блок-схему
стройте
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.02.2016, 17:49

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Как создать блок-схему по этому коду?
program case1; Procedure Case2(a:integer); begin Writeln ('Ведите число дня недели'); ...

Не могу сделать к этому коду блок-схему алгоритма
Помогите как сделать.. <html> <head> <script language = "JavaScript"> function calc(x) { ...

Если есть добрые люди, напишите пожалуйста блок-схему к вот этому коду!
Помогите пожалуйста uses crt; const ...

построить блок-схему цикл к этому уравнению
http://webfile.ru/4030424


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

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

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