вести и отладить программу. вычислить площадь круга радиуса r. program ZL , const pi = 3.14159; var r, s: real; begin write(видеть р * sqr(r)адиус круга в см); readln (r); s : = pi ; writeln(площадь, s) end. контрольный расчет: r=1, тогда результат s=3.14159
Свойства ComboBox
Объяснение:
Font шрифт назначенный для отображения элементов списка
Height высота компонента
Left расстояние от левой границы компонента ComboBox до левой границы формы
Top расстояние от верхней границы компонента ComboBox до верхней границы формы
Items элемент списка — массив строк. Заполнить его можно во время проектирования нажав на многоточие около этого свойства в окне Oject Inspectror, для работы со свойством Items во время выполнения программы используются методов приведенных в предыдущей статье ListBox
ItemIndex номер элемента, выбранный из списка (нумерация элементов начинается с нуля), если ни одного элемента из списка не выбрано, то значение этого свойства равно -1
Name имя компонента
текст находящийся в поле редактирования
Width ширина компонента
var i,n,x,summa,count:integer;
nechet:boolean;
begin
Writeln('Vvedite n: ');
readln(n);//получаем n
summa:=0;
count:=0;
i:=1;
if(n mod 2 = 1) then nechet := true else nechet := false; //проверяем четное число или нет
while i<n do begin//пока число меньше n
if(nechet) then//если число нечентное
begin
summa:=summa+i*i*i;//прибавляем к сумме куб этого числа
end
else//если число четное
begin
summa:=summa+i*i;//прибавляем квадрат числа
end;
i:=i+1;//прибавляем число на 1
end;
writeln(' summa: ', summa);//выводим сумму
readln();
end.