Сравнительный анализ языков программирования

1.4.1 Файлы и потоки в C++

Файлом называют способ хранения информации на физическом устройстве. Файл -- это понятие, которое применимо ко всему -- от файла на диске до терминала.

В C++ отсутствуют операторы для работы с файлами. Все необходимые действия выполняются с помощью функций, включенных в стандартную библиотеку. Они позволяют работать с различными устройствами, такими, как диски, принтер, коммуникационные каналы и т.д. Эти устройства сильно отличаются друг от друга. Однако файловая система преобразует их в единое абстрактное логическое устройство, называемое потоком.

Текстовый поток -- это последовательность символов. При передаче символов из потока на экран, часть из них не выводится (например, символ возврата каретки, перевода строки).

Двоичный поток -- это последовательность байтов, которые однозначно соответствуют тому, что находится на внешнем устройстве.

Организация работы с файлами средствами C

Объявление файла: FILE *идентификатор;

Пример: FILE *f;

Открытие файла: fopen(имя физического файла, режим доступа)

Режим доступа -- строка, указывающая режим открытия файла файла и тип файла

Типы файла: бинарный (b); текстовый (t)

Значения и описания:

r Файл открывается только для чтения

w Файл открывается только для записи. Если соответствующий физический файл существует, он будет перезаписан

a Файл открывается для записи в конец (для дозаписи) или создается, если не существует

r+ Файл открывается для чтения и записи.

w+ Файл открывается для записи и чтения. Если соответствующий физический файл существует, он будет перезаписан

a+ Файл открывается для записи в конец (для дозаписи) или создается, если не существует

Например

f = fopen(s, "wb");

k = fopen("h:\ex.dat", "rb");

Неформатированные файловый ввод-вывод:

Запись в файл: fwrite(адрес записываемой величины, размер одного экземпляра, количество записываемых величин, имя логического файла);

Например: fwrite(&dat, sizeof(int), 1, f);

Чтение из файла : fread(адрес величины, размер одного экземпляра, количество считываемых величин, имя логического файла);

Например: fread(&dat, sizeof(int), 1, f);

Закрытие файла: fclose(имя логического файла);

Форматированный файловый ввод-вывод

1) Функции fgetc() и fputc() позволяют соттветственно осуществить ввод-вывод символа.

2) Функции fgets() и fputs() позволяют соттветственно осуществить ввод-вывод строки.

3) Функции fscanf() и fprintf() позволяют соттветственно осуществить форматированный ввод-вывод и аналогичный соответствующим функиям форматированного ввода-вывода, только делают это применительно к файлу.

Файловый ввод-вывод с использованием потоков

Библиотека потокового ввода-вывода: fstream

Связь файла с потоком вывода: ofstream имя логического файла;

Связь файла с потоком ввода: ifstream имя логического файла;

Открытие файла: имя логического файла.open(имя физического файла);

Закрытие файла: имя логического файла.close();

1.4.2 Файлы и потоки в Delphi

Так как состав модулей и подпрограмм на обоих языках совпадает, то схема иерархии модулей и инструкция пользователя совпадают и имеют единое отображении для обоих языков, а так же состав и содержание модулей на С++ и на Delphi совпадают, различия заключаются только в синтаксических особенностях языков.

Таблица 1- Таблица спецификаций модулй программы

2.6 Инструкция пользователя

Таблица 2 - Таблица сообщений на событие пользователя

При запуске программы перед вами возникает главное окно программы, в котором предлагается начать игру, узнать ее правила, либо выйти из программы. При выборе начать игру появляется форма вращения барабана, где вы должны сначала остановить вращение барабана, узнав тем самым очки, которые ставятся на кон. Затем нажав кнопку "ОК" вы переходите в форму первого раунда, где видите вопрос и стараетесь на него ответить. Автоматичести стоит режим выбора букв по одной, при этом называя неверную букву, вы не получаете очки, а называя верную получаете. О том, есть ли такая буква в слове, вас оповещают соответствующие формы. Ограничение по ходам - 16. То есть если вы не угадает слово за 16 ходов, вы проиграете. Так же, в программе предусмотрен ввод слова целиком, выбрать который вы так же можете на форме раунда. В нем вы вводите буквы поочередно, ограничение такое же, 16 букв.При вводе более 16 букв, вы проигрываете. Если вы угадываете слово верно, вы переходите в следующий раунд. Второй и третий раунд подобны первому. В финале вам предстоит угадать слово, назвав его целиком. Ограничение - 10 букв. Если в ходе раундов вы набираете более 7000 очков, то получаете подсказку в виде указанных первых букв. Так же, из любого раунда вы можете покинуть приложение, либо перезапустить его.

Описание компонентов и форм

Для разработки приложения "Pole" используются две среды визуального программирования "Delphi" и "C++". Проект программы содержит 11 окон:

Zastavka - форма основного меню.

Рисунок 1 - Главное окно программы.

Компоненты Zastavka:

Button1-Выдает сообщение, содержащее правила игры

Button2-Вызов формы Round1

Button3-Выход из приложения

Label1-Надпись "Вас приветствует игра"

Label2-Надпись "по мотивам телешоу"

Image1-Фоновое изображение.

Image2-Портрет Леонида Якубовича

Image3-Заставка поле чудес

Round1, Round2, Round3 - представляют собой соответственно 3 раунда игры и являются подобными формами.

Рисунок 2 - Вид формы в режиме "Выбора букв".

Рисунок 3 - Вид формы в режиме "Ввести слово целиком".

Компоненты Round1, Round2, Round3:

Button1-Button33 - Алфавит

Panel1-Панель, на которой расположен алфавит.

Panel2-Panel7 - Панели, на которых появляются отгаданные буквы.

Image1- Фоновое изображение

Image2- Изображение барабана

Panel8-Панель с количеством набранных очков

Label1-Label3- Вспомогательные надписи "Вопрос раунда", "Вы отлично справились с вопросом предыдущего раунда", "Сейчас вам предложен вопрос раунда"

Label4 - Вопрос раунда. Он выбирается случайно из пяти вариантов. В зависимости от вопроса раунда заданы реакции на кнопки, обозначающие выбор буквы.

Label5 - Отражает выбранные буквы в режиме "Ввести слово целиком"

Label6 - Надпись "Количество очков"

Button 34 - "Сказать" - передает значение Label5 на проверку правильности

Button 35 - очищает значение Label5.

Final - финальный вопрос игры.

Рисунок 4 - Форма финала игры.

Компоненты Final:

Button1-Button33 - Алфавит

Panel1-Панель, на которой расположен алфавит.

Panel2-Panel7 - Панели, на которых появляются отгаданные буквы.

Image1- Фоновое изображение

Image2- Изображение барабана

Panel2-Панель с количеством набранных очков

Label1-Label2- Вспомогательные надписи "Поздравляем! Вы умник! Перед вами финальный вопрос", "Набранные очки"

Label3 - Вопрос финала. Он выбирается случайно из пяти вариантов. В зависимости от вопроса раунда заданы реакции на кнопки, обозначающие выбор буквы.

Button 34 - "Сказать" - передает значение Label3 на проверку правильности

Button 35 - очищает значение Label3.

Baraban-форма, которая симулирует вращение барабана путем случайной генерации очков.

Рисунок 5 - Форма вращения барабана

Компоненты Baraban:

Label1 - Надпись "Очки на кону"

Panel1 - Количество очков, которые прибавятся в случае верно угаданной буквы.

Timer1- С его помощью организуется анимация вращения барабана и смена значений Panel1 при этом.

Image1- Изображение вращающегося барабана

Button 1 - "Стоп" - останавливает работу таймера, фиксирует значение очков, поставленных на кон

Button 2 - "ОК" - выход в форму раунда.

Net_bukvi- Форма, появляющаяся в результате неверно названной буквы.

Рисунок 6 - Форма "Нет такой буквы".

Компоненты Net_bukvi:

Image1-портрет Леонида Якубовича

Label1, Label2 - Надписи "Подумайте еще", "Нет такой буквы"

Button1- открывает форму Baraban

Est_bukva - Форма, появляющаяся в результате верно названной буквы.

Рисунок 7 - Форма "Есть такая буква".

Компоненты Est_bukva:

Image1-портрет Леонида Якубовича

Label1, Label2 - Надписи "Отлично!", "Есть такая буква!"

Button1- открывает форму Baraban

Viigriw - Форма, появляющаяся при выигрыше

Рисунок 8- Форма выигрыша.

Компоненты Viigriw:

Image1-портрет Леонида Якубовича

Label1, Label2 - Надписи "Вы выиграли! Примите", "мои искренние поздравления"

Button1- "Выход" - закрывает приложение

Button2-"Сначала!"-закрывает приложение и открывает его вновь

Porajenie - Форма, появляющаяся в случае поражения

Рисунок 9- Форма поражения.

Компоненты Porajenie:

Image1-портрет Леонида Якубовича

Label1 - Надпись "Печально, но вы програли"

Button1- "Выход" - закрывает приложение

Button2-"Сначала!"-закрывает приложение и открывает его вновь

Spros - форма, предлагающая перезапустить приложение или выйти из него. Открывается в результате попытки закрыть форму.

Рисунок 10-Форма, уточняющая, желаете ли вы выйти из программы.

Компоненты Spros:

Label1 - Надпись "Может начать игру сначала?"

Button1- "Выход" - закрывает приложение

Button2-"Начать сначала"-закрывает приложение и открывает его вновь

2.7 Тестирование

Таблица 3 - Таблица тестов.

2.8 Результаты тестирования

Тест 1:

Рисунок 11 - Верно названо загаданное в первом раунде слово.

Рисунок 12 - Верно названо загаданное во втором раунде слово.

Рисунок 13 - Верно названо загаданное во втором раунде слово.

Рисунок 14 - Верно названо загаданное в финале слово.

Тест 2:

Рисунок 15 - Неверно названа буква

Тест 3

Рисунок 16 - Верно названа буква

Тест 4:

Рисунок 17 - Неверно названо слово, либо сработало ограничение по ходам

Тест 5

Рисунок 18 - Попытка выхода из программы

Список возможных вопросов и ответов на них для каждого раунда.

1 раунд:

Физик, который изобрел цикл работы современных ТЭС. - РЕНКИН

Физик, который открыл 3 яблочных закона.-НЬЮТОН

Чувство, толкающее людей на подвиги.-ЛЮБОВЬ

Книга о наборе символов языка.-АЗБУКА

Основной породоразрушающий инстумент в Газпроме.-ДОЛОТО

2 раунд:

Элементарная частица средней весовой категории-МЕЗОН

Город в Италии с второй, после Колизея, по велечине ареной-КАПУЯ

Наиболее плотный нерадиактивный элемент таблицы Менделеева-ОСМИЙ

Армянский национальный духовой инструмент из древесины абрикоса-ДУДУК

Турецкий национальный шашлык, готовящийся на углях.-ДОНЕР

3 раунд:

Мальчик - легендарный маг, выдумка Дж.Роулинг.-ПОТТЕР

Мальчик, ставший вожаком стаи волков по пороизведению Киплинга.-МАУГЛИ

Имя самого знаменитого мультяшного кролика.-РОДЖЕР

Нервно-паралитический яд из плодов лианы.-КУРАРЕ

Крепкий алкогольный напиток из побегов кактуса.-ТЕКИЛА

Финал:

Математическая функция,в честь которой в английском языке назван подшипник качения.-ЛОГАРИФМ

Британский ученый, внесший большой вклад в развитие механики и математики.-ЭЙЛЕР

Трещинноватая известняковая порода.-ДОЛОМИТ

Смесь магния, нефтеновой и пальмитиновой кислот.-ПИРОГЕЛЬ

Свойство жидкостей увеличивать вязкость с увеличением скорости сдвига.-РЕОПЕКСИЯ

Заключение

Язык С (читается "Си") создан в начале 70-х годов, когда Кен Томпсон и Дэннис Ритчи из Bell Labs разрабатывали операционную систему UNDC Сначала они создали часть компилятора С, затем использовали се для компиляции остальной части компилятора С и, наконец, применили полученный в результате компилятор для компиляции UNIX. Операционная система UNIX первоначально распространялась в исходных кодах на С среди университетов и лабораторий, а получатель мог откомпилировать исходный код на С в машинный код с помощью подходящего компилятора С.

Распространение исходного кода сделало операционную систему UNIX уникальной; программист мог изменить операционную систему, а исходный код мог быть перенесен с одной аппаратной платформы на другую. Сегодня стандарт POSIX определяет стандартный набор системных вызовов UNIX, доступных в С, которые должны быть реализованы в версиях UNIX, являющихся POSIX-совместимыми. С был третьим языком, который разработали Томсон и Ритчи в процессе создания UNIX; первыми двумя были, разумеется, А и В.

По сравнению с более ранним языком -- BCPL, С был улучшен путем добавления типов данных определенной длины. Например, тип данных int мог применяться для создания переменной с определенным числом битов (обычно 16), в то время как тип данных long мог использоваться для создания целой переменной с большим числом битов (обычно 32). В отличие от других языков высокого уровня, С мог работать с адресами памяти напрямую с помощью указателей и ссылок. Поскольку С сохранил способность прямого доступа к аппаратному обеспечению, его часто относят к языкам среднего уровня или в шутку называют "мобильным языком ассемблера".

Что касается грамматики и синтаксиса, то С является структурным языком программирования. В то время как многие современные программисты мыслят в категориях классов и объектов, программисты на С думают в категориях процедур и функций. В С можно определить собственные абстрактные типы данных, используя ключевое слово struct. Аналогично можно описывать собственные целые типы (перечисления) и давать другие названия существующим типам данных при помощи ключевого слова typedef. В этом смысле С является структурным языком с зародышами объектно-ориентированного программирования. Широкое распространение языка C на различных типах компьютеров (иногда называемых аппаратными платформами) привело, к сожалению, ко многим вариациям языка. Они были похожи, но несовместимы друг с другом. Это было серьезной проблемой для разработчиков программ, нуждавшихся в написании совместимых программ, которые можно было бы выполнять на нескольких платформах. Стало ясно, что необходима стандартная версия C. В 1983г. ANSI (Американский Национальный Комитет Стандартов) сформировал технический комитет X3J11 для создания стандарта языка C (чтобы "обеспечить недвусмысленное и машинно-независимое определение языка"). В 1989 стандарт был утвержден. ANSI скооперировался с ISO (Международной Организацией Стандартов), чтобы стандартизовать C в международном масштабе; совместный стандарт был опубликован в 1990 году и назван ANSI/ISO 9899:1990. Этот стандарт усовершенствуется до сих пор и поддерживается большинством фирм разработчиков компиляторов.

Список литературы

1. Голицына О.Л. Языки программирования: учеб. пособие. Издательство: "ИНФРА-М, Форум", 2010.

2. Программирование на С++/ В.П. Аверкин, А.И. Бобровский, В.В. Веснич и др.; Под ред. А.Д. Хомоненко . - СПб.: Корона принт, 1999. - 252 с.

3. C++Builder 5: Рук. разработчика: [В 2 т.: Пер. с англ.] / Джарод Холингвэрт, Дэн Баттерфилд, Боб Сворт и др. - М.: Вильямс, 2001. - 824 с.

4. Архангельский А.Я. Программирование в С++Builder 6 / А.Я. Архангельский . - М.: Бином, 2012. - 1151 с.

5. Елманова Н.З. Введение в Borland C++ Builder / Н.З. Елманова, С.П. Кошель - М.: Диалог-МИФИ, 2007. - 272 с.

6. Паппас Крис Программирование на С и С++: [Учеб. пособие: Пер. с англ.] / Крис Паппас, Уильям Мюррей . - Киев: Ирина, 2009. - 318 с.

7. Павловская Т.А. C/C++: Программирование на языке высокого уровня: Учебник для вузов, Питер, 2012.

Приложения

Приложение 1. Листинг программы С++

Zastavka

/---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Zastavka.h"

#include "Round1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{

Form2->ShowModal();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)

{

ShowMessage("Правила игры: Вас ожидает 3 рунда и финал. В каждом раунде вы набираете очки за правильные буквы, если вы отвечаете на вопрос верно, переходите в следующий раунд. Если вы называете слово целиком, то получите 1500 очков. Если до финала вы набираете более 7000 очков, то вам становится видно несколько первых букв загаданного слова, назвать которое необходимо только целиком. Ограничние по ходам = 16 ходов. То есть если вы не угадали слово и уже выбрали 16 букв, вы проигрываете. Удачи! =))) ");

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)

{

Close();

}

//---------------------------------------------------------------------------

Пример раунда игры

//---------------------------------------------------------------------------

#include <vcl.h>

#include <iostream>

#pragma hdrstop

#include <stdlib.h>

#include "Round1.h"

#include "Zastavka.h"

#include "Est_bukva.h"

#include "Round2.h"

#include "Baraban.h"

#include "Net_bukvi.h"

#include "Porajenie.h"

#include "Spros.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm2 *Form2;

//---------------------------------------------------------------------------

int k;

int sl;

int v;

__fastcall TForm2::TForm2(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button18Click(TObject *Sender)

{

if (RadioButton2->Visible==true) {

if (sl==1){

Panel8->Caption=StrToInt(Panel8->Caption)+StrToInt(Form6->Panel1->Caption);

Form3->ShowModal();

Panel2->Caption="P";

k++;}

if ((sl==2)||(sl==3)||(sl==4)||(sl==5)) {

Form4->ShowModal();}

Button18->Enabled=false;

if (k==6){

if (sl==1) ShowMessage("Вы абсолютно верно ответили РЕНКИН");

if (sl==2) ShowMessage("Вы абсолютно верно ответили НЬЮТОН");

if (sl==3) ShowMessage("Вы абсолютно верно ответили ЛЮБОВЬ");

if (sl==4) ShowMessage("Вы абсолютно верно ответили АЗБУКА");

if (sl==5) ShowMessage("Вы абсолютно верно ответили ДОЛОТО");

Form5->ShowModal();

} }

if (RadioButton2->Visible==false)

Label3->Caption=Label3->Caption+"Р";

v++;

if (v>15)Form10->ShowModal();

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button6Click(TObject *Sender)

{

if (RadioButton2->Visible==true) {

if (sl==1){

Panel8->Caption=StrToInt(Panel8->Caption)+StrToInt(Form6->Panel1->Caption);

Form3->ShowModal();

Panel3->Caption="Е";

k++;}

Button6->Enabled=false;

if ((sl==2)||(sl==3)||(sl==4)||(sl==5)) {

Form4->ShowModal();}

if (k==6){

if (sl==1) ShowMessage("Вы абсолютно верно ответили РЕНКИН");

if (sl==2) ShowMessage("Вы абсолютно верно ответили НЬЮТОН");

if (sl==3) ShowMessage("Вы абсолютно верно ответили ЛЮБОВЬ");

if (sl==4) ShowMessage("Вы абсолютно верно ответили АЗБУКА");

if (sl==5) ShowMessage("Вы абсолютно верно ответили ДОЛОТО");

Form5->ShowModal();

} }

if (RadioButton2->Visible==false)

Label3->Caption=Label3->Caption+"Е";

v++;

if (v>15)Form10->ShowModal();

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button15Click(TObject *Sender)

{

if (RadioButton2->Visible==true) {

if (sl==1){

Panel8->Caption=StrToInt(Panel8->Caption)+StrToInt(Form6->Panel1->Caption);

Panel8->Caption=StrToInt(Panel8->Caption)+StrToInt(Form6->Panel1->Caption);

Form3->ShowModal();

Panel4->Caption="Н";

Panel7->Caption="Н";

k++;

k++;}

Button15->Enabled=false;

if (sl==2){

Panel8->Caption=StrToInt(Panel8->Caption)+StrToInt(Form6->Panel1->Caption);

Panel8->Caption=StrToInt(Panel8->Caption)+StrToInt(Form6->Panel1->Caption);

Form3->ShowModal();

Panel2->Caption="Н";

Panel7->Caption="Н";

k++;

k++;}

if ((sl==3)||(sl==4)||(sl==5)){

Form4->ShowModal();}

if (k==6){

if (sl==1) ShowMessage("Вы абсолютно верно ответили РЕНКИН");

if (sl==2) ShowMessage("Вы абсолютно верно ответили НЬЮТОН");

if (sl==3) ShowMessage("Вы абсолютно верно ответили ЛЮБОВЬ");

if (sl==4) ShowMessage("Вы абсолютно верно ответили АЗБУКА");

if (sl==5) ShowMessage("Вы абсолютно верно ответили ДОЛОТО");

Form5->ShowModal();

}}

if (RadioButton2->Visible==false)

Label3->Caption=Label3->Caption+"Н";

v++;

if (v>15)Form10->ShowModal();

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button12Click(TObject *Sender)

{

if (RadioButton2->Visible==true) {

if (sl==1){

Panel8->Caption=StrToInt(Panel8->Caption)+StrToInt(Form6->Panel1->Caption);

Form3->ShowModal();

Panel5->Caption="К";

k++;

}

if (sl==4){

Panel8->Caption=StrToInt(Panel8->Caption)+StrToInt(Form6->Panel1->Caption);

Form3->ShowModal();

Panel6->Caption="K";

k++;}

Button12->Enabled=false;

if ((sl==2)||(sl==3)||(sl==5)) Form4->ShowModal();

if (k==6){

if (sl==1) ShowMessage("Вы абсолютно верно ответили РЕНКИН");

if (sl==2) ShowMessage("Вы абсолютно верно ответили НЬЮТОН");

if (sl==3) ShowMessage("Вы абсолютно верно ответили ЛЮБОВЬ");

if (sl==4) ShowMessage("Вы абсолютно верно ответили АЗБУКА");

if (sl==5) ShowMessage("Вы абсолютно верно ответили ДОЛОТО");

Form5->ShowModal();

}}

if (RadioButton2->Visible==false)

Label3->Caption=Label3->Caption+"К";

v++;

if (v>15)Form10->ShowModal();

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button10Click(TObject *Sender)

{

if (RadioButton2->Visible==true) {

if (sl==1){

Panel8->Caption=StrToInt(Panel8->Caption)+StrToInt(Form6->Panel1->Caption);

Form3->ShowModal();

Panel6->Caption="И";

k++;

}

Button10->Enabled=false;

if ((sl==2)||(sl==3)||(sl==4)||(sl==5)) Form4->ShowModal();

if (k==6){

if (sl==1) ShowMessage("Вы абсолютно верно ответили РЕНКИН");

if (sl==2) ShowMessage("Вы абсолютно верно ответили НЬЮТОН");

if (sl==3) ShowMessage("Вы абсолютно верно ответили ЛЮБОВЬ");

if (sl==4) ShowMessage("Вы абсолютно верно ответили АЗБУКА");

if (sl==5) ShowMessage("Вы абсолютно верно ответили ДОЛОТО");

Form5->ShowModal();

} }

if (RadioButton2->Visible==false)

Label3->Caption=Label3->Caption+"И";

v++;

if (v>15)Form10->ShowModal();

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button1Click(TObject *Sender)

{

if (RadioButton2->Visible==true) {

if ((sl==1)||(sl==3)||(sl==2)||(sl==5)){

Form4->ShowModal();

}

if (sl==4){

Panel8->Caption=StrToInt(Panel8->Caption)+StrToInt(Form6->Panel1->Caption);

Panel8->Caption=StrToInt(Panel8->Caption)+StrToInt(Form6->Panel1->Caption);

Form3->ShowModal();

Panel2->Caption="A";

Panel7->Caption="A";

k++;k++;

}

if (k==6){

if (sl==1) ShowMessage("Вы абсолютно верно ответили РЕНКИН");

if (sl==2) ShowMessage("Вы абсолютно верно ответили НЬЮТОН");

if (sl==3) ShowMessage("Вы абсолютно верно ответили ЛЮБОВЬ");

if (sl==4) ShowMessage("Вы абсолютно верно ответили АЗБУКА");