While do - Pascal

  1. Как в условие после while записать текстовое выражение, при выводе которого в edit в действиях переменная типа integer будет увеличиваться на 1? Где ошибка?

textual

Код:

var
  Form3: TForm3;
  i : integer;
  q : string;
 
  procedure TForm3.Button2Click(Sender: TObject);
begin
  i:=1;
while (q ='Данные введены верно, вы можете перейти к расчёту зарплаты') do
begin Edit1.Text:=IntToStr(i+1)
end;
  end;

Похожие ответы
  1. В заданной строке текста слова разделены произвольным числом пробелов. Выписать все слова, в которых отсутствуют буквы(б,в,г,д,с,л,м,н,р).

  1. Составить программу для вычисления значения функции y=ln(1-x) с помощью разложения функции в степенной ряд: Ln(1-x) =-x/1-(x)^2/2-(x)^3/3-(x)^4/4...-(x)^n/n+... Помогите пжл.

  1. Помогите решить 0,1sin(x)+x^2-1=0 С точностью Е=10^-4 Интервал изоляции [0,8;1,0] Зарание спасибо!

  1. Составить программу. Пусть дан массив из n элементов.Каждый отрицательный элемент замените полусуммой тех двух элементов, которые стоят с ним справа и слева. Помогите пожалуйста.

  1. Доброго дня всем. Такое вот задание: Описать, используя структуру данных запись, завод (наименование станка, время простоя в месяц, время работы в месяц). Составить программу, определяющую общее время простоя на заводе, списки станков, не имеющих простоя, относительное время простоя всех и каждого станка. Похожие уже написанные программы смотрел, под редактирование не подошли. Помогите пожалуйста с написанием

  1. Составить программу формирования по вещественной квадратной матрице А={a}_{ij},i=1/n,j=1/m логического вектора B={b}_{i},i=1/n,где {b}_{i} имеет значение true, если наибольший элемент в строке с номером i матрицы А не больше заданного Х,и значение false-в противном случае

  1. Помогите написать программу: В массиве из 10 целых чисел подсчитать сумму элементов более чем в 2 рах превышающих минимальный.

  1. Для введенного с клавиатуры произвольного целого числа определить все возможные целые делители, кроме 1 и самого числа. Если число не имеет таких делителей, сообщить об этом. (Например: для 20 – 2,4,5,10; для 21 - 3,7; для 23 – «нет делителей»).

  1. Помогите найти сумму компонентов a1+aN, a2+aN-1, a3+aN-2, ..., ak+am для k<=m.


Нашли ошибку?
Развитие проекта
Яндекс.Метрика