Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 13.11.2008, 23:47   #1
ylvia
 
Регистрация: 13.11.2008
Сообщений: 3
По умолчанию помогите пожалуйста написать програмку для вычисления квадратного корня ! срочно !!!

задача : написать програму для вычисления квадратного корня ! саую простую ! не врубаюсь совсем !
Жить надо дольше и чаще .
ylvia вне форума
Старый 13.11.2008, 23:53   #2
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 16,216
По умолчанию

Код:
begin
  WriteLn (Sqrt (25));
end.
Arigato вне форума
Старый 13.11.2008, 23:53   #3
MalexG
Форумчанин
 
Регистрация: 06.11.2008
Сообщений: 100
По умолчанию

В Pascal, Delphi для вычисления квадратного корня исп. функция sqrt(x), где x-аргумент функции.
MalexG вне форума
Старый 13.11.2008, 23:54   #4
ylvia
 
Регистрация: 13.11.2008
Сообщений: 3
По умолчанию

нет, надо решение квадратного уравнения вида ax2 +bx+c=0
Жить надо дольше и чаще .
ylvia вне форума
Старый 13.11.2008, 23:55   #5
ylvia
 
Регистрация: 13.11.2008
Сообщений: 3
По умолчанию

Цитата:
Сообщение от Arigato Посмотреть сообщение
Код:
begin
  WriteLn (Sqrt (25));
end.
это наверное едиественное что я знаю в паскале
Жить надо дольше и чаще .
ylvia вне форума
Старый 14.11.2008, 15:22   #6
TheLostOne
Пользователь
 
Регистрация: 31.10.2008
Сообщений: 19
По умолчанию

Отрицательный дискриминант учитывать?
TheLostOne вне форума
Старый 14.11.2008, 15:51   #7
VVM
Форумчанин
 
Аватар для VVM
 
Регистрация: 06.06.2007
Сообщений: 282
По умолчанию

Это pas:
Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Bevel1: TBevel;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Discr, A, B, C, X1, X2: real;
begin
  Memo1.Clear;
  A := StrToFloatDef(Edit1.Text, 0);
  B := StrToFloatDef(Edit2.Text, 0);
  C := StrToFloatDef(Edit3.Text, 0);
  Memo1.Lines.Add('A = ' + FloatToStr(A));
  Memo1.Lines.Add('B = ' + FloatToStr(B));
  Memo1.Lines.Add('C = ' + FloatToStr(C));
  Memo1.Lines.Add('-------------');
  Discr := B * B - 4 * A * C;
  Memo1.Lines.Add('Дискриминант = ' + FloatToStr(Discr));
  if Discr < 0 then
  begin
    Memo1.Lines.Add('Дискриминант отрицательный, нет решений.');
    exit;
  end;
  X1 := (-B + Sqrt(Discr)) / 2 * A;
  X2 := (-B - Sqrt(Discr)) / 2 * A;
  Memo1.Lines.Add('X1 = ' + FloatToStr(X1));
  Memo1.Lines.Add('X2 = ' + FloatToStr(X2));
end;

end.
А это dfm:
Код:
object Form1: TForm1
  Left = 427
  Top = 337
  Caption = #1059#1088#1072#1074#1085#1077#1085#1080#1103
  ClientHeight = 290
  ClientWidth = 405
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesigned
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 6
    Top = 6
    Width = 391
    Height = 93
    Shape = bsFrame
  end
  object Label1: TLabel
    Left = 116
    Top = 16
    Width = 103
    Height = 16
    Caption = #1050#1086#1101#1092#1092#1080#1094#1080#1077#1085#1090' 1'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 116
    Top = 43
    Width = 103
    Height = 16
    Caption = #1050#1086#1101#1092#1092#1080#1094#1080#1077#1085#1090' 2'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 116
    Top = 70
    Width = 103
    Height = 16
    Caption = #1050#1086#1101#1092#1092#1080#1094#1080#1077#1085#1090' 3'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Edit1: TEdit
    Left = 228
    Top = 13
    Width = 61
    Height = 24
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    Text = '0'
  end
  object Edit2: TEdit
    Left = 228
    Top = 40
    Width = 61
    Height = 24
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    Text = '0'
  end
  object Edit3: TEdit
    Left = 228
    Top = 67
    Width = 61
    Height = 24
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    Text = '0'
  end
  object Button1: TButton
    Left = 154
    Top = 112
    Width = 97
    Height = 25
    Caption = #1042#1099#1095#1080#1089#1083#1080#1090#1100
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    OnClick = Button1Click
  end
  object Memo1: TMemo
    Left = 0
    Top = 152
    Width = 405
    Height = 138
    Align = alBottom
    Color = clMenuText
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 4
  end
end
Разрабатывалось в Delphi 2009.Вложение 6632
Вложения
Тип файла: rar Uravn.rar (211.9 Кб, 15 просмотров)
Не важно, как часто вы падаете. Важно, как часто вы поднимаетесь. Винс Ломбарди.

Последний раз редактировалось VVM; 14.11.2008 в 16:01.
VVM вне форума
Старый 20.02.2012, 19:29   #8
medetsportik
Новичок
Джуниор
 
Регистрация: 20.02.2012
Сообщений: 1
По умолчанию

помогомите пожалуйста написать програмку: "метод квадратных корней для симетрической матрицы при решени систем линейных алгебрических уровнений" !!!!
medetsportik вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите пожалуйста написать проверку ввода для этой программы Saaashka Помощь студентам 1 01.07.2008 09:11
помогомите написать програмку для передачи сообщений в локальной сети Илюха Работа с сетью в Delphi 6 20.11.2007 00:57
помогите написать програмку. Kashp Помощь студентам 14 03.09.2007 10:54
Кто может написать програму для вычисления детерминанта в паскале? Mita Помощь студентам 3 11.07.2007 21:11