Как можно это реализовать, в делфи не очень разбираюсь

@fragmachine · Регистрация: 25.12.2015

Студворк — интернет-сервис помощи студентам

1. Пароль. Составьте программу, которая выдает на экран сообщение и ожидает от пользователя в ответ, предоставляя ему две попытки и сообщая о правильности ответа.
2. Составьте программу, определяющую, лежит ли точка с указанными координатами ИКС, ИГРИК на окружности радиуса Р с центром в начале координат.
3. Напишите программу, которая по паролю будет определять степень доступности сотрудника к секретной информации в базе данных. Доступ к базе имеют только шесть человек, разбитых на три группы по степени доступа. Они имеют следующие пароли:
• 9583, 1747 - доступны модули базы А, Б, С
• 3331, 7922 - доступны модули базы Б, С
• 9455, 8997 - доступен модуль базы С
4. Вычислить значение y:

Как можно это реализовать, в делфи не очень разбираюсь

@Gamayun · 05.04.2016, 16:00

Ты бы их лучше в 4 отдельные темы разложил. А так как вариант:

1. Кидаешь на форму edit и кнопку. В коде формы делаешь переменную-счётчик, пароль хранишь в строке. При нажатии кнопки проверяется совпадение строки с введённым значением. Параллельно этому к переменной счётчику прибавляешь один. Если счётчик превышен, то выдаётся сообщение "Попытки закончились" и программа завершает работу.

3. Пароль опять же считываешь в строку (допустим S). Затем Case S of ... (варианты и действия к ним).

4. Танцуем от u. Можно выпендриться и с помощью мемо/лейблов вывести всё по шагам или просто выдать готовый ответ. Создаёшь переменные вещественного типа и считаешь как на математике.
u:=0.5;
a:=sqr(sin(u));
b:=sqr(cos(u));
if a>b then
t:=a else
t:=b;
x:=sqr(sin(t))+sqr(cos(t));
Затем пишешь иф, где в зависимости от значения x находим значение y

P.s.: что со второй делать - не помню, могу лишь про аналогичную задачу с прямоугольником рассказать.

@qwertehok · 05.04.2016, 16:08

Сообщение от Gamayun

что со второй делать - не помню

Определить, является ли точка точкой пересечения диагоналей квадрата со стороной R

@unifikator · 05.04.2016, 16:11

Первая задача.
Если текст на русском языке не будет отображаться, то сообщите и я перепишу на английский.
Код:

Delphi

unit MainU;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
n:integer;
const
password='password';
maxn=2;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if n>maxn then
showmessage('У Вас не осталось попыток!')
else
begin
if edit1.Text=password then
begin
showmessage('Правильный пароль!');
n:=1;
end
else
begin
showmessage('Не правильный пароль! Осталось попыток: '+inttostr(maxn-n)+'.');
n:=n+1;
end;
end;
with edit1 do
begin
Text:='';
SetFocus;
end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
n:=1;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
 
end.

Прилагаю проект на Delphi.

@Puporev · 05.04.2016, 16:13

Сообщение от Gamayun

что со второй делать - не помню

Delphi

1
2
3

var x,y,R:integer;
.....................................
if x*x+y*y=r*r then лежит

@unifikator · 05.04.2016, 16:50

Вторая задача.
Если вместо "if abs(sqr(x)+sqr(y)-sqr(p))<0.00000001 then" написать "if sqr(x)+sqr(y)=sqr(p) then" или "if x*x+y*y=p*p then" то выдаёт не правильный результат, так как в сравниваемых числах остаются разные биты после преобразований.
Код:

Delphi

unit MainU;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Button1: TButton;
    Label4: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
x,y,p:extended;
begin
try
x:=strtofloat(edit1.Text);
except
showmessage('Координата точки X должна быть числом!');
exit;
end;
try
y:=strtofloat(edit2.Text);
except
showmessage('Координата точки Y должна быть числом!');
exit;
end;
try
p:=strtofloat(edit3.Text);
except
showmessage('Радиус окружности P должен быть числом!');
exit;
end;
if abs(sqr(x)+sqr(y)-sqr(p))<0.00000001 then
label4.Caption:='Точка лежит на окружности.'
else
label4.Caption:='Точка не лежит на окружности.';
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text:='10';
edit2.Text:='10';
edit3.Text:=floattostr(sqrt(sqr(10)*2));
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
 
end.

Прилагаю проект на Delphi.

@Puporev · 05.04.2016, 16:56

unifikator, А ничего что у меня координаты и радиус целые числа?

@unifikator · 05.04.2016, 17:18

Puporev, Да, тогда получается правильный ответ!

@unifikator · 05.04.2016, 17:22

fragmachine
Третья задача.
Код:

Delphi

unit MainU;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Label2: TLabel;
    StringGrid1: TStringGrid;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
const
d:array[1..3,1..5]of string=(('name1','name2','name3','name4','name5'),
('login1','login2','login3','login4','login5'),
('password1','password2','password3','password4','password5'));
p:array[1..3,1..2]of string=(('9455','8997'),('3331','7922'),('9583','1747'));
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
label2.visible:=false;
stringgrid1.Visible:=false;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k,n:integer;
begin
for i:=1 to 3 do
for j:=1 to 2 do
if edit1.Text=p[i,j] then
begin
with stringgrid1 do
begin
colcount:=i;
for k:=0 to i-1 do
begin
cells[k,0]:='Модуль '+chr(ord('C')-k);
for n:=1 to 5 do
cells[k,n]:=d[k+1,n];
visible:=true;
end;
label2.Visible:=true;
exit;
end;
end;
label2.visible:=false;
stringgrid1.Visible:=false;
showmessage('Не правильный пароль!');
with edit1 do
begin
text:='';
setfocus;
end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
 
end.

Прилагаю проект на Delphi.

@unifikator · 05.04.2016, 17:46

Четвёртая задача.
В условии написано, что если 0<x<=0, то y=1. Наверное, это ошибка. И я сделал, что если 0<x<=1, то y=1.
Код:

Delphi

unit MainU;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Math;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(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
u,a,b,t,x,y:extended;
begin
try
u:=strtofloat(edit1.Text);
except
showmessage('u должно быть числом!');
exit;
end;
a:=sin(u);
b:=cos(u);
t:=max(a,b);
x:=sqr(sin(t))+cos(sqr(t));
if x<=0 then
y:=1+tan(x)
else if x>1 then
y:=1+ln(x)
else
y:=1;
label3.Caption:=floattostr(y);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1Click(Sender);
end;
 
end.

Прилагаю проект на Delphi.

@unifikator · 05.04.2016, 17:47

Ещё раз напоминаю, что если текст на русском языке не будет отображаться, то сообщите и я перепишу на английский.

@fragmachine · 05.04.2016, 18:20 **[ТС]**

Всем огромное спасибо

@fragmachine 0 / 0 / 0 Регистрация: 25.12.2015 Сообщений: 30
		1
	Как можно это реализовать, в делфи не очень разбираюсь 05.04.2016, 15:32. Показов 537. Ответов 11 Метки нет (Все метки) 1. Пароль. Составьте программу, которая выдает на экран сообщение и ожидает от пользователя в ответ, предоставляя ему две попытки и сообщая о правильности ответа. 2. Составьте программу, определяющую, лежит ли точка с указанными координатами ИКС, ИГРИК на окружности радиуса Р с центром в начале координат. 3. Напишите программу, которая по паролю будет определять степень доступности сотрудника к секретной информации в базе данных. Доступ к базе имеют только шесть человек, разбитых на три группы по степени доступа. Они имеют следующие пароли: • 9583, 1747 - доступны модули базы А, Б, С • 3331, 7922 - доступны модули базы Б, С • 9455, 8997 - доступен модуль базы С 4. Вычислить значение y: 0

@Gamayun 0 / 0 / 1 Регистрация: 04.04.2016 Сообщений: 5
	05.04.2016, 16:00	2
	Ты бы их лучше в 4 отдельные темы разложил. А так как вариант: 1. Кидаешь на форму edit и кнопку. В коде формы делаешь переменную-счётчик, пароль хранишь в строке. При нажатии кнопки проверяется совпадение строки с введённым значением. Параллельно этому к переменной счётчику прибавляешь один. Если счётчик превышен, то выдаётся сообщение "Попытки закончились" и программа завершает работу. 3. Пароль опять же считываешь в строку (допустим S). Затем Case S of ... (варианты и действия к ним). 4. Танцуем от u. Можно выпендриться и с помощью мемо/лейблов вывести всё по шагам или просто выдать готовый ответ. Создаёшь переменные вещественного типа и считаешь как на математике. u:=0.5; a:=sqr(sin(u)); b:=sqr(cos(u)); if a>b then t:=a else t:=b; x:=sqr(sin(t))+sqr(cos(t)); Затем пишешь иф, где в зависимости от значения x находим значение y P.s.: что со второй делать - не помню, могу лишь про аналогичную задачу с прямоугольником рассказать. 0

@qwertehok 5092 / 4104 / 1028 Регистрация: 29.08.2013 Сообщений: 26,027 Записей в блоге: 3
	05.04.2016, 16:08	3
	Сообщение от Gamayun что со второй делать - не помню Определить, является ли точка точкой пересечения диагоналей квадрата со стороной R 0

@Puporev Почетный модератор 64288 / 47587 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	05.04.2016, 16:56	7
	unifikator, А ничего что у меня координаты и радиус целые числа? 0

@unifikator 500 / 356 / 231 Регистрация: 29.03.2015 Сообщений: 675
	05.04.2016, 17:18	8
	Puporev, Да, тогда получается правильный ответ! 0

@unifikator 500 / 356 / 231 Регистрация: 29.03.2015 Сообщений: 675
	05.04.2016, 17:47	11
	Ещё раз напоминаю, что если текст на русском языке не будет отображаться, то сообщите и я перепишу на английский. 1

@fragmachine 0 / 0 / 0 Регистрация: 25.12.2015 Сообщений: 30
	05.04.2016, 18:20 [ТС]	12
	Всем огромное спасибо 0

Опции темы