У вас вопросы?
У нас ответы:) SamZan.net

4 Контрольный пример 2.html

Работа добавлена на сайт samzan.net: 2016-01-17

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 20.2.2025

2.1.4  Контрольный пример

 

2.1.5 Листинг программы

procedure TForm1.Button1Click(Sender: TObject);

var a,b,c:integer;

begin

a:=strtoint(edit1.Text);

b:=strtoint(edit2.text);

c:=a+b;

if c<32767 then label4.caption:=inttostr(c);

end;

end.

2.2.4  Контрольный пример

2.2.5 Листинг программы

procedure TForm1.Button1Click(Sender: TObject);

var n:integer; b,c:string;

begin

repeat

n:=STRTOINT(edit1.text);

until (n>1000) and (n<=9999);

if ((n mod 10)<>(n div 10 mod 10)) and ((n mod 10)<>(n div 100)) and ((n div 10 mod 10)<>(n div 100)) then

showmessage('Цифры не равны') else showmessage('Цифры равны') ;

end;

end.

2.3.4  Контрольный пример

2.3.5 Листинг программы

procedure TForm1.Button1Click(Sender: TObject);

var x,y,z,w:real;

begin

x:=strtofloat(edit1.Text);

y:=strtofloat(edit2.text);

z:=strtofloat(edit3.text);

w:=sqr(cos(x)-cos(y))*(1+z+sqr(z)/2+(sqr(z)*(z))/3+(sqr(z)*(z)*(z))/4);

label5.Caption:=floattostr(w);

end;

end.

2.4.4  Контрольный пример

2.4.5 Листинг программы

procedure TForm1.Button1Click(Sender: TObject);

var a:array[0..9] OF INTEGER;

sum,i:integer;

begin

sum:=0;

for i:=0 to 4 do

begin

a[i]:=strtoint(memo1.Lines[i]);

sum:=sum+a[i];

end;

edit1.text:=inttostr(sum);

end;

end.

2.5.4  Контрольный пример

2.5.5 Листинг программы

procedure TForm1.Button1Click(Sender: TObject);

var a:integer;

begin

a:=listbox1.ItemIndex;

case a of

0: label3.caption:='Привет 1-классник';

1: label3.caption:='Привет 2-классник';

2: label3.caption:='Привет 3-лассник';

3: label3.caption:='Привет 4-классник';

4: label3.caption:='Привет 5-классник';

5: label3.caption:='Привет 6-классник';

6: label3.caption:='Привет 7-классник';

7: label3.caption:='Привет 8-классник';

8: label3.caption:='Привет 9-классник';

9: label3.caption:='Привет 10-классник';

10: label3.caption:='Привет 11-классник';

end;

end;

end.




1.  Конституция США 1781 г
2. тематизацию и анализ фактов с целью выведения обобщений г процесс создания теоретических концепций на ос
3. Тема- Методика социально ' педагогической деятельности с детскими общественными объединениями
4. ; у болса румбты аны~та~ыз.
5. тема и время Так же как и при общественном смотре знаний организация учебной встречи состоит из подготовки
6. Механизация и автоматизация производства ~ частичная комплексная полная
7. I Актуальность темы
8. Российские студенческие отряды Руководителю командиру Московского регионального отделения Молодеж
9. Книга Медиумов Аллана Кардека по сути дела является практическим руководством для изучающих спиритизм для
10. Протоколы передачи данных нижнего уровня