Написание простенькой программки на turbo pascale и Delphi. Пример условного программирование на делфи и на  турбо паскале 

Задача

Даны 2 числа a<>b (a не равно b). Возвести в квадрат то из них значение которой не отрицательное и в четверную степень отрицательную

Решаем сначала на турбо паскале (turbo pascale)

Program first;
var a,b:integer;
begin writeln('a,b-?');
readln(a,b);
If (a>=0) then  writeln(sqr(a)) else writeln(sqr(sqr(a)));
If (b>=0) then writeln(sqr(b)) else writeln(sqr(sqr(b)));
readln;
end.

Теперь пишем программку на делфи (Delphi)

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Editb: TEdit;
    Edita: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var a,b:Integer;
begin
a:=StrToInt(Edita.Text);
b:=StrToInt(editb.text);
if a>=0 then Edita.text:=IntToStr(Sqr(a)) else
Edita.Text:=IntToStr(Sqr(Sqr(a)));
if b>=0 then Editb.text:=IntToStr(Sqr(b)) else
Editb.Text:=IntToStr(Sqr(Sqr(b)));
end;
end.

Вы думаете на делфи что то сложно решается ? Я говорю нет на делфи удобно программировать.

В ближайшее время напишу статью про делфи  чтобы было понятно , что  я тут накалябал

Автор © SEO
Специально для https://seo.eurobb.ru

Похожие темы Учим турбо паскаль с нуля , операторы turbo pascal примеры задач Решение задач на turbo pascal , турбо паскаль, решебник по информатике Логические велечины , операции , выражение