Составить программу вычисления суммы мест, на которых в строке, введенной с клавиатуры, стоят согласные буквы. например в 'строке' сумма мест согласных букв равняется 1+2+3+5+=11
Var s,g:string; sum:integer; begin g:=''; read(s); sum:=0; for var i:=1 to length(s) do if (pos(s[i],g)>0) then sum:= sum+i; writeln(sum); end. //ABC Pascal
Хорошо, давайте начнем с создания приложения на форме.
1. Откройте Visual Basic Editor в Excel, нажав комбинацию клавиш "Alt + F11".
2. В меню "Вставка" выберите "Пользовательская форма".
3. На созданной форме добавьте два элемента управления: Timer и TextBox. Вы можете найти их в панели элементов управления (Toolbox).
4. Когда элементы управления добавлены, дважды щелкните на Timer, чтобы открыть редактор кода для него.
Теперь мы начнем писать код, который будет увеличивать число в TextBox каждую секунду:
5. В редакторе кода для Timer добавьте следующий код:
Private Sub Timer1_Timer()
' Увеличиваем значение TextBox на единицу
TextBox1.Text = TextBox1.Text + 1
End Sub
Теперь в TextBox1 будет увеличиваться число на единицу каждую секунду.
6. Чтобы приложение начало работать, добавьте следующий код в модуль для формы:
Private Sub UserForm_Initialize()
Timer1.Interval = 1000 ' Задаем интервал времени в миллисекундах (1000 миллисекунд = 1 секунда)
Timer1.Enabled = True ' Включаем Timer
End Sub
Этот код устанавливает интервал времени Timer на 1 секунду и включает его, чтобы он начал работать.
7. Закройте редактор кода и нажмите "F5" или "Ctrl + G", чтобы запустить приложение.
Теперь вы можете увидеть, что число в TextBox1 будет увеличиваться на 1 каждую секунду, благодаря Timer.
Все готово! Теперь у вас есть приложение, которое увеличивает число в TextBox каждую секунду.
а) В данном случае цикл будет выполняться три раза, так как начальное значение переменной i равно 3, и каждый раз значение i уменьшается на 1 до тех пор, пока i больше 0.
Первая итерация:
a = a + i = 0 + 3 = 3
Вторая итерация:
a = a + i = 3 + 2 = 5
Третья итерация:
a = a + i = 5 + 1 = 6
Таким образом, число повторений цикла равно 3, а значение переменной a после завершения цикла будет равно 6.
б) В данном случае цикл будет выполняться пять раз, так как начальное значение переменной i равно 0, и каждый раз значение i увеличивается на 1 до тех пор, пока i меньше или равно 4.
Первая итерация:
a = a + 2 = 4 + 2 = 6
Вторая итерация:
a = a + 2 = 6 + 2 = 8
Третья итерация:
a = a + 2 = 8 + 2 = 10
Четвертая итерация:
a = a + 2 = 10 + 2 = 12
Пятая итерация:
a = a + 2 = 12 + 2 = 14
Таким образом, число повторений цикла равно 5, а значение переменной a после завершения цикла будет равно 14.
s,g:string;
sum:integer;
begin
g:='';
read(s);
sum:=0;
for var i:=1 to length(s) do
if (pos(s[i],g)>0) then sum:= sum+i;
writeln(sum);
end.
//ABC Pascal