.1 Таблица идентификаторов Идентификаторы программы 11 предоставлены в таблице 11.
Работа добавлена на сайт samzan.net:
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 Контрольный пример
2. страницадень до специализированных
3. тематика для спеціальності- 5
4. ЛАБОРАТОРНАЯ РАБОТА 1 Исследование термоэлемента по дисциплине- Нетрадиционные источники энерги
5. Реферат- Болезни из подсознания
6. Составление и оформление рекламного предложения, как один из залогов успеха Direct Mil кампании
7. задание Рассмотрено на заседании НМК Общепрофессиональных дисциплин Протокол 09 от 08
8. реферат дисертацій на здобуття наукового ступеня доктора політичних наук Київ1998
9. центров сна которое вызывает общее снижение функций организма активные теории сна
10. Балас 2000г ~ 208с
11. Реферат- Пенсии по случаю потери кормильца
12. і Навчальнопедагогічна практика студентів денної форми навчання 4 курсу факультету КНіТ напрям пі
13. Организация учета производственных затрат и методы их распределения
14. Основные фонды, оборотные средства и себестоимость продукции предприятия
15. Прогноз последствий взаимодействия человека с природой
16. Если уровень постоянных затрат компании высок и не опускается в период падения спроса на продукцию пред
17. ЛАБОРАТОРНАЯ РАБОТА 1 Тема- ОБСЛУЖИВАНИЕ ДИСКОВ И ДИСКЕТ Задание 1
18. Евангельские мотивы в песенной поэзии иеромонаха Романа (Матюшина)
19. Во время обороны войска занимают выгодную позицию наступающего противника позволяющую остановить его наст
20. Племінний кінний завод далі ~ племзавод ~ сільськогосподарське підприємство господарство що ма