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

Написать прогу

05.10.2011, 13:21. Показов 644. Ответов 4
Метки нет (Все метки)

Написать прогу
Миниатюры
Написать прогу  
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.10.2011, 13:21
Ответы с готовыми решениями:

написать прогу...
Задали написать программу движения машины:rtfm:. Вот примерно как это должно выглядеть (в архиве)....

Нужно написать прогу
Дано натуральное число. Выяснит: 1) является ли оно полным квадратом какого-либо числа 2) можно...

Как написать прогу которая делает цифровые подписи
Как написать прогу которая делает цифровые подписи это те которые в свойствах файла. так последняя...

Помогите написать прогу чтобы она считывала пути из файла
Здравствуйте! Помогите написать прогу чтобы она считывала пути из файла (к примеру F:\Фильмы\ и...

4
1 / 1 / 0
Регистрация: 21.09.2011
Сообщений: 7
06.10.2011, 15:10 2
используй case при определении введенного значения while repeat until тоже пригодятся
0
Почетный модератор
64254 / 47554 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
06.10.2011, 15:34 3
Цитата Сообщение от Dark Elf Посмотреть сообщение
значения while repeat until тоже пригодятся
В каком месте?
0
1 / 1 / 0
Регистрация: 21.09.2011
Сообщений: 7
06.10.2011, 17:18 4
виноват! задание не так прочитал! тогда можно просто
Delphi
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
var x:integer;
y:real;
begin
y:=1;
 
                x:=StrToInt(trim(Edit1.Text));
                if x<0 then
                begin
                y:=x+1;
                edit2.Text:=Floattostr(y);
                  end
                else
 
                if x>2 then
                begin
                y:=x+2;
                     edit2.Text:=Floattostr(y);
                     end
                     else
                if 0>=x then
                begin
                y:=x+3;
                edit2.Text:=Floattostr(y);
               end
               else
                if  x<=2 then
                begin
                y:=x+3;
                edit2.Text:=Floattostr(y);
               end;
               end;


только под себя переделать и готово
0
2 / 2 / 0
Регистрация: 08.09.2008
Сообщений: 16
06.10.2011, 21:50 5
Получится что-то вроде этого:
Delphi
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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, [COLOR="Red"]Math[/COLOR];
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Memo1: TMemo;
    Edit1: TEdit;
    Button1: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    function MyPower(a,b:real):real; //после того, как написал это нажимаешь ctrl+shift+c появится тело 
                                                //туда вбиваем Result := exp(b*ln(a));
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
y,x: real;
begin
x:=StrToFloat(Edit1.Text);
  if x<0 then begin
  y:=0.1*x+0.6;
  end
  else if x>2 then begin
       y:=Sin(x)-3;
       end
       else y:=MyPower(4,x)+2;
Memo1.Lines.Add('При х= '+Edit1.Text);
Memo1.Lines.Add('y = '+FloatToStr(y));
Edit1.Text:='';
end;
 
procedure TForm1.FormShow(Sender: TObject);
begin
Form1.Edit1.SetFocus;
end;
 
function TForm1.MyPower(a, b: real): real; //функция возведения в степень
begin
Result := exp(b*ln(a));
end;
 
end.
P.s. писал на embrace Delphie XE, если есть, скину исходники
Миниатюры
Написать прогу  
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.10.2011, 21:50
Помогаю со студенческими работами здесь

блок схема метода симсона. написать по ней прогу в консольном режиме

Создайте кнопку для возведения X в целочисленную степенью написать прогу на delphi с формой
кто может помочь с прогой

Как на делфи написать прогу типа Ввести с клавиатуры целое число и определить делится ли оно нацело на 9 и на 11
как на делфи написать прогу типа Ввести с клавиатуры целое число и определить делится ли оно нацело...

требуется написать прогу
пишите на почту В течение двух дней ТС никак не отреагировал на замечания модераторов. В следующий...

написать прогу!типизированные файлы
!!что за метод концевого значения?где ошибка в лабе?и как ее дописать?

написать прогу с методами Шифрования (((
Нужно написать прогу с методами Шифрования. Методы шифрования используемые в работе: 1. Шифр...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru