|
Вопрос # 5 310/ вопрос решён / |
|
Здравствуйте, уважаемые эксперты!
Подскажите пожалуйста как создать тестирующую программу.
 |
Вопрос задала: Валентинка (статус: Посетитель)
Вопрос отправлен: 23 мая 2011, 17:28
Состояние вопроса: решён, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 104; последнее сообщение — 25 мая 2011, 23:32; участников в обсуждении: 9.
Страницы: [« Предыдущая] [1] [2] [3] [4] [5] [6] [Следующая »]
|
min@y™ (статус: Доктор наук), 24 мая 2011, 18:39 [#61]:
Цитата (Валентинка):
Просто нас учат тому что мы обязаны разьиратся в чужих исходниках и исправлять там ошибки. Это не мое мнение)))
Хреновые у вас преподы. Гоните их ссаными тряпками. Они нихрена не шарят. Никто (НИКТО!!!) не обязан разбираться в чужой писанине. Каждый отвечает только за свои произведения.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
Мережников Андрей (статус: Абитуриент), 24 мая 2011, 18:47 [#62]:
Цитата (Валентинка):
Просто нас учат тому что мы обязаны разьиратся в чужих исходниках и исправлять там ошибки
Что-то я не наблюдаю исходника, в котором просили бы найти ошибку - только одно настойчивое требование - сделайте за меня программу...
|
|
|
Валентинка (статус: Посетитель), 24 мая 2011, 18:51 [#63]:
я ни у кого не требую чтобы мне написали программу
|
|
|
min@y™ (статус: Доктор наук), 24 мая 2011, 18:54 [#64]:
Цитата (Валентинка):
я ни у кого не требую чтобы мне написали программу
А чего ж тебе надо-то тогда?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Валентинка (статус: Посетитель), 24 мая 2011, 18:56 [#65]:
ну если вам не сложно напишите, я не откажусь)))
|
|
|
Валентинка (статус: Посетитель), 24 мая 2011, 18:57 [#66]:
а type можно написать несколько раз в одном юните?
|
|
|
min@y™ (статус: Доктор наук), 24 мая 2011, 18:59 [#67]:
Цитата (Валентинка):
ну если вам не сложно напишите, я не откажусь)))
Сколько платишь?
Цитата (Валентинка):
а type можно написать несколько раз в одном юните?
Да, можно.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Валентинка (статус: Посетитель), 24 мая 2011, 19:06 [#68]:
А сколько стоит ваша работа?
|
|
|
min@y™ (статус: Доктор наук), 24 мая 2011, 19:11 [#69]:
Цитата (Валентинка):
А сколько стоит ваша работа?
Дорого. Сколько предложишь?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
VJe@n (статус: 1-ый класс), 24 мая 2011, 19:19 [#70]:
совет да любовь
У меня сегодня радость!
Я сегодня сделал гадость! :) |
|
|
Мережников Андрей (статус: Абитуриент), 24 мая 2011, 19:25 [#71]:
Цитата (Валентинка):
а type можно написать несколько раз в одном юните?
Обалдеть! Человек заканчивает колледж по специальности программист...
|
|
|
min@y™ (статус: Доктор наук), 24 мая 2011, 19:34 [#72]:
Цитата (Мережников Андрей):
Обалдеть! Человек заканчивает колледж по специальности программист...
Такое впечатление, что человек прикидывается студенткой последнего курса, а на самом деле это и есть препод по программированию.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
bugmenot (статус: 3-ий класс), 24 мая 2011, 19:43 [#73]:
Цитата (min@y™):
Никто (НИКТО!!!) не обязан разбираться в чужой писанине. Цитата (min@y™):
Это тебе любой профессиональный программист подтвердит.
Это - ерунда. И попрошу оспаривать это утверждение только сидя в седле велосипеда собственного изобретения :-Р
Качество учебного птушного кода - непоказательный частный случай, ага.
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
|
|
min@y™ (статус: Доктор наук), 24 мая 2011, 19:55 [#74]:
Цитата (bugmenot):
Это - ерунда. И попрошу оспаривать это утверждение только сидя в седле велосипеда собственного изобретения :-Р
Ты не понял! Тут ключево слово - "обязан".
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
bugmenot (статус: 3-ий класс), 24 мая 2011, 20:09 [#75]:
Цитата (min@y™):
ключево слово - "обязан"
Еще как обязан. См. ссылка
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
|
Толяныч (статус: 4-ый класс), 24 мая 2011, 20:18 [#76]:
min@y™:
> Ты не понял! Тут ключево слово - "обязан".
Когда ты нач. сектора, у тебя дюжина девиц, из которых 2 секут тему хорошо, еще 3-4 терпимо, а загрузить работой нужно всех, приходится читать их саги. Хотя самому сделать, конечно, было бы быстрее.
К счастью, это в прошлом.
|
|
|
min@y™ (статус: Доктор наук), 24 мая 2011, 20:19 [#77]:
Рефакторинг тут причём? Меня даже начальство не заставит чужие исходники ковырять!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
VJe@n (статус: 1-ый класс), 24 мая 2011, 20:23 [#78]:
min@y™: УВОЛЕН!
У меня сегодня радость!
Я сегодня сделал гадость! :) |
|
|
Валентинка (статус: Посетитель), 24 мая 2011, 20:33 [#79]:
кто-нибудь может посмотреть в чем тут ошибка?
unit tester_;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, ExtCtrls,
jpeg;
type
TForm1 = class(TForm)
// вопрос
Label5: TLabel;
// альтернативные ответы
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
// радиокнопки выбора ответа
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
Image1: TImage; //область вывода иллюстрации
Panel1: TPanel;
RadioButton5: TRadioButton; //"служебная кнопка"
Button1: TButton; //кнопка ОК, дальше
procedure FormActivate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure RadioButtonClick(Sender: TObject);
// Эти объявления вставлены сюда вручную
procedure Info;
procedure VoprosToScr;
procedure ShowPicture; // выводит иллюстрацию
procedure ResetForm; // "очистка" формы перед выводом очередного вопроса
procedure Itog;
procedure FormCreate(Sender: TObject); // результат тестирования
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1; // форма
implementation
{$R *.DFM}
const
N_LEV=4; // четыре уровня оценки
N_ANS=4; // четыре варианта ответов
var
f:TextFile;
fn:string; // имя файла вопросов
level:array[1..N_LEV] of integer; // сумма, соответствующая уровню
mes:array[1..N_LEV] of string; // сообщение, соответствующее уровню
score:array[1..N_ANS] of integer; // оценка за выбор ответа
summa:integer; // набрано очков
vopros:integer; // номер текущего вопроса
otv:integer; // номер выбранного ответа
// вывод информации о тесте
procedure Tform1.Info;
var
s,buf:string;
begin
readln(f,s);
Form1.Caption := s;
buf:='';
repeat
readln(f,s);
if s[1] <> '.'
then buf := buf +s + #13;
until s[1] ='.';
Label5.caption:=buf;
end;
// прочитать информацию об оценках за тест
Procedure GetLevel;
var
i:integer;
buf:string;
begin
i:=1;
repeat
readln(f,buf);
if buf[1] <> '.' then begin
mes[i]:=buf; // сообщение
readln(f,level[i]); // оценка
i:=i+1;
end;
until buf[1]='.';
end;
// масштабирование иллюстрации
Procedure TForm1.ShowPicture;
var
w,h: integer; // максимально возможные размеры картинки
begin
// вычислить допустимые размеры картинки
w:=ClientWidth-10;
h:=ClientHeight
- Panel1.Height -10
- Label5.Top
- Label5.Height - 10;
// вопросы
if Label1.Caption <> ''
then h:=h-Label1.Height-10;
if Label2.Caption <> ''
then h:=h-Label2.Height-10;
if Label3.Caption <> ''
then h:=h-Label3.Height-10;
if Label4.Caption <> ''
then h:=h-Label4.Height-10;
// если размер картинки меньше w на h,
// то она не масштабируется
Image1.Top:=Form1.Label5.Top+Label5.Height+10;
if Image1.Picture.Bitmap.Height > h
then Image1.Height:=h
else Image1.Height:= Image1.Picture.Height;
if Image1.Picture.Bitmap.Width > w
then Image1.Width:=w
else Image1.Width:=Image1.Picture.Width;
Image1.Visible := True;
end;
// вывести вопрос
Procedure TForm1.VoprosToScr;
var
i:integer;
s,buf:string;
ifn:string; // файл иллюстрации
begin
vopros:=vopros+1;
caption:='Вопрос ' + IntToStr(vopros);
// прочитать вопрос
buf:='';
repeat
readln(f,s);
if (s[1] <> '.') and (s[1] <> '\')
then buf:=buf+s+' ';
until (s[1] ='.') or (s[1] ='\');
Label5.caption:=buf; // вывести вопрос
|
|
|
Валентинка (статус: Посетитель), 24 мая 2011, 20:34 [#80]:
продолжение:
if s[1] <> '\'
then Image1.Tag:=0 // к вопросу нет иллюстрации
else // к вопросу есть иллюстрация
begin
Image1.Tag:=1;
ifn:=copy(s,2,length(s));
try
Image1.Picture.LoadFromFile(ifn);
except
on E:EFOpenError do
Image1.Tag:=0;
end;
end;
// Читаем варианты ответов
i:=1;
repeat
buf:='';
repeat // читаем текст варианта ответа
readln(f,s);
if (s[1]<>'.') and (s[1] <> ',')
then buf:=buf+s+' ';
until (s[1]=',')or(s[1]='.');
// прочитан альтернативный ответ
score[i]:= StrToInt(s[2]);
case i of
1: Label1.caption:=buf;
2: Label2.caption:=buf;
3: Label3.caption:=buf;
4: Label4.caption:=buf;
end;
i:=i+1;
until s[1]='.';
// здесь прочитана иллюстрация и альтернативные ответы
// текст вопроса уже выведен
if Image1.Tag =1 // есть иллюстрация к вопросу
then ShowPicture;
// вывод альтернативных ответов
if Form1.Label1.Caption <> ''
then begin
if Form1.Image1.Tag =1
then Label1.top:=Image1.Top+Image1.Height+10
else Label1.top:=Label5.Top+Label5.Height+10;
RadioButton1.top:=Label1.top;
Label1.visible:=TRUE;
RadioButton1.visible:=TRUE;
end;
if Form1.Label2.Caption <> ''
then begin
Label2.top:=Label1.top+ Label1.height+10;
RadioButton2.top:=Label2.top;
Label2.visible:=TRUE;
RadioButton2.visible:=TRUE;
end;
if Form1.Label3.Caption <> ''
then begin
Label3.top:=Label2.top+ Label2.height+10;
RadioButton3.top:=Label3.top;
Label3.visible:=TRUE;
RadioButton3.visible:=TRUE;
end;
if Form1.Label4.Caption <> ''
then begin
Label4.top:=Label3.top+ Label3.height+10;
RadioButton4.top:=Label4.top;
Label4.visible:=TRUE;
RadioButton4.visible:=TRUE;
end;
end;
Procedure TForm1.ResetForm;
begin // сделать невидимыми все метки и радиокнопки
Label1.Visible:=FALSE;
Label1.caption:='';
Label1.width:=ClientWidth-Label1.left-5;
RadioButton1.Visible:=FALSE;
Label2.Visible:=FALSE;
Label2.caption:='';
Label2.width:=ClientWidth-Label2.left-5;
RadioButton2.Visible:=FALSE;
Label3.Visible:=FALSE;
Label3.caption:='';
Label3.width:=ClientWidth-Label3.left-5;
RadioButton3.Visible:=FALSE;
Label4.Visible:=FALSE;
Label4.caption:='';
Label4.width:=ClientWidth-Label4.left-5;
RadioButton4.Visible:=FALSE;
Label5.width:=ClientWidth-Label5.left-5;
Image1.Visible:=FALSE;
end;
// определение достигнутого уровня
procedure TForm1.Itog;
var
i:integer;
buf:string;
begin
buf:='';
buf:='Результаты тестирования'+ #13
+'Всего баллов: '+ IntToStr(summa);
i:=1;
while (summa < level[i]) and (i<N_LEV) do
i:=i+1;
buf:=buf+ #13+mes[i];
Label5.Top:=20;
Label5.caption:=buf;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
ResetForm;
if ParamCount = 0
then begin
Label5.caption:= 'Не задан файл вопросов теста.';
Button1.caption:='Ok';
Button1.tag:=2;
Button1.Enabled:=TRUE
end
else begin
fn := ParamStr(1);
assignfile(f,fn);
try
reset(f);
except
on EFOpenError do
begin
ShowMessage('Файл теста '+fn+' не найден.');
Button1.caption:='Ok';
Button1.tag:=2;
Button1.Enabled:=TRUE;
exit;
end;
end;
Info; // прочитать и вывести информацию о тесте
GetLevel; // прочитать информацию об уровнях оценок
end;
end;
// щелчок на кнопке Button1
procedure TForm1.Button1Click(Sender: TObject);
begin
case Button1.tag of
0: begin
Button1.caption:='Дальше';
Button1.tag:=1;
RadioButton5.Checked:=TRUE;
// вывод первого вопроса
Button1.Enabled:=False;
ResetForm;
VoprosToScr;
end;
1: begin // вывод остальных вопросов
summa:=summa+score[otv];
RadioButton5.Checked:=TRUE;
Button1.Enabled:=False;
ResetForm;
if not eof(f)
then VoprosToScr
else
begin
summa:=summa+score[otv];
closefile(f);
Button1.caption:='Ok';
Form1.caption:='Результат';
Button1.tag:=2;
Button1.Enabled:=TRUE;
Itog; // вывести результат
end;
end;
2: begin // завершение работы
Form1.Close;
end;
end;
end;
// Процедура обработки события OnClick
// для компонентов RadioButton1-RadioButton4
procedure TForm1.RadioButtonClick(Sender: TObject);
begin
if sender = RadioButton1
then otv:=1
else if sender = RadioButton1
then otv:=2
else if sender = RadioButton3
then otv:=3
else otv:=4;
Button1.enabled:=TRUE;
end;
// обеспечивает настройку компонентов
procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.AutoSize := False;
Image1.Proportional := True;
RadioButton1.Visible := False;
end;
end.
|
Страницы: [« Предыдущая] [1] [2] [3] [4] [5] [6] [Следующая »]
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
