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

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 4.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. Гомельский Александр Яковлевич.html
2. норма в клинической психофизиологии и медицине
3. заражения на основе которого- строятся человеческие взаимоотношения происходит передача убежд
4. Это волшебные лошади у которых есть особые возможности
5. Реферат по дисциплине Менеджмент Формальное и неформальное управление Выполнил ст
6. Материалы Сета Когда вы при помощи новых взглядов на жизнь начнете на практике применять описанные зд
7. тематическую задачу.html
8. Уильям Брэг
9. это квалифицированная организация по проведению рекламы графический дизайн услуги фотографа PR бр
10. Контрольная работа- Общее положение о мышлении