Можно попробовать через оператор выбора case (условие со многими выходами) если только такой оператор есть в турбо. в обычном паскале есть.
Например:
writeln(‘Введите цифру ‘);
readln(a);
case a of
0 : writeln (‘ноль‘);
1 : writeln (‘один‘);
2 : writeln (‘два‘);
3 : writeln (‘три‘);
4 : writeln (‘четыре‘);
5 : writeln (‘пять‘);
6 : writeln (‘шесть‘);
7 : writeln (‘семь‘);
8 : writeln (‘восемь‘);
<span> 9 : writeln (‘девять‘);
</span>
Unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
Edit1: TEdit;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
x,y,t:real;
x1,y1,M:integer; //M -коэффициент масштабирования
begin
x1:=Image1.Width div 2;
y1:=Image1.Height div 2;
with Image1.Canvas do
begin
MoveTo(x1,0); LineTo(x1,Image1.Height);
MoveTo(x1,0); LineTo(x1-5,10);
MoveTo(x1,0);LineTo(x1+5,10);
MoveTo(0,y1);LineTo(Image1.Width,y1);
LineTo(Image1.Width-10,y1-5);
MoveTo(Image1.Width,y1); LineTo(Image1.Width-10,y1+5);
TextOut(x1+1,y1+1,'0');
TextOut(Image1.Width-16,y1+2,'X');
TextOut(x1-15,0,'Y');
x := -200;
y := 1/x;
M:=strtoint(edit1.text);
moveto(x1+round(x)*M,(y1-round(y)*M));
repeat
x:=x+0.1;
if x<>0 then //точка разрыва
begin
y := 1/x;
lineto(x1+round(x*M),(y1-round(y*M)));
end
else
begin
x:=x+0.1;
y := 1/x;
MoveTo(x1+round(x*M),(y1-round(y*M)));
end;
until x>=200;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption:='коэффициент масштабирования';
Button1.Caption:='Построить';
Edit1.Text:='15';
Button1.OnClick(sender);//Построение
end;
end.
<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var a:array of real;
a:=SeqRandom(n,-99,99).Select(t->real(t)).ToArray; a.Println; Writeln;
a.Where(t->Trunc(t) mod 3 <>0).Println
end.
a = -3
b = -4 * (-3) - 6 = 12 - 6 = 6
x = 16
y = 3+8 = 11
если (-22 < 11) и (5 - 12 > - 5) - неверно, пропускаем
если (-6 + 11 > -1) или (15+6 < 16) истинно первое выражение
то x = 4, y = 1
Вывод x(4).
Ответ 4