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

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

Подписываем
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
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 Контрольный пример