Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Технологии > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 26.06.2011, 18:43   #1
Less1
Новичок
 
Регистрация: 26.06.2011
Сообщений: 7
Репутация: 10
Сообщение Нужно убрать лишнее!!!

Задание:
Написать программу для проведения тестирования. Программа должна быть написана в многооконном интерфейсе: при запуске выдается окно приветствия, при нажатии кнопки на котором, появляется окно для тестирования. Пользователю задается вопрос и даются несколько вариантов ответа на выбор (количество вариантов может быть различным). В программе предусмотреть возврат к предыдущему вопросу (при возврате должен показываться выбранный ранее ответ). По окончании тестирования, программа подсчитывает и показывает количество правильных ответов и дает возможность пройти тестирование заново. Количество вопросов тестирования должно быть не менее трех.

Дополнительно (автомат на экзамене): Сделать загрузку вопросов (соответсвенно и ответов) из внешнего файла. Количество вопросов и вариантов ответов - произвольное. Сделать шифрование данных в файле, чтобы просматривая файл нельзя было узнать правильные варианты ответов. Сделать редактор фала вопросов-ответов.


Вот задание. По этому заданию все сделано, но мне нужно убрать из проги загрузку из внешнего файла, в общем последний абзац задания надо убрать. Помогите плиз. И если не трудно, опишите по блокам где что значит))
Вложения
Тип файла: doc прогАААААААА.doc (38.0 Кб, 1 просмотров)
Less1 вне форума   Ответить с цитированием
Старый 26.06.2011, 18:47   #2
Valio
Сливочное масло
Профессионал
 
Аватар для Valio
 
Регистрация: 01.01.2011
Адрес: В холодильнике
Сообщений: 1,149
Репутация: 127
По умолчанию

Зачем убирать? Ведь тогда не будет "автоматом"...
__________________
Сливочное масло Valio - компиляция как по маслу
Valio вне форума   Ответить с цитированием
Старый 26.06.2011, 18:48   #3
Less1
Новичок
 
Регистрация: 26.06.2011
Сообщений: 7
Репутация: 10
По умолчанию

Так я уже пролетел с автоматом, а отчитать без всяких дополнений будет легче))
Less1 вне форума   Ответить с цитированием
Старый 26.06.2011, 18:54   #4
Valio
Сливочное масло
Профессионал
 
Аватар для Valio
 
Регистрация: 01.01.2011
Адрес: В холодильнике
Сообщений: 1,149
Репутация: 127
По умолчанию

И в чём проблема убрать?
__________________
Сливочное масло Valio - компиляция как по маслу
Valio вне форума   Ответить с цитированием
Старый 26.06.2011, 18:55   #5
Less1
Новичок
 
Регистрация: 26.06.2011
Сообщений: 7
Репутация: 10
По умолчанию

Дык я убрал все лишнее, что считаю не нужным, но программу делал не я сам и не сильно шарю в ней, а завтра экзамен, хотелось бы наверняка.
Less1 вне форума   Ответить с цитированием
Старый 26.06.2011, 18:58   #6
Valio
Сливочное масло
Профессионал
 
Аватар для Valio
 
Регистрация: 01.01.2011
Адрес: В холодильнике
Сообщений: 1,149
Репутация: 127
По умолчанию

Чтоб было наверняка её надо откомпилировать и посмотреть как на неё смотрим Delphi. По файлу в Ворде никто ничего не скажет.
__________________
Сливочное масло Valio - компиляция как по маслу
Valio вне форума   Ответить с цитированием
Старый 26.06.2011, 19:01   #7
Less1
Новичок
 
Регистрация: 26.06.2011
Сообщений: 7
Репутация: 10
По умолчанию

Я рассчитывал на то, что здесь так глянут в ворде и скажут, что лишнее)) Все таки форум программистов)
Less1 вне форума   Ответить с цитированием
Старый 26.06.2011, 19:06   #8
Valio
Сливочное масло
Профессионал
 
Аватар для Valio
 
Регистрация: 01.01.2011
Адрес: В холодильнике
Сообщений: 1,149
Репутация: 127
По умолчанию

Цитата:
Сообщение от Less1 Посмотреть сообщение
Я рассчитывал на то, что здесь так глянут в ворде и скажут, что лишнее)) Все таки форум программистов)
Это всё равно что ремонтировать машину по фотке. Вроде и специалист, а починить не получается.
__________________
Сливочное масло Valio - компиляция как по маслу
Valio вне форума   Ответить с цитированием
Старый 26.06.2011, 19:13   #9
Less1
Новичок
 
Регистрация: 26.06.2011
Сообщений: 7
Репутация: 10
По умолчанию

Код:

unit unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, Buttons, StdCtrls, unit3, unit2;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation


{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Application.CreateForm(TForm2, Form2);
  form1.hide;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    Application.CreateForm(TForm3, Form3);
 form1.hide;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Close;
end;

end.

Less1 вне форума   Ответить с цитированием
Старый 26.06.2011, 19:15   #10
Less1
Новичок
 
Регистрация: 26.06.2011
Сообщений: 7
Репутация: 10
По умолчанию

Код:

unit unit2;

interface

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

type
  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Radio: TRadioGroup;
    Button3: TButton;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public

    { Public declarations }
  end;
var
  Form2: TForm2;

implementation

uses unit1;

{$R *.dfm}

const cod = 471;
var a: array[1..100, 1..50] of string;
  b: array[1..100] of integer;
  f: array[1..50] of integer;
  u: array[1..100] of integer;
  x, m, n: integer;


function Encrypt(const s: string; cod: integer): string;
var i: integer;
begin
  Result := '';
  for i := 1 to Length(s) do
  begin
    Result := Result + Char(Byte(s[i]) xor (cod shr 8));
    cod := (Byte(Result[i]) + cod) * 62142 + 11719;
  end;
end;


procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if messagedlg('Вы уверены, что хотите выйти?', mtConfirmation, [mbYes], 0) = mrYes then
  form1.close;
end;

procedure TForm2.FormActivate(Sender: TObject);
var ffile: textfile; i, j, g: integer; s, s1, s2, w: string;
begin
  i := 1;
  j := 1;
  x := 1;
  m := 0;
  AssignFile(ffile, 'file.txt');
  reset(ffile);
  while not eof(ffile) do
  begin
    readln(ffile, s);
    g := length(s);
    if s[g] = '&'  then begin
      w := Copy(s, 1, Pos('&', s) - 1);
      Delete(s, 1, Length(w) + 1);
      s1 := encrypt(w, cod);
      b[i] := strtoint(s1);
      f[i] := j;
      n := i;
      i := i + 1;
      j := 1 end else begin
      s2 := encrypt(s, cod);
      a[i, j] := s2;
      j := j + 1 end;
  end;
  label1.caption := a[1, 1];
  for j := 2 to f[1] - 1 do
    radio.items.Append(a[1, j]);

end;

procedure TForm2.Button1Click(Sender: TObject);
var j: integer;
begin
  if radio.ItemIndex + 1 = b[x] then
    m := m + 1;
  u[x] := radio.ItemIndex;
  x := x + 1;
  label1.caption := a[x, 1];
  radio.items.Clear;
  for j := 2 to f[x] - 1 do
  begin
    radio.items.Append(a[x, j]);
    radio.ItemIndex := u[x];
  end;
  button2.show;


  if x = n + 1 then
  begin
    label1.Caption := 'правильно отвечено ' + inttostr(m);
    button3.Show;
    button1.Hide;
    button2.hide;
  end;

end;

procedure TForm2.Button2Click(Sender: TObject);
var j: integer;
begin
  u[x] := radio.ItemIndex;
  if x = 2 then button2.show;
  if m <> 0 then m := m - 1;
  x := x - 1;
  radio.Items.Clear;
  for j := 2 to f[x] - 1 do
  begin
    label1.Caption := a[x, 1];
    radio.items.Append(a[x, j]);
    radio.ItemIndex := u[x];
  end;
end;

procedure TForm2.Button3Click(Sender: TObject);
var j: integer;
begin
  x := 1;
  m := 0;
  radio.Items.Clear;
  for j := 2 to f[x] - 1 do
  begin
    label1.Caption := a[1, 1];
    radio.items.append(a[1, j]);
  end;
  button3.Hide;
  button1.Show;
end;

end.

Less1 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ColorBox - убрать лишнее MyLastHit Общие вопросы Delphi 1 08.12.2010 09:49
Убрать лишнее Айдар Общие вопросы C/C++ 1 17.09.2010 01:08
убрать лишнее из программы dragun4ik Помощь студентам 2 30.01.2010 18:33
Убрать не нужно в виндоусе prikolist Windows 7 13.07.2009 21:05
Убрать лишнее из ячейки. `Dmitry Microsoft Office Excel 8 24.03.2009 20:07


05:34.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru