Написание простенькой программки на 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
Специально для http://seo.eurobb.ru
Похожие темы Учим турбо паскаль с нуля , операторы turbo pascal примеры задач Решение задач на turbo pascal , турбо паскаль, решебник по информатике Логические велечины , операции , выражение