Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






    • Додаток А. #include iostream.h


    ⇐ ПредыдущаяСтр 6 из 6




    (обов’язковий)

    Код програми

     

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

     

    #include < vcl.h>

    #pragma hdrstop

    #include " iostream.h"

     

    #include " Unit1.h"

    #include " Unit2.h"

    #include " Unit3.h"

    #include " Unit4.h"

    #include " Unit5.h"

    #include " Unit6.h"

    #include " Unit7.h"

    #include " Unit8.h"

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

    #pragma package(smart_init)

    #pragma resource " *.dfm"

    extern pravil_otvet;

     

     

    TForm1 *Form1;

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

    __fastcall TForm1:: TForm1(TComponent* Owner)

    : TForm(Owner)

    {

    }

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

     

    void __fastcall TForm1:: BitBtn2Click(TObject *Sender)

    {

    Form1-> Close();

    Form2-> Close();

    Form3-> Close();

    }

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

    void __fastcall TForm1:: BitBtn1Click(TObject *Sender)

    {

     

    if(Edit1-> Text> 5)

    {ShowMessage(" Â ï ð î ã ð à ì ³ 5 â à ð ³ à í ò ³ â, ï î â ò î ð ³ ò ü â â ³ ä! "); }

     

     

    int g;

    g=StrToFloat(Edit1-> Text);

    if (g==1)

    {Form2-> Visible=true;

    Form1-> Visible=false;

    Form2-> Label6-> Caption=" 1";

    Form2-> Label5-> Caption=" Ö è ê ë ñ ï î ñ ë å ó ñ ë î â è å ì? ";

    Form2-> Label1-> Caption=" while";

    Забиваем Сайты В ТОП КУВАЛДОЙ - Уникальные возможности от SeoHammer
    Каждая ссылка анализируется по трем пакетам оценки: SEO, Трафик и SMM. SeoHammer делает продвижение сайта прозрачным и простым занятием. Ссылки, вечные ссылки, статьи, упоминания, пресс-релизы - используйте по максимуму потенциал SeoHammer для продвижения вашего сайта.
    Что умеет делать SeoHammer
    — Продвижение в один клик, интеллектуальный подбор запросов, покупка самых лучших ссылок с высокой степенью качества у лучших бирж ссылок.
    — Регулярная проверка качества ссылок по более чем 100 показателям и ежедневный пересчет показателей качества проекта.
    — Все известные форматы ссылок: арендные ссылки, вечные ссылки, публикации (упоминания, мнения, отзывы, статьи, пресс-релизы).
    — SeoHammer покажет, где рост или падение, а также запросы, на которые нужно обратить внимание.
    SeoHammer еще предоставляет технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней.
    Зарегистрироваться и Начать продвижение

    Form2-> Label2-> Caption=" do while";

    Form2-> Label3-> Caption=" for";

    Form2-> Label4-> Caption=" if";

    pravil_otvet=2;

     

    }

    if (g==2)

    {Form4-> Visible=true;

    Form4-> Label6-> Caption=" 1";

    Form4-> Label5-> Caption=" Ä î ê à ê è õ ï î ð á ó ä ó ò â û ï î ë í ÿ ò ü ñ ÿ î ï å ð à ò î ð û â ò å ë å ö è ê ë à while (x < 100)? ";

    Form4-> Label1-> Caption=" Ï î ê à õ ñ ò ð î ã î ì å í ü ø å ñ ò à ";

    Form4-> Label2-> Caption=" Ï î ê à õ ì å í ü ø å è ë è ð à â å í ñ ò à ì ";

    Form4-> Label3-> Caption=" Ï î ê à õ ð à â å í ñ ò à ì ";

    Form4-> Label4-> Caption=" Ï î ê à õ á î ë ü ø å ñ ò à ";

    pravil_otvet=3;

    }

    if (g==3)

    {Form5-> Visible=true;

    Form1-> Visible=false;

    Form5-> Label6-> Caption=" 1";

    Form5-> Label5-> Caption=" Ê à ê î å ç í à ÷ å í è å, ï î ó ì î ë ÷ à í è þ, â î ç â ð à ù à å ò ï ð î ã ð à ì ì à î ï å ð à ö è î í í î é ñ è ñ ò å ì å â ñ ë ó ÷ à å ó ñ ï å ø í î ã î ç à â å ð ø å í è ÿ? ";

    Form5-> Label1-> Caption=" -1";

    Сервис онлайн-записи на собственном Telegram-боте
    Попробуйте сервис онлайн-записи VisitTime на основе вашего собственного Telegram-бота:
    — Разгрузит мастера, специалиста или компанию;
    — Позволит гибко управлять расписанием и загрузкой;
    — Разошлет оповещения о новых услугах или акциях;
    — Позволит принять оплату на карту/кошелек/счет;
    — Позволит записываться на групповые и персональные посещения;
    — Поможет получить от клиента отзывы о визите к вам;
    — Включает в себя сервис чаевых.

    Для новых пользователей первый месяц бесплатно.
    Зарегистрироваться в сервисе

    Form5-> Label2-> Caption=" 0";

    Form5-> Label3-> Caption=" 1";

    Form5-> Label4-> Caption=" Ï ð î ã ð à ì ì à í å â î ç â ð à ù à å ò ç í à ÷ å í è å ";

    pravil_otvet=3;

    }

    if (g==4)

    {Form6-> Visible=true;

    Form1-> Visible=false;

    Form6-> Label6-> Caption=" 1";

    Form6-> Label5-> Caption=" Ó ê à æ è ò å î á ú å ê ò í î -î ð è å í ò è ð î â à í í û é ÿ ç û ê ï ð î ã ð à ì ì è ð î â à í è ÿ ";

    Form6-> Label1-> Caption=" Ñ ++";

    Form6-> Label2-> Caption=" Â ñ å â à ð è à í ò û î ò â å ò î â ";

    Form6-> Label3-> Caption=" Java";

    Form6-> Label4-> Caption=" Eiffel";

    pravil_otvet=4;

    }

    if (g==5)

    {Form7-> Visible=true;

    Form1-> Visible=false;

    Form7-> Label6-> Caption=" 1";

    Form7-> Label5-> Caption=" Ê à ê î é è ç ñ ë å ä ó þ ù è õ î ï å ð à ò î ð î â - î ï å ð à ò î ð ñ ð à â í å í è ÿ ä â ó õ ï å ð å ì å í í û õ? ";

    Form7-> Label1-> Caption=": =";

    Form7-> Label2-> Caption=" ==";

    Form7-> Label3-> Caption=" equal";

    Form7-> Label4-> Caption=" =";

    pravil_otvet=1;

    }

     

    }

     

     

    void __fastcall TForm1:: Edit1KeyPress(TObject *Sender, char & Key)

    {

    if((Key! =VK_BACK)& & (Key< '0'||Key> '9'))Key=0;

     

    }

     

    void __fastcall TForm1:: FormCreate(TObject *Sender)

    {

    Form8=new TForm8(this);

    Form8-> ShowModal();

    Form8-> Free();

    if(Edit2-> Text==" ")

    {BitBtn1-> Enabled=false; }

    }

     

    void __fastcall TForm1:: N2Click(TObject *Sender)

    {

    HWND h; //³ ä å í ò è ô ³ ê à ò î ð â ³ ê í à

    h= FindWindow(" HH Parent", " Ì à ò ð è ö ÿ ");

    if (h==0)

    WinExec(" hh.exe Help.chm", SW_RESTORE);

    else

    {

    ShowWindow(h, SW_RESTORE);

    SetForegroundWindow(h);

     

    } }

     

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

     

    void __fastcall TForm1:: Edit2Change(TObject *Sender)

    {

    if (! Edit2-> Text.IsEmpty())

    {

    BitBtn1-> Enabled = true;

    }

    else

    {

    BitBtn1-> Enabled = false;

    }

    }

     

     

    void __fastcall TForm1:: FormClick(TObject *Sender)

    {

    if(Edit2-> Text==" ")

    {MessageDlg(" Â â å ä ³ ò ü ñ â î ¿ ³ í ³ ö ³ à ë è! ", mtError, TMsgDlgButtons() < < mbOK, 0); }

    }

     

    #include < vcl.h>

    #pragma hdrstop

    #include " fstream.h"

    #include " iostream.h"

    #include " Unit1.h"

    #include " Unit2.h"

    #include " Unit3.h"

    #include " Unit4.h"

    #include " Unit5.h"

    #include " Unit6.h"

    #include " Unit7.h"

     

    #pragma package(smart_init)

    #pragma resource " *.dfm"

    int s=0, i=0, pravil_otvet, nomer=0, n=2;

    TForm2 *Form2;

     

    __fastcall TForm2:: TForm2(TComponent* Owner)

    : TForm(Owner)

    {

    }

     

    void __fastcall TForm2:: BitBtn2Click(TObject *Sender)

    {

    Form2-> Visible=false;

    Form3-> Visible=true;

    Form3-> Label2-> Caption=s;

    if (s==1)

    {Form3-> Label3-> Caption=" Á à ë "; }

    if(s==2)

    {Form3-> Label3-> Caption=" Á à ë è "; }

    if(s==3)

    {Form3-> Label3-> Caption=" Á à ë è "; }

    if(s==4)

    {Form3-> Label3-> Caption=" Á à ë è "; }

    if(s==5)

    {Form3-> Label3-> Caption=" Á à ë ³ â "; }

    if(s==6)

    {Form3-> Label3-> Caption=" Á à ë ³ â "; }

    if(s==7)

    {Form3-> Label3-> Caption=" Á à ë ³ â "; }

    if(s==8)

    {Form3-> Label3-> Caption=" Á à ë ³ â "; }

    if(s==9)

    {Form3-> Label3-> Caption=" Á à ë ³ â "; }

    if(s==10)

    {Form3-> Label3-> Caption=" Á à ë ³ â "; }

    if(s==0)

    {Form3-> Label3-> Caption=" Á à ë ³ â "; }

    Form2-> Label4-> Caption=s;

    if(s==0)

    {Form3-> Label4-> Caption=" Å ê ç à ì å í ï ð î â à ë å í î."; }

    if(s> 8)

    {Form3-> Label4-> Caption=" Å ê ç à ì å í ñ ê ë à ä å í î! "; }

    if(s< 8)

    {Form3-> Label4-> Caption=" Å ê ç à ì å í ï ð î â à ë å í î."; }

     

    }

     

    void __fastcall TForm2:: BitBtn1Click(TObject *Sender)

    {

     

    if(RadioButton1-> Checked==true)i=1;

    if(RadioButton2-> Checked==true)i=2;

    if(RadioButton3-> Checked==true)i=3;

    if(RadioButton4-> Checked==true)i=4;

    if(i==pravil_otvet)s++;

    i=0;

     

    RadioButton1-> Checked=false;

    RadioButton2-> Checked=false;

    RadioButton3-> Checked=false;

    RadioButton4-> Checked=false;

    nomer++;

    Form2-> Label6-> Caption=n;

    n++;

     

     

    switch(nomer)

    {

    case 1:

    Form2-> Label5-> Caption=" Ê à ê ó þ ô ó í ê ö è þ ä î ë æ í û ñ î ä å ð æ à ò ü â ñ å ï ð î ã ð à ì ì û í à Ñ ++? ";

    Form2-> Label1-> Caption=" start()";

    Form2-> Label2-> Caption=" program()";

    Form2-> Label3-> Caption=" system()";

    Form2-> Label4-> Caption=" main()";

    pravil_otvet=2;

    break;

     

    case 2:

    Form2-> Label5-> Caption=" Ò å ë î ë þ á î ã î ö è ê ë à â û ï î ë í ÿ å ò ñ ÿ ä î ò å õ ï î ð, ï î ê à å ã î ó ñ ë î â è å...";

    Form2-> Label1-> Caption=" ó ö è ê ë à í å ò ó ñ ë î â è ÿ ";

    Form2-> Label2-> Caption=" ë î æ í î ";

    Form2-> Label3-> Caption=" è ñ ò è í í î ";

    Form2-> Label4-> Caption=" ñ ë î æ í î ";

    pravil_otvet=2;

    break;

     

    case 3:

    Form2-> Label5-> Caption=" Ê à ê î é è ç í è æ å ï å ð å ÷ è ñ ë å í í û õ î ï å ð à ò î ð î â, í å ÿ â ë ÿ å ò ñ ÿ ö è ê ë î ì â Ñ ++? ";

    Form2-> Label1-> Caption=" repeat until";

    Form2-> Label2-> Caption=" do while";

    Form2-> Label3-> Caption=" while";

    Form2-> Label4-> Caption=" for";

    pravil_otvet=3;

    break;

     

    case 4:

    Form2-> Label5-> Caption=" Ï ð î ñ ò û å ò è ï û ä à í í û õ â Ñ ++";

    Form2-> Label1-> Caption=" ö å ë û å – int, â å ù å ñ ò â å í í û å – float è ë è double, ñ è ì â î ë ü í û å – string";

    Form2-> Label2-> Caption=" ö å ë û å – int, â å ù å ñ ò â å í í û å – float è ë è double, ñ è ì â î ë ü í û å – char";

    Form2-> Label3-> Caption=" ö å ë û å – int, â å ù å ñ ò â å í í û å – float è ë è real, ñ è ì â î ë ü í û å – char";

    Form2-> Label4-> Caption=" ö å ë û å – bool, â å ù å ñ ò â å í í û å – float è ë è double, ñ è ì â î ë ü í û å – string";

    pravil_otvet=3;

    break;

     

    case 5:

    Form2-> Label5-> Caption=" Ê à ê î é î ï å ð à ò î ð í å ä î ï ó ñ ê à å ò ï å ð å õ î ä à î ò î ä í î ã î ê î í ñ ò à í ò í î ã î â û ð à æ å í è ÿ ê ä ð ó ã î ì ó? ";

    Form2-> Label1-> Caption=" end; ";

    Form2-> Label2-> Caption=" break; ";

    Form2-> Label3-> Caption=" ò î ÷ ê à ñ ç à ï ÿ ò î é ";

    Form2-> Label4-> Caption=" stop; ";

    pravil_otvet=2;

    break;

     

    case 6:

    Form2-> Label5-> Caption=" × ò î á û ï î ä ê ë þ ÷ è ò ü ç à ã î ë î â î ÷ í û é ô à é ë â ï ð î ã ð à ì ì ó í à Ñ ++, í à ï ð è ì å ð iostream í å î á õ î ä è ì î í à ï è ñ à ò ü: ";

    Form2-> Label1-> Caption=" include #iostream, h; ";

    Form2-> Label2-> Caption=" #include < >; ñ iostream.h â í ó ò ð è ñ ê î á î ê ";

    Form2-> Label3-> Caption=" #include < > ñ iostream â í ó ò ð è ñ ê î á î ê ";

    Form2-> Label4-> Caption=" include (iostreamh)";

    pravil_otvet=2;

    break;

     

    case 7:

    Form2-> Label5-> Caption=" Ö è ê ë ñ ï ð å ä ó ñ ë î â è å ì? ";

    Form2-> Label1-> Caption=" for";

    Form2-> Label2-> Caption=" while";

    Form2-> Label3-> Caption=" do while";

    Form2-> Label4-> Caption=" if";

    pravil_otvet=1;

    break;

     

    case 8:

    Form2-> Label5-> Caption=" Ó ê à æ è ò å ï ð à â è ë ü í î å î ï ð å ä å ë å í è å ô ó í ê ö è è main â ñ î î ò â å ò ñ ò â è è ñ î ñ ï å ö è ô è ê à ö è å é ñ ò à í ä à ð ò à ANSI";

    Form2-> Label1-> Caption=" int main(void)";

    Form2-> Label2-> Caption=" void main(void)";

    Form2-> Label3-> Caption=" int main()";

    Form2-> Label4-> Caption=" void main()";

    pravil_otvet=3;

    break;

     

    case 9:

    Form2-> Label5-> Caption=" Ê à ê è ì è ç í à ê à ì è ç à ê à í ÷ è â à å ò ñ ÿ á î ë ü ø è í ñ ò â î ñ ò ð î ê ê î ä à â Ñ è ++? ";

    Form2-> Label1-> Caption=": (ä â î å ò î ÷ è å)";

    Form2-> Label2-> Caption=", (ç à ï ÿ ò à ÿ)";

    Form2-> Label3-> Caption="; (ò î ÷ ê à ñ ç à ï ÿ ò î é)";

    Form2-> Label4-> Caption=". (ò î ÷ ê à)";

    pravil_otvet=2;

    break;

     

    case 10:

    Form2-> Label6-> Caption=" 10";

    BitBtn1-> Enabled=false;

    RadioButton1-> Enabled=false;

    RadioButton2-> Enabled=false;

    RadioButton3-> Enabled=false;

    RadioButton4-> Enabled=false;

     

    }

    }

     

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

     

    #include < vcl.h>

    #pragma hdrstop

    #include " iostream.h"

     

    #include " Unit1.h"

    #include " Unit2.h"

    #include " Unit3.h"

    #include " Unit4.h"

    #include " Unit5.h"

    #include " Unit6.h"

    #include " Unit7.h"

     

    #pragma package(smart_init)

    #pragma resource " *.dfm"

    TForm3 *Form3;

     

    __fastcall TForm3:: TForm3(TComponent* Owner)

    : TForm(Owner)

    {

    }

     

     

    void __fastcall TForm3:: BitBtn1Click(TObject *Sender)

    {

    Form1-> Close();

    Form2-> Close();

    Form3-> Close();

    Form3-> Label5-> Caption=Form1-> Edit2-> Text;

    Form3-> Label6-> Caption=" ";

     

    FILE *file;

    char* file_name = " test.txt";

    file = fopen(file_name, " w");

    fputs(Label5-> Caption.c_str(), file);

    fputs(Label6-> Caption.c_str(), file);

    fputs(Label2-> Caption.c_str(), file);

    fputs(Label6-> Caption.c_str(), file);

    fputs(Label3-> Caption.c_str(), file);

    fclose(file);

    }

     

    void __fastcall TForm3:: BitBtn2Click(TObject *Sender)

    {

    Form1-> Visible=true;

    Form2-> Visible=false;

    Form3-> Visible=false;

    Form4-> Visible=false;

    Form5-> Visible=false;

    Form6-> Visible=false;

    Form7-> Visible=false;

    Form1-> Edit1-> Clear();

    Form1-> Edit2-> Clear();

     

    }

     

    void __fastcall TForm3:: FormDeactivate(TObject *Sender)

    {

    Form3-> Label5-> Caption=Form1-> Edit2-> Text;

    Form3-> Label6-> Caption=" ";

     

    FILE *file;

    char* file_name = " test.txt";

    file = fopen(file_name, " w");

    fputs(Label5-> Caption.c_str(), file);

    fputs(Label6-> Caption.c_str(), file);

    fputs(Label2-> Caption.c_str(), file);

    fputs(Label6-> Caption.c_str(), file);

    fputs(Label3-> Caption.c_str(), file);

    fclose(file);

    }

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

     

    void __fastcall TForm3:: FormClick(TObject *Sender)

    {

    Form3-> Label5-> Caption=Form1-> Edit2-> Text;

    Form3-> Label6-> Caption=" ";

     

    FILE *file;

    char* file_name = " test.txt";

    file = fopen(file_name, " w");

    fputs(Label5-> Caption.c_str(), file);

    fputs(Label6-> Caption.c_str(), file);

    fputs(Label2-> Caption.c_str(), file);

    fputs(Label6-> Caption.c_str(), file);

    fputs(Label3-> Caption.c_str(), file);

    fclose(file);

    }

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


    ⇐ Предыдущая123456




    © 2023 :: MyLektsii.ru :: Мои Лекции
    Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
    Копирование текстов разрешено только с указанием индексируемой ссылки на источник.