remizowanikaggr
26.11.2021 14:06

Завдання.Розробіть у середовищі Lazarus проект,
після запуску якого до текстових полів екранної форми користувач вводиме прізвище ім'я по-батькові. Після натиснення кнопки Пуск до відповідного тек-
стового поля будуть виводитися прізвище та ініціали
(мал. 22. 10).
1. Сплануйте проект. Передбачте, які об'єкти бу-
дуть використані на екранній формі та які події відбуватимуться з нимих.
2. Упапці Навчальні проекти власної структури папок створіть папку Ініціали.
3.Запустіть середовище Lazarus, створіть новий проект. Змініть значення
властивості Caption об'єкта Form1, надавши значення Ініціали. Розміс-
тіть на формі об'єкти за зразком і надайте значень іх властивостям, що
Визначені самостійно. Властивості Enabled текстового поля для відобра-
ження прізвища та ініціалів надайте значення False, щоб користувач не
міг змінити вміст цього поля з клавіатури.
4.Створіть процедуру опрацювання події: натиснути кнопку Пуск. У вікні ре-
дактора коду опишіть змінні, які будуть використовуватись у проекті:
var last name, first name, sname, full name: string;
5.У вікні редактора коду запишіть команди присвоювання значень змінним last_name,first_name,sname.
6.Запишіть команду знаходження значення змінної величини , full name:
full nema:=last neme+ ' '+ UTF8copy(first name , 1,1)+' . '+UTF8copy(sname,1,1)+' . ';
7.Передбачте виведення отриманого значення змінної у відповідне текстове поле.
8.Запустіть проект на виконання.Введіть дані в текстові поля . Натисніть кнопку Пуск і перевірте правильність роботи програми.Якщо є помилки виправте їх .
9.Завершіть роботу з проектом і середовищем.​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Nurbibi12
03.05.2021 10:07
Const
  problems : array [0..9] of String = ('x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10','x1+5=10', 'x1+5=10', 'x1+5=10');
  answers : array [0..9] of String = ('-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5');
var
  countOfAnswers, counter: integer;
  userAnswer: String;
begin
  countOfAnswers := 0;
  for counter:=0 to 9 do
    begin
      write('Введите ответ уравнения ', problems[counter], ' : ');
      readln(userAnswer);
      if userAnswer = answers[counter] then Inc(countOfAnswers);
    end;
if countOfAnswers > 8 then writeln('Отлично')
    else if countOfAnswers > 5 then writeln('Хорошо')
    else writeln('Плохо');
end.
0,0(0 оценок)
Ответ:
Semen200000000
27.02.2021 23:32
1) 1000=120+110. Складываем в столбик.
  120
  110

1000
Во втором разряде справа 2+1 дало в результате 0. Но 2+1=3 в десятичной системе, следовательно система счисления троичная.

2) Если в мешке только красные яблоки, то вероятность вытащить красное яблоко равна единице и сообщение о том, какого цвета вытащенное яблоко не содержит никакой новой информации т.е. количество информации 0 бит. А если там есть яблоки другого цвета. то информации для решения задачи недостаточно.

3) Диапазон А1:С4 содержит четыре строки (1-4) и три колонки (А-С). Итого 4х3=12 ячеек.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота