Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Rustafa13
2 / 2 / 0
Регистрация: 28.06.2011
Сообщений: 53
1

Блок-схема.

28.06.2011, 17:54. Просмотров 542. Ответов 2
Метки нет (Все метки)

Всем привет.
Ребята, помогите сделать блок-схему, на телефон кину денюшку.

Собственно, задача простая, но блок-схемы, я догадываюсь как делать, но не уверен. Спасибо.
Код
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Label5: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
f:textfile;
nq:integer;
right:integer;
level:array[1..4] of integer;
mes: array[1..4] of string;
buf:string;

function nextqw:boolean;
begin
if not eof(f) then begin
readln(f,buf);
form1.Label1.Caption:=buf;

readln(f,buf);
form1.label2.caption:=buf;
readln(f,buf);
form1.RadioButton1.Tag:=strtoint(buf);

readln(f,buf);
form1.Label3.Caption:=buf;
readln(f,buf);
form1.RadioButton2.Tag:=strtoint(buf);

readln(f,buf);
form1.Label4.caption:=buf;
readln(f,buf);
form1.RadioButton3.tag:=strtoint(buf);

readln(f,buf);
form1.label5.caption:=buf;
readln(f,buf);
form1.RadioButton4.Tag:=strtoint(buf);

nq:=nq+1;

form1.Button1.Enabled:=false;
form1.RadioButton1.checked:=false;
form1.RadioButton2.checked:=false;
form1.RadioButton3.checked:=false;
form1.RadioButton4.checked:=false;

nextqw:=true;
end
else
nextqw:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
fname:string;
begin
fname:=paramstr(1);
if fname='' then
begin
showmessage('В командной строке запуска программы' + #13 + 'надо указать имя файла теста');
application.terminate;
end;
assignFile(f,fname);

try
reset(f);
except
on eInouterror do
begin
showmessage('ошибка обращения к файлу теста:' + fname);
application.terminate;
end;
end;

readln(f,buf);
form1.caption:=buf;

for i:=1 to 4 do
begin
readln(f,buf);
mes[i]:=buf;
readln(f,buf);
level[i]:=strtoint(buf);
end;

right:=0;
nq:=0;
nextqw;


end;

procedure TForm1.Button1Click(Sender: TObject);
var
buf:string; i:integer;
begin
if button1.caption='завершить' then close;

if radiobutton1.Checked then
right:=right + radiobutton1.tag;
if radiobutton2.Checked then
right:=right + radiobutton2.tag;
if radiobutton3.Checked then
right:=right + radiobutton3.tag;
if radiobutton4.Checked then
right:=right + radiobutton4.tag;

if not nextqw then begin
button1.caption:='завершить';
radiobutton1.Visible:=false;
radiobutton2.Visible:=false;
radiobutton3.Visible:=false;
radiobutton4.Visible:=false;
label2.Visible:=false;
label3.Visible:=false;
label4.Visible:=false;
label5.Visible:=false;

buf:='тестирование завершено' + #13 + 'правильных ответов' + inttostr(right)+ 'из' + inttostr(nq) + '.' + #13;
i:=1;
while (right<level[i]) and (i<4) do
inc(i);
buf:=buf+mes[i];

label1.autosize:=true;
label1.caption:=buf;
end;
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
button1.enabled:=true;
end;


procedure TForm1.RadioButton2Click(Sender: TObject);
begin
button1.enabled:=true;
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
button1.enabled:=true;
end;

procedure TForm1.RadioButton4Click(Sender: TObject);
begin
button1.enabled:=true;
end;

end.
Добавлено через 5 часов 47 минут
помогите! Завтра до 3 по МСК кину денюшку на телефон.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.06.2011, 17:54
Ответы с готовыми решениями:

блок-схема
Приветик всем помогите плиз зделать по етому вот тексту блоксхему у меня...

Блок-Схема
есть 6 кодов,нужно создать по каждому блок схему,помогите пожалуйста

Блок-схема
Помогите пожалуйста составить блок схему данной программы. Буду очень...

блок схема
здраствуйте программисты!!! может кто нибудь сделать блок схемы к программам,...

блок схема
нужна блок схема к этим задачам Задача 1: Даны действительные числа...

2
AlexP11223
114 / 106 / 30
Регистрация: 20.04.2011
Сообщений: 579
10.07.2011, 01:10 2
Нарисовал автору блок-схему, а он так и не оплатил и пропал) плахой кидало
0
Puporev
10.07.2011, 10:46     Блок-схема.
  #3

Не по теме:

Утром деньги, вечером стулья....

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.07.2011, 10:46
Привет! Вот еще темы с ответами:

блок-схема
пожалуста сделайте блок-схему по программе unit Unit1; interface uses ...

блок-схема
помогите составить блок-схему пожалуйста по программе unit Unit1; interface...

Блок-схема
Помогите нарисовать блок-схему unit Unit5; interface uses Windows,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru