Записки студента-программиста: Олимпиада

Скласти на мові C++ в системі програмування C++Builder, або на мові C# в системі програмування Visual C# Express або на мові Object Pascal в системі програмування Delphi програму «Ступені», яка обчислює залишок від цілочисельного ділення числа mn на d. Програма має отримувати від користувача числа m, n, d з полів вводу та виводити залишок в поле виводу. Обмеження: m<30000, n<30000, d<120.

Составить на языке C + + в системе программирования C + + Builder, или на языке C # в системе программирования Visual C # Express или на языке Object Pascal в системе программирования Delphi программу «Ступени», которая вычисляет остаток от целочисленного деления числа mn на d. Программа должна получать от пользователя числа m, n, d с полей ввода и выводить остаток в поле вывода. Ограничения: m <30000, n <30000, d <120.

procedure TForm2.Button1Click(Sender: TObject); var   m,n,d: integer;   mCode,nCode,dCode: integer;   i,buffer:integer; begin   // Проверяем правильность вводимых переменных   val(mEdit.Text,m,mCode);   val(nEdit.Text,n,nCode);   val(dEdit.Text,d,dCode);   if (mCode<>0) OR (nCode<>0) OR (dCode<>0) then   begin     ResLabel.Caption := 'В одном из полей вы ввели неправильное значение! Пожалуйста, проверте правильность вводимых значений!';     exit;   end;   // Возводим в степень   buffer := m;   for i := 2 to n do     buffer := buffer * m;   // Результат   ResLAbel.Caption := 'Результат равен ' + IntToStr(buffer div d); end; 

Скласти на мові C++ в системі програмування C++Builder, або на мові C# в системі програмування Visual C# Express або на мові Object Pascal в системі програмування Delphi програму «Корабель», яка має демонструвати принципи мультиплікації (пересування об’єкту на фоні картинки). Зображення фону та об’єкту мають завантажуватися з файлу.

Составить на языке C + + в системе программирования C + + Builder, или на языке C # в системе программирования Visual C # Express или на языке Object Pascal в системе программирования Delphi программу «Корабль», которая должна демонстрировать принципы мультипликации (передвижение объекта на фоне картинки). Изображение фона и объекта должны загружаться из файла.

//Загрузка фона procedure TForm1.Button1Click(Sender: TObject); begin if OpenPictureDialog1.Execute then begin   Background.Picture.LoadFromFile(OpenPictureDialog1.FileName);   Background2.Picture.LoadFromFile(OpenPictureDialog1.FileName); end else begin   ShowMessage('Error!!! You dont choose picture!'); end; end; //Загрузка изображения кораблика procedure TForm1.Button2Click(Sender: TObject); begin if OpenPictureDialog1.Execute then begin   Ship.Picture.LoadFromFile(OpenPictureDialog1.FileName); end else begin   ShowMessage('Error!!! You dont choose picture!'); end; end;  // Стартуем procedure TForm1.Button3Click(Sender: TObject); begin Panel1.Hide; end; //Проверка, загружены ли картинки procedure TForm1.Button4Click(Sender: TObject); begin Label13.Caption := ''; if Background.Picture.Graphic=nil then Label13.Caption := 'Не загружен фон! '; if Ship.Picture.Graphic=nil then Label13.Caption := Label13.Caption + 'Не загружен кораблик!'; if NOT ((Background.Picture.Graphic=nil) OR (Ship.Picture.Graphic=nil)) then Button3.Enabled := true; end; //Выход procedure TForm1.Button5Click(Sender: TObject); begin   Application.Terminate; end; //Инициализация при запуске  procedure TForm1.FormCreate(Sender: TObject); begin Timer.Enabled := false; distance := 0; Self.DoubleBuffered := true; Background2.Left := Background.Left + Background.Width; end; // Управление procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin   if Key = #27 then   begin     speed:=0;     Button3.Caption :='Продолжить';     Panel1.Show;   end;    if Key = 'e'  then  if (speed + 5) < 30 then speed := speed + 5;   if Key = 'q'  then  if (speed - 5) >= 0 then speed := speed - 5;   if Key = 'w' then  if (Ship.Top - 30) > 15 then Ship.Top := Ship.Top - 30;   if Key = 's' then  if (Ship.Top + 30) < ((Background.Height - Ship.Height) - 15 ) then Ship.Top := Ship.Top + 30;   if Key = 'a' then  if (Ship.Left - 5) > 5 then  Ship.Left := Ship.Left - 5;   if Key = 'd' then  if (Ship.Left + 5) < Form1.Background.Width then  Ship.Left := Ship.Left + 5; end; //Таймер, который двигает фоновую картинку procedure TForm1.TimerTimer(Sender: TObject); begin   Background.Left :=   Background.Left - speed;   Background2.Left := Background2.Left - speed;   distance := distance + abs(speed);   SpeedLabel.Caption := FloatToStr(speed/5);   DistanceLabel.Caption := IntToStr(distance/5);   if Background.Left < -1201 then Background.Left := Background2.Left + 1200;   if Background2.Left < -1201 then Background2.Left := BAckground.Left + 1200; end; 

Скласти на мові C++ в системі програмування C++Builder, або на мові C# в системі програмування Visual C# Express або на мові Object Pascal в системі програмування Delphi програму «Вгадай число». Програма випадковим чином обирає ціле число в деякому діапазоні, а користувач намагається вгадати його та вводить своє число з клавіатури. Якщо число вгадане, програма виводить повідомлення про це і завершує свою роботу. Інакше спроба вгадати число повторюється ще 2 рази. При цьому користувачу видається повідомлення: “задане число більше чи менше введеного”.

Составить на языке C + + в системе программирования C + + Builder, или на языке C # в системе программирования Visual C # Express или на языке Object Pascal в системе программирования Delphi программу «Угадай число». Программа случайным образом выбирает целое число в некотором диапазоне, а пользователь пытается угадать его и вводит свое число с клавиатуры. Если число угадано, программа выводит сообщение об этом и завершает свою работу. Иначе попытка угадать число повторяется еще 2 раза. При этом пользователю выдается сообщение: «заданное число больше или меньше введенного».

procedure TForm2.Button1Click(Sender: TObject); var   m,mCode: integer; begin // Проверяем правильность значения   val(Edit1.Text, m, mCode);   if mCode <>0 then     ResLabel.Caption := 'Неправильно введено значение!  Проверьте правильность введенного значения!'   else   // проверяем ответ   if m = answer then   begin     ResLabel.Caption := 'Ура! Вы угадали!!! Приложение закроеться через 5 сек.';     timer.Enabled := true   end   else   if attempt<>1 then // если попытки еще есть   if m > answer then   begin     dec(attempt);     ResLabel.Caption := 'Увы! Введенное значение больше моего числа. У тебя еще:'+ IntToStr(attempt) +' попыток'   end   else   begin     dec(attempt);     ResLabel.Caption := 'Увы! Введенное тобой значение меньше моего числа. У тебя еще:'+ IntToStr(attempt) +' попыток';   end   else   begin  //попытки закончились     ResLabel.Caption := 'Увы! Попытки закончились! Пока! (приложение закроеться через 5 сек.)';     Timer.Enabled := true;   end; end; 

Скласти на мові C++ в системі програмування C++Builder, або на мові C# в системі програмування Visual C# Express або на мові Object Pascal в системі програмування Delphi програму «Аутентифікація», яка має створювати вікно перевірки паролю та логіну користувачів та виводити відповідне повідомлення підтвердження або помилки. Перелік існуючих користувачів та їх паролів має зберігатись у файлі. Реалізувати можливість додавання нового користувача.

Составить на языке C + + в системе программирования C + + Builder, или на языке C # в системе программирования Visual C # Express или на языке Object Pascal в системе программирования Delphi программу «Аутентификация», которая должна создавать окно проверки пароля и логина пользователей выводить соответствующее сообщение подтверждения или ошибки. Перечень существующих пользователей и их паролей должна храниться в файле. Реализовать возможность добавления нового пользователя.

//Проверка, если ли такой логин/пароль в файле function isCorrect(res: String): boolean; var   tempStr: String;   mfile: TextFile; begin   AssignFile(mfile,'catalog.txt');   Reset(mfile);   while not eof(mfile) do   begin     ReadLn(mfile, tempStr);     if tempStr = res then     begin       isCorrect := true;       closeFile(mfile);       exit;     end;   end;   isCorrect := false;   closeFile(mfile); end; //Регистрация пользователя procedure TForm1.Button1Click(Sender: TObject); var   res: String;   mfile: TextFile; begin // Алгоритм такой: формируется строка логин - разделитель - пароль и сверяется со всеми строками в файле   res := trim(LoginEdit.Text) + '|' + trim(PasswordEdit.Text);    if isCorrect(res) then   begin     MessageLabel.Font.Color := clRed;     MessageLabel.Caption := 'User already exists';     exit;   end;   AssignFile(mfile,'catalog.txt');   append(mfile);   WriteLn(mfile, res);   closeFile(mfile);   MessageLabel.Font.Color := clLime;   MessageLabel.Caption := 'User created!'; end; //Проверка логина/пароля procedure TForm1.Button2Click(Sender: TObject); var   mfile: TextFile;   res: String;   tempStr: String; begin   res := trim(LoginEdit.Text) + '|' + trim(PasswordEdit.Text);   if isCorrect(res) then   begin     MessageLabel.Font.Color := clLime;     MessageLabel.Caption := 'Enter is successfull!';   end   else   begin     MessageLabel.Font.Color := clRed;     MessageLabel.Caption := 'User or password is invalid!';   end;   LoginEdit.SetFocus; end; 

Скласти на мові C++ в системі програмування C++Builder, або на мові C# в системі програмування Visual C# Express або на мові Object Pascal в системі програмування Delphi програму «Шифр Хасегава», яка виконує шифрування та дешифрування за алгоритмом Хасегава. При шифруванні кожному символу початкового відкритого повідомлення привласнюється його порядковий номер в алфавіті, після чого обирається ключ і його символи підписуються під символами початкового відкритого повідомлення з послідовним повторюванням ключу. Символам ключу також привласнюються порядкові номери за алфавітом, після чого вони складаються з відповідними символами повідомлення і отримані номери переводяться в символи початкового алфавіту. Відповідно, при перевищенні порядковим номером символу довжини алфавіту треба відняти довжину алфавіту. При дешифруванні виконати зворотні операції.

Составить на языке C + + в системе программирования C + + Builder, или на языке C # в системе программирования Visual C # Express или на языке Object Pascal в системе программирования Delphi программу «Шифр Хасегава», которая выполняет шифрование и дешифрование по алгоритму Хасегава. При шифровании каждому символу начального открытого сообщения присваивается его порядковый номер в алфавите, после чего избирается ключ и его символы подписываются под символами исходного открытого сообщения с последовательным повторением ключу. Символам ключу также присваиваются порядковые номера по алфавиту, после чего они состоят с соответствующими символами сообщения и полученные номера переводятся в символы исходного алфавита. Соответственно, при превышении порядковым номером символа длины алфавита надо вычесть длину алфавита. При дешифрировании выполнить обратные операции.

// Шифрация function encrypt(const text, key: string): string; var   i, p1, p2, len: integer;   s: string; begin   s := text;   len := length(key);   for i := 1 to length(text) do   begin     p1 := pos(text[i], alp);     if p1 = 0 then       continue;     p2 := pos(key[(i - 1) mod len + 1], alp);     s[i] := alp[(p1 + p2 - 1) mod alplen + 1];   end;   result := s; end; //Дешифрация function decrypt(const text, key: string): string; var   i, p1, p2, len: integer;   s: string; begin   s := text;   len := length(key);   for i := 1 to length(text) do   begin     p1 := pos(text[i], alp);     if p1 = 0 then       continue;     p2 := pos(key[(i - 1) mod len + 1], alp);     s[i] := alp[(p1 - p2 - 1 + alplen) mod alplen + 1];   end;   result := s; end; 

Скласти на мові C++ в системі програмування C++Builder, або на мові C# в системі програмування Visual C# Express або на мові Object Pascal в системі програмування Delphi програму «Гра». Група з n учнів одягала футболки з позначеними на спині послідовними номерами від 1 до n. Учні становилися в коло по порядку номерів та читали лічилку, що закінчувалась словами “…пішов геть” (починаючи з №1 в порядку збільшення номерів). Той, на кого падало останнє слово “геть”, покидав коло. Лічилка продовжувалась далі з наступного учня, поки не залишався один учасник. Знаючи, що в лічилці m слів, Вовочка завжди встигав обирати футболку з таким номером, щоб виграти. Програма має отримувати від користувача числа m та n і виводити номер, який має бути в переможця. Обмеження: m<30000, n<30000.

Составить на языке C + + в системе программирования C + + Builder, или на языке C # в системе программирования Visual C # Express или на языке Object Pascal в системе программирования Delphi программу «Игра». Группа из n учеников надевала футболки с обозначенными на спине последовательными номерами от 1 до n. Ученики становились в круг по порядку номеров и читали считалку, что заканчивалась словами "… ушел" (начиная с № 1 в порядке возрастания номеров). Тот, на кого падало последнее слово «прочь», покидал круг. Считалка продолжалась дальше со следующего ученика, пока не оставался один участник. Зная, что в считалке m слов, Вовочка всегда успевал выбирать футболку с таким номером, чтобы выиграть. Программа должна получать от пользователя числа m и n и выводить номер, который должен быть у победителя. Ограничения: m <30000, n <30000.

function TForm1.find(W,P:integer): integer; var   pointer: integer;   arrP: array of integer;   tempArr: array of integer;   I,j: Integer;   m: integer;   Str:string; begin SetLength(arrP,P);   for I := 0 to P-1 do  // инициализируем массив числами от 1 до P     arrP[i] := i+1;     pointer := 0;   while Length(arrP) <> 1 do   begin   pointer := (pointer + W - 1) mod length(arrP);    arrP[pointer] := 0;    // полученное число ставим нулем   m := 0; SetLength(tempArr, Length(arrP)-1);  // создаем новый временный массив, который будет на 1 меньше (без выбывшего игрока)   for i := 0 to length(tempArr)-1 do     begin       if arrP[i] = 0 then   m :=1;       tempArr[i] := arrP[i+m];     end; SetLength(arrP,Length(tempArr));   for I := 0 to Length(tempArr) do  arrP[i] := tempArr[i];   end;   find:= arrP[0]; end; 

Скласти на мові C++ в системі програмування C++Builder, або на мові C# в системі програмування Visual C# Express або на мові Object Pascal в системі програмування Delphi програму «Кидання кубика». Передбачається, що кубик, грані якого помічені цифрами від 1 до 6, кидають N разів. Програма повинна обчислити вірогідність того, що сума чисел, що випали, буде дорівнювати Q. Розрахована вірогідність у вигляді дійсного числа має відрізнятись від істинного значення не більше ніж на 0,01 істинного значення. Числа N та Q мають вводитись користувачем з полів вводу.

Составить на языке C + + в системе программирования C + + Builder, или на языке C # в системе программирования Visual C # Express или на языке Object Pascal в системе программирования Delphi программу «Бросание кубика». Предполагается, что кубик, грани которого помечены цифрами от 1 до 6, бросают N раз. Программа должна вычислить вероятность того, что сумма чисел, выпавших будет равна Q. Рассчитаная вероятность в виде действительного числа должна отличаться от истинного значения не более чем на 0,01 истинного значения. Числа N и Q имеют вводиться пользователем с полей ввода.

const   maxSumm = 500 + 2;   maxN = 200 + 2;  function TForm1.getRes(n:integer;sum:integer):double; var   arr: array [0..MaxSumm, 0..maxN] of double;   currN: Integer;   currSumm: Integer;   prev: integer; begin for CurrN := 0 to MaxN do   for CurrSumm := 0 to MaxSumm do     arr[sum,n] := 0; arr[0,0] :=1; for currN := 1 to n do   for currSumm := 1 to sum do     for prev := 1 to 6 do       if currSumm - prev >= 0 then         arr[CurrSumm,currN] := arr[CurrSumm,currN] + (arr[CurrSumm - prev,currN-1] / 6.0);  getRes := arr[sum,n]; end; 

Скласти на мові C++ в системі програмування C++Builder, або на мові C# в системі програмування Visual C# Express або на мові Object Pascal в системі програмування Delphi програму «Депозит», яка повинна обчислювати дохід по вкладу коштів на депозит в банку. Програма повинна забезпечувати розрахунок простих та складних відсотків. Прості відсотки нараховуються в кінці терміну вкладу, складні – щомісячно та додаються до первинної суми вкладу і в наступному місяці відсотки нараховуються на нову суму.

Составить на языке С++ в среде разработки C++Builder, или на языке C# в бреде разработки Visual C# Express, или на языке Object Pascal в среде разработки Delphi программу «Депозит», которая должна рассчитывать доход по вкладу денежных средств на депозит в банк. Программа должна обеспечивать расчет простых и сложных процентов. Простые проценты расчитываются в конце срока вклада, сложные – помесячно и добавляются к первичной сумме, а в следующем месяце проценты начисляются на новую сумму

procedure TForm1.Button1Click(Sender: TObject); var   summ: real;   summCode, period, periodCode, percent, percentCode: integer;   flag: boolean;   temp: real; begin val(PeriodEdit.Text, period, periodCode); val(SummEdit.Text, summ, summCode); val(PerCentEdit.Text, percent, percentCode); Memo.Lines.Clear; flag := false; if periodCode<>0 then begin   Memo.Lines.Add('Вы некорректно ввели период вклада! Период вклада нужно вводить целым числом');   flag:= true; end; if summCode<>0 then begin   Memo.Lines.Add('Вы некорректно ввели сумму вклада! Сумма вклада нужно вводить целым числом');   flag:= true; end; if percentCode<>0 then begin   Memo.Lines.Add('Вы некорректно ввели процентную ставку! Процентную ставку нужно вводить целым числом');   flag:= true; end; if flag then exit;  if RBsimp.Checked then    temp := summ + (summ*(percent/100) * period) // простые проценты else   temp := summ * exp(period * ln( 1 + percent/100)); // сложные проценты  Memo.Lines.Add('Начальня сумма вклада: ' + FloatToStr(summ)); Memo.Lines.Add('Итоговая сумма вклада: ' + FloatToStr(temp)); Memo.Lines.Add('Прибыль: ' + FloatToStr(temp - summ)); PeriodEdit.SetFocus; end; 

Скласти на мові C++ в системі програмування C++Builder, або на мові C# в системі програмування Visual C# Express або на мові Object Pascal в системі програмування Delphi програму «Кількість символів», яка повинна визначати розподіл кількості символів у введеному користувачем в поле Edit рядку та виводити результат у вигляді таблиці виду “символ” – “його кількість”. Прийняти до уваги, що відповідні великі та маленькі літери в рядку мають сприйматись як однакові. Програму необхідно спроектувати таким чином, щоб кнопка Підрахунок була доступною лише в тому випадку, якщо користувач увів аналізуємий рядок.

Составить на языке C + + в системе программирования C + + Builder, или на языке C # в системе программирования Visual C # Express или на языке Object Pascal в системе программирования Delphi программу «Количество символов», которая должна определять распределение количества символов во введенном пользователем в поле Edit строке и выводить результат в виде таблицы вида «символ» — «его количество». Принять во внимание, что соответствующие большие и маленькие буквы в строке должны восприниматься как одинаковые. Программу необходимо спроектировать таким образом, чтобы кнопка Подсчет была доступна только в том случае, если пользователь ввел анализируемую строку.

// Проверка, есть ли в таблице данный символ function TForm1.isPresent(ch: char): boolean; var   i: integer; begin   isPresent := false;   for i := 0 to StringGrid1.RowCount do     if ch = StringGrid1.Cells[0, i] then       isPresent := true;  end; // Подсчет символов procedure TForm1.Button1Click(Sender: TObject); var   str: String;   tempRes: integer;   i, j, strLength, pointer: integer;   tempChar: char; begin   str := AnsiUpperCase(Edit1.Text);   strLength := Length(str);   pointer := 1;   for i := 1 to strLength do   begin     tempRes := 1;     tempChar := str[i];     if not isPresent(tempChar) then     begin       for j := i + 1 to strLength do       begin         if tempChar = str[j] then           inc(tempRes);       end;       StringGrid1.Cells[0, pointer] := tempChar;       StringGrid1.Cells[1, pointer] := IntToStr(tempRes);       StringGrid1.RowCount := StringGrid1.RowCount + 1;       inc(pointer);     end;   end;  end; 

Скласти на мові C++ в системі програмування C++Builder, або на мові C# в системі програмування Visual C# Express або на мові Object Pascal в системі програмування Delphi програму «Година», яка має визначати, скільки повних годин (h) та повних хвилин (m) пройшло від початку доби до того моменту (в першій половині дня), коли часова стрілка повернулась на f градусів (0≤f≤360, f – дійсне число).

Составить на языке C + + в системе программирования C + + Builder, или на языке C # в системе программирования Visual C # Express или на языке Object Pascal в системе программирования Delphi программу «Час», которая должна определять, сколько полных часов (h) и полных минут (m) прошло от начала суток до того момента (в первой половине дня), когда временная стрелка вернулась на f градусов (0 ≤ f ≤ 360, f — действительное число).

procedure TForm2.Button1Click(Sender: TObject); var   fCode:integer;   f:real;   time,h,m,s: integer; begin //Проверка данных   val(Edit.Text, f, fCode);   if (fCode<>0) OR (f > 360) OR (f < 0) then     ResLabel.Caption := 'Вы ввели некорректное значение! Проверьте правильность введеных данных!'   else //Подсчет   begin     time := trunc(f*120);     h := time div 3600;     time := time - 3600*h;     m := time div 60;     time := time - m*60;     ResLabel.Caption := 'Итого: ' + IntToStr(h) + ' часов, ' + IntToStr(m) + ' минут, ' + IntToStr(time) + ' секунд.';   end; end;