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

.1 Таблица идентификаторов Идентификаторы программы 11 предоставлены в таблице 11.

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

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

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

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

от 25%

Подписываем

договор

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

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

2.11 Постановка задачи №11

Даны два ненулевыхчисла. Найти их сумму, разность, произведение и частное.

2.11.1 Таблица идентификаторов

             Идентификаторы программы №11 предоставлены в таблице 11.

Таблица 11-идентификаторы программы №11.

переменная

назначение

тип

A,b

Вводим

integer

f

Выводим

real

C,d,e

Выводим

integer

Лист

Изм

Лист

№ докум

Подпись

Дата

2.11.2 Блок-схема программы

Начало

Ввод

A,b

 

C=a+b;

D=a-b;

E=a*b;

F=a/b;

 

Вывод

C,d,f,e

Конец

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

procedure TForm1.Button1Click(Sender: TObject);

var f:real;    a,b,c,d,e:integer;

begin

a:=strtoint(edit1.text);

b:=strtoint(edit2.text);

c:=a+b;

d:=a-b;

e:=a*b;

f:=a/b;

label1.Caption:=inttostr(c);

label2.Caption:=inttostr(d);

label3.Caption:=inttostr(e);

label4.Caption:=floattostr(f);

end;

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

2.12 Постановка задачи №12

Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объем этого куба.

2.12.1 Таблица идентификаторов

             Идентификаторы программы №12 предоставлены в таблице 12.

Таблица 12-идентификаторы программы №12.

Переменная

Назначение

Тип

a

Вводим

real

C,d,e

Выводим

real

Лист

Изм

Лист

№ докум

Подпись

Дата

2.12.2 Блок-схема программы

c:=4*a*a;

d:=6*a*a;

e:=a*a*a;

C,d,e

Конец

Ввод A

Начало

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

procedure TForm1.Button1Click(Sender: TObject);

var a,c,d,e:real;

begin

a:=strtoint(edit1.text);

c:=4*a*a;

d:=6*a*a;

e:=a*a*a;

label1.Caption:=floattostr(c);

label2.Caption:=floattostr(d);

label3.Caption:=floattostr(e);

end;

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

2.13 Постановка задачи №13

Проверить истинность высказывания: «Квадратное уравнение  А*+В*х+с=0 с данными коэффициентами А,В,С имеет вещественные корни».

2.13.1 Таблица идентификаторов

             Идентификаторы программы №13 предоставлены в таблице 13.

Таблица 13-идентификаторы программы №13.

Переменная

Назначение

Тип

A,b,c,x

Вводим

real

Showmessage(‘true’),showmessage(‘false’)

Выводим

real

Лист

Изм

Лист

№ докум

Подпись

Дата

2.13.2 Блок-схема программы

Showmessage(‘False’)

Showmessage(‘True’)

d=a*sqr(x)+b*x+c

A,b,c,x

Начало

Конец

If d=0

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

procedure TForm1.Button1Click(Sender: TObject);

var a,c,b,d,x:real;

begin

a:=strtofloat(edit1.text);

b:=strtofloat(edit2.text);

c:=strtoint(edit3.text);

x:=strtoint(edit4.text);

d:=a*sqr(x)+b*x+c;

if d=0 then showmessage('True') else

showmessage('False');

end;

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

2.14 Постановка задачи №14

Проверить истинность высказывания: «Цифры данного трехзначного числа образуют возрастающую или убывающую последовательность».

2.14.1 Таблица идентификаторов

             Идентификаторы программы №14 предоставлены в таблице 14.

Таблица 14-идентификаторы программы №14.

Переменная

Назначение

Тип

A

Вводим

integer

H,d,c,e,f

Выводим

integer

Лист

Изм

Лист

№ докум

Подпись

Дата

2.14.2 Блок-схема программы

Vazrastaet

Конец

Ubivaet

d:=a div 100;

f:=(a div 10);

h:=f mod 10;

c:=a mod 10;

Ввод А

Начало

if (d>h) and (h>c)

if (c>h) and (h>d)

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

procedure TForm1.Button1Click(Sender: TObject);

var a,h,f:integer; d,c,e:real;

begin

a:=strtoint(edit1.text);

d:=a div 100;

f:=(a div 10);

h:=f mod 10;

c:=a mod 10;

if (d>h) and (h>c) then label2.caption:='Ubivaet';

if (c>h) and (h>d) then label2.caption:='Vazrastaet';

end;

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

2.15 Постановка задачи №15

Даны три целых числа. Возвести в квадрат отрицатеьные числа и в третью степень – положительные (число 0 не изменять).

2.15.1 Таблица идентификаторов

             Идентификаторы программы №15 предоставлены в таблице 15.

Таблица 15-идентификаторы программы №15.

Переменная

Назначение

Тип

A,b,c

Вводим

real

H,d,e

Выводим

real

Лист

Изм

Лист

№ докум

Подпись

Дата

2.15.2 Блок-схема программы

h:=sqr(a);

d:=sqr(b);

e:=sqr(c);

Конец

h:=sqr(a)*a

d:=sqr(b)*b

e:=sqr(c)*c

d:=a div 100;

f:=(a div 10);

h:=f mod 10;

c:=a mod 10;

Ввод А,b,c

Начало

if a>0

if b>0

if c>0

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

procedure TForm1.Button1Click(Sender: TObject);

var a,b,c,d,h,e:real;

begin

a:=strtofloat(edit1.Text);

b:=strtofloat(edit2.Text);

c:=strtofloat(edit3.Text);

if a>0 then h:=sqr(a)*a else

h:=sqr(a);

if b>0 then d:=sqr(b)*b else

d:=sqr(b);

if c>0 then e:=sqr(c)*c else

e:=sqr(c);

label5.Caption:=floattostr(h)+','+floattostr(d)+','+floattostr(e);

end;

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

2.16 Постановка задачи №16

Даны две переменные целого типа: А и В. Если их значения не равны, то присвоить каждой переменой максимальное из этих значений, а если равны, то присвоить переменным нулевые значения.

2.16.1 Таблица идентификаторов

             Идентификаторы программы №16 предоставлены в таблице 16.

Таблица 16-идентификаторы программы №16.

Переменная

Назначение

Тип

A,B

Вводим

integer

A,B,c,k,l

Выводим

integer

Лист

Изм

Лист

№ докум

Подпись

Дата

2.16.2 Блок-схема программы

Начало

Ввод А,b

If a>b

B:=a

If a<b

a:=b

If a=b

B:=0

a:=0

Конец

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

procedure TForm1.Button1Click(Sender: TObject);

var a,b,c,k,l:integer;

begin

a:=strtoint(edit1.Text);

b:=strtoint(edit2.Text);

a:=k; b:=l;

if a>b then begin c:=a; b:=c; end;

label5.Caption:=floattostr(a)+','+floattostr(b);

if b>a then begin c:=b; a:=c;  end;

label5.Caption:=floattostr(a)+','+floattostr(b);

       if k=l then begin k:=0; l:=0; end;

   label5.Caption:=floattostr(k)+','+floattostr(l);

end;

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

2.17 Постановка задачи №17

Дан номер месяца(1-январь, 2-февраль..). Вывести название соответствующего времени года(«зима»..).

2.17.1 Таблица идентификаторов

             Идентификаторы программы №17 предоставлены в таблице 17.

Таблица 17-идентификаторы программы №17.

Переменная

Назначение

Тип

а

Вводим

integer

Лист

Изм

Лист

№ докум

Подпись

Дата

2.17.2 Блок-схема программы

Начало

Весна

Зима

Лето

Ввод А

12,1,2

6..8

3..5

Конец

9..11

Осень

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

procedure TForm1.Button1Click(Sender: TObject);

var a:integer;

begin

a:=strtoint(edit1.Text);

case a of

12,1,2: label1.Caption:='zima';

3..5:label1.Caption:='Весна';

6..8:label1.Caption:='Лето';

9..11:label1.Caption:='Осень';

end;

  end;

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

2.18 Постановка задачи №18

Локатор ориентирован на одну из сторон света («с»-север, «з»-запад, «ю»-юг, «В»-восток) и принимать три цифровые команды: 1- поворот на лево, -1- поворот на право, 2-прворот на 180 градусов. Дан символ С-исходная ориентация локатора и числа N1,, N2 – две посланные ему команды. Вывести ориентацию локатора после выполнения данных команд.

2.18.1 Таблица идентификаторов

             Идентификаторы программы №18 предоставлены в таблице 18.

Таблица 18-идентификаторы программы №18.

Переменная

Назначение

Тип

S,n1,n2

Вводим

integer

k

Выводим

integer

-3,1,5

-2,2,6

Север

Запад

Юг

Восток

-1,3,7

0,4,8

Конец

Начало

Ввод

S,n1,n2

K:=s+(n1+n1)

A

Лист

Изм

Лист

№ докум

Подпись

Дата

2.18.2 Блок-схема программы

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

procedure TForm1.Button1Click(Sender: TObject);

var n1,n2,s,k:integer;

  begin

s:=strtoint(edit1.Text);

n1:=strtoint(edit3.Text);

n2:=strtoint(edit2.Text);

k:=s+(n1+n2);

 case k of

-3,1,5: label1.Caption:='Север';

-2,2,6:label1.Caption:='Запад';

-1,3,7:label1.Caption:='Юг';

0,4,8:label1.Caption:='Восток';

end;

  end;

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

2.19 Постановка задачи №19

Даны десять чисел. Вывести их среднее арифметическое.

2.19.1 Таблица идентификаторов

             Идентификаторы программы №19 предоставлены в таблице 19.

Таблица 19-идентификаторы программы №19.

Переменная

Назначение

Тип

X,y

Вывод

integer

i

счетчик

integer

a

массив

integer

Лист

Изм

Лист

№ докум

Подпись

Дата

2.19.2 Блок-схема программы

Начало

S:=0

for i:=0 to 9 do

x:=(x+a[i]);

y:=x/10;

Вывод у

конец

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

procedure TForm1.Button1Click(Sender: TObject);

var a:array[1..11] of integer; x,y:real;    i:integer;

  begin

  x:=0;

  for i:=0 to 9 do

   begin

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

x:=(x+a[i]);

y:=x/10;

end;

label1.Caption:=floattostr(y);

  end;

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

2.20 Постановка задачи №20

Найти минимальный и максимальный из данных десяти элементов.

2.20.1 Таблица идентификаторов

             Идентификаторы программы №20 предоставлены в таблице 20.

Таблица 20-идентификаторы программы №20.

Переменная

Назначение

Тип

Max,min

Вывод

integer

i

счетчик

integer

a

массив

integer

Лист

Изм

Лист

№ докум

Подпись

Дата

2.20.2 Блок-схема программы

Начало

max:=a[i];

min:=a[i];

for i:=0 to 10 do

Вывод max,min

конец

If a[i]>max,

If a[i]<min

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

procedure TForm1.Button1Click(Sender: TObject);

var a:array[1..11] of integer;

i,max,min:integer;

  begin

         for i:=0 to 10 do

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

              begin

              max:=a[1];

              min:=a[i];

      for i:=1 to 10 do

 begin

 if a[i]>max then max:=a[i];

 if a[i]<min then min:=a[i];

end;

label2.Caption:=floattostr(max);

label4.Caption:=floattostr(min);

  end;

  end;

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

2.21 Постановка задачи №21

Даны числа a,b (0<a<b) и набор из десяти элементов. Найти максимльный и минимальный из элементов, содержащихся в интервале (a,b).

2.21.1 Таблица идентификаторов

             Идентификаторы программы №21 предоставлены в таблице 21.

Таблица 21-идентификаторы программы №21.

Переменная

Назначение

Тип

X,y

Ввод

integer

Max,min

Вывод

integer

i

счетчик

integer

a

массив

integer

Начало

Лист

Изм

Лист

№ докум

Подпись

Дата

2.21.2 Блок-схема программы

Ввод

X,y

for i:=x to y do

Вывод max,min

конец

If a[i]>max,

If a[i]<min

max:=ai];

min:=a[i];

A

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

procedure TForm1.Button1Click(Sender: TObject);

var a:array[1..11] of integer;

i,max,min,x,y:integer;

  begin

x:=strtoint(edit1.Text);

y:=strtoint(edit2.Text);

         for i:=0 to 10 do

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

              begin

              max:=a[1];

              min:=a[i];

      for i:=x to y do

 begin

 if a[i]>max then max:=a[i];

 if a[i]<min then min:=a[i];

end;

label2.Caption:=floattostr(max);

label4.Caption:=floattostr(min);

  end;

  end;

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

 

2.22 Постановка задачи №22

Для целого числа К от 1 до 9 напечатать значение переменной к римским цифрам.

2.22.1 Таблица идентификаторов

             Идентификаторы программы №22 предоставлены в таблице 22.

Таблица 22-идентификаторы программы №22.

Переменная

Назначение

Тип

k

Ввод- Вывод

integer

Начало

Лист

Изм

Лист

№ докум

Подпись

Дата

2.22.2 Блок-схема программы

Ввод

X

1

Вывод k

Начало

2

Вывод k

3

Вывод k

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

procedure TForm1.Button1Click(Sender: TObject);

var k:integer;

begin

k:=strtoint(edit1.Text);

case k of

1: edit2.Text:='I';

2: edit2.Text:='II';

3: edit2.Text:='III';

4: edit2.Text:='IV';

5: edit2.Text:='V';

6: edit2.Text:='VI';

7: edit2.Text:='VII';

8: edit2.Text:='VIII';

9: edit2.Text:='IX';

end;

 end;

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

 

2.23 Постановка задачи №23

Написать программу, которая по значению входного параметра(целое число) определяет значение выходного параметра(строка) по следующей зависимости:

Входной параметр

Выходной параметр

K<0C

Холодно

0C<K<15C

Прохладно

15C<K<25C

Тепло

25C<K

Жарко

2.23.1 Таблица идентификаторов

             Идентификаторы программы №23 предоставлены в таблице 23.

Таблица 23-идентификаторы программы №23.

Переменная

Назначение

Тип

k

Ввод- Вывод

integer

Начало

Лист

№ докум

Подпись

Изм

Лист

Дата

2.23.2 Блок-схема программы

Ввод

X

1

Вывод I

2

Вывод II

Начало

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

procedure TForm1.Button1Click(Sender: TObject);

var k:integer;

begin

k:=strtoint(edit1.Text);

case k of

1: edit2.Text:='I';

2: edit2.Text:='II';

3: edit2.Text:='III';

4: edit2.Text:='IV';

5: edit2.Text:='V';

6: edit2.Text:='VI';

7: edit2.Text:='VII';

8: edit2.Text:='VIII';

9: edit2.Text:='IX';

end;

 end;

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

 




1. Реферат- Организация сборки прерывателя-распределителя ЗиЛ-130
2. практикум по общей физике Оптика Издательство Самарский универси
3. Человек Содержание главы четвертой раздела второго- Что такое человек Загадка антропосоциогенез
4.  и ~связи гибридизация орбиталей
5. 21 ~травматологія та ортопедія А В Т О Р Е Ф Е Р А Т дисертації на здобуття наук
6. Статья 1. Понятие территориального общественного самоуправления в городе Москве
7. Прилади і матеріали- мультивібратор генератор імпульсів електромагнітний збуджувач струна динамомет
8. ЧЕМУ РАВЕН ОБЪЕМ ЦИРКУЛИРУЮЩЕЙ КРОВИ 6090 всей крови; 912 веса тела; 25 всей крови;
9. тема принципов взглядов ценностей идеалов и убеждения опредх как отноше к действити общее понимание мир
10. Збереження та підвищення родючості грунтів в умовах широкого впровадження інтенсивних технологій. Машини для підготовки і навантаження мінеральних добри