Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 21, средняя оценка - 4.71
Halelov_Sultik
0 / 0 / 1
Регистрация: 25.12.2010
Сообщений: 8
#1

Найти площадь равнобедренной трапеции - Pascal ABC

10.01.2011, 18:17. Просмотров 2977. Ответов 10
Метки нет (Все метки)

Надо составить блок-схемы:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
1,13. Найти площадь равнобедренной трапеции с основаниями а и b и углом О± при большем основании а. 
uses Crt;                                                                         
Var h,c,a,b,alp,s,p:real;
begin
clrscr;
read(a,b,alp);
                  h:=((a-b)/2)*(sin(alp)/cos(alp));
                  c:=((a-b)/2)/cos(alp);
                  p:=a+b+2*c;
                  s:=h*((a+b)/2); 
writeln('Периметр=',p,'Площадь равна',s); 
readln;
end.
 
 
2,1. Вычислить периметр и площадь прямоугольного треугольника по длинам а и b двух катетов. 
uses crt; 
var
   a,b,c,p,s:real;
begin
clrscr;
writeln('Введите значение катетов:');
readln(a,b);
c:=sqrt(a*a+b*b);
p:=a+b+c;
s:=a*b/2;
writeln('Периметр=',p:0:2,'  Площадь=',s:0:2);
readln
end.
 
 
 
 
3,2. Заданы координаты трех вершин треугольника (x1, y1), (х2, y2), (x3, y3). Найти его периметр и площадь
program egor;                                                                           
uses crt;           
var p,x1,y1,x2,y2,x3,y3,a,b,c,s:real;
 BEGIN
 writeln('koordinati x1, y1');
 readln(x1,y1);
writeln('koordinati x2, y2');
 readln(x2,y2);
writeln('koordinati x3, y3');
 readln(x3,y3);
 
a:=sqrt(sqr(x1-x2)+sqr(y1-y2));
b:=sqrt(sqr(x2-x3)+sqr(y2-y3));
c:=sqrt(sqr(x3-x1)+sqr(y3-y1));
 p:=(a+b+c)/2;
 s:=sqrt(p*(p-a)*(p-b)*(p-c));
 writeln('s=',s:3:2);
 writeln('p=',p:3:2);
END.
4,25. Сумма каких-либо двух цифр заданного трехзначного натурального числа N равна третьей цифре
uses crt;                                                                          
var
 a:integer;
 c1,c2,c3:byte;
begin
 writeln('BBeDuTe TPex3Ha4Hoe 4ucJIO');
 readln(a);
 c1:=a div 100;
 c2:=(a-c1*100) div 10;
 c3:=a-c1*100-c2*10;
 if c1+c2=c3 then writeln(c1,'+',c2,'=',c3);
 if c2+c3=c1 then writeln(c2,'+',c3,'=',c1);
 if c3+c1=c2 then writeln(c3,'+',c1,'=',c2);
 if c1-c2=c3 then writeln(c1,'-',c2,'=',c3);
 if c2-c1=c3 then writeln(c2,'-',c1,'=',c3);
 if c1-c3=c2 then writeln(c1,'-',c3,'=',c2);
 if c3-c1=c2 then writeln(c3,'-',c1,'=',c2);
 if c2-c3=c1 then writeln(c2,'-',c3,'=',c1);
 if c3-c2=c1 then writeln(c3,'-',c2,'=',c1);
 readln;
end.
 
 
 
 
 
 
 
6,36. График функции у = ах2 + bx + с проходит через заданную точку с координатами (т, п). 
 
uses crt;   
var 
  y,m,n,a,b,c:real;
begin
 clrscr;
 writeln('vvodite koordinati');
 readln(m);
 readln(n);
 writeln('vvodite koefichienti');
 read(a,b,c);
 y:=a*m*m+b*m+c;
 if n=y then writeln('Proydet!') 
else writeln('Ne proydet!');
readln;
end.
 
 
 
5,27. Дан номер некоторого года (положительное целое число). Вывести соответствующий ему номер столетия, учитывая, что, к примеру, началом 20 столетия был 1901 год
 
Uses crt;                                                          
    var
c,y:integer;
begin
clrscr;
  writeln('Введите год');
  readln(y);
  c:=y div 100;
    if (y mod 100 <> 0) then
      c:=c+1;
  writeln('Год ',y,'- столетие ',c);
end.
 
 
 
 
7.32. Дано целое число, лежащее в диапазоне от 1 до 9999. Вывести строку — словесное описание данного числа вида "четное двузначное число", "нечетное четырехзначное число"
uses crt;   
var n:integer;
 begin
 clrscr;
 write('N-> '); 
 readln(n);
 if n mod 2=0 then write('Четное ') 
else write('Нечетное ');
 case n of
 1..9:write('однозначное ');
 10..99:write('двузначное ');
 100..999:write('трёхзначное ');
 1000..9999:write('четырехзначное ');
 end;
 write('число');
 readln;
end.
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
8,35. Даны два угла треугольника (в градусах). Определить, существует ли такой треугольник, и если да, то будет ли он прямоугольным. 
uses crt; 
var a,b:real;   
begin
writeln('Vvedite ugli a,b ');
readln(a,b);
if a+b>180 then
writeln('Takogo treugolnika ne sushestvuet ')
else
begin
writeln('Takoy treugolnik  sushestvue');
if (a=90)or(b=90)or(180-a-b=90)
 then writeln(' on pryamougolniy')
else
writeln(' on ne pryamougolniy');
end;
readln;
end.
 
 
 
9,40. Подсчитать количество положительных среди чисел а, b, с. 
uses crt;   
var  a:array[1..3]of integer; i,n:integer;
begin
for i:=1 to 3 do begin
writeln('Введите ',i,'-ое число:');
readln(a[i]); end;
n:=0;
for i:=1 to 3 do
if a[i]>=0 then n:=n+1;
writeln('Каличество положительных чисел среди чисел a,b,c : ',n)
end.
 
 
 
10,42. Определить, делителем каких чисел а, b, с является число k. 
Uses crt;   
var a,b,c,k: integer;
begin
clrscr;
write('Vvedite a, b, c: '); readln(a,b,c);
write('Vvedite k: '); readln(k);
if a mod k = 0 then writeln(k, ' delitel ',a);
if b mod k = 0 then writeln(k, ' delitel ',b);
if c mod k = 0 then writeln(k, ' delitel ',c);
readln
end.

http://www.cyberforum.ru/pascalabc/thread804644.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.01.2011, 18:17
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти площадь равнобедренной трапеции (Pascal ABC):

Найти площадь равнобедренной трапеции с основаниями а и Ь и углом а при большем основании а.
1.Найти площадь равнобедренной трапеции с основаниями а и Ь и углом а при...

Вычислить площадь равнобедренной трапеции
Всем добрый вечер, срочно нужна помощь. Помогите кто может пожалуйста составить...

Программа вычисления площади равнобедренной трапеции и 2 задачи
Заранее благодарен. 14 ВАРИАНТ Удалено изображение задачами.

Найти площадь равнобочной трапеции
найти площадь равнобочной трапеции с основаниями a и b и углом при большем...

Вычислить периметр и площадь трапеции по заданным сторонам
Ребят, пожалуйста, я вообще нуб-нубом.... помогите решить семестровую.... 1....

10
N@tali
778 / 459 / 85
Регистрация: 20.02.2010
Сообщений: 974
10.01.2011, 18:29 #2
вот держи первые четыре
0
Вложения
Тип файла: docx блок схема1.docx (13.5 Кб, 96 просмотров)
Тип файла: docx блок схема2.docx (13.5 Кб, 51 просмотров)
Тип файла: docx блок схема 3.docx (14.1 Кб, 35 просмотров)
Тип файла: docx блок схема 4.docx (21.3 Кб, 37 просмотров)
Halelov_Sultik
0 / 0 / 1
Регистрация: 25.12.2010
Сообщений: 8
10.01.2011, 18:31  [ТС] #3
diamFc???
0
N@tali
778 / 459 / 85
Регистрация: 20.02.2010
Сообщений: 974
10.01.2011, 18:36 #4
следующие четыре
0
Вложения
Тип файла: docx блок схема5.docx (15.1 Кб, 46 просмотров)
Тип файла: docx блок схема6.docx (14.9 Кб, 32 просмотров)
Тип файла: docx блок схема7.docx (18.1 Кб, 29 просмотров)
Тип файла: docx блок схема 8.docx (17.4 Кб, 38 просмотров)
N@tali
778 / 459 / 85
Регистрация: 20.02.2010
Сообщений: 974
10.01.2011, 18:37 #5
да ....а кто тебе сидеть рисовать в ручную будет??????????????
0
Halelov_Sultik
0 / 0 / 1
Регистрация: 25.12.2010
Сообщений: 8
10.01.2011, 18:42  [ТС] #6
N@tali, Я тоже им составлял но они не правильны...
0
N@tali
778 / 459 / 85
Регистрация: 20.02.2010
Сообщений: 974
10.01.2011, 18:47 #7
да ну бред... куча народу по ним составляет и вдруг стало неправильно... кто такое тебе сказал...

Добавлено через 1 минуту
Цитата Сообщение от Halelov_Sultik Посмотреть сообщение
N@tali, Я тоже им составлял но они не правильны...

тогда рисуй ручками, и будет все правильно...
0
Halelov_Sultik
0 / 0 / 1
Регистрация: 25.12.2010
Сообщений: 8
10.01.2011, 18:48  [ТС] #8
N@tali, Без обид но мне Учетеля сказали об этом
0
N@tali
778 / 459 / 85
Регистрация: 20.02.2010
Сообщений: 974
10.01.2011, 18:51 #9
поищи програмку FC Editor если diamFC не веришь. и можешь сравнить . А еще лучше возьми умную книжку по алгоритму составления блок схем и проанализируй свои блок схемы по ней. Они у тебя не трудные. мож учителя на понт берут. главное уметь объяснит свою блок схему где что ...
0
Halelov_Sultik
0 / 0 / 1
Регистрация: 25.12.2010
Сообщений: 8
10.01.2011, 19:00  [ТС] #10
N@tali, но как им пользоватся открываю файл паскаль не пашет что нпдо сделать??
0
N@tali
778 / 459 / 85
Регистрация: 20.02.2010
Сообщений: 974
10.01.2011, 19:02 #11
я ей не пользовалась... просто знаю что такая существует
0
10.01.2011, 19:02
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.01.2011, 19:02
Привет! Вот еще темы с решениями:

Вычислить площадь трапеции по введенным в диалоге двум сторонам
Помогите пожалуйста, очень нужно, заранее благодарю! Линейные алгоритмы 1....

площадь равнобедренной трапеции, зная основания и угол при большем основании
Найти площадь равнобедренной трапеции, зная основания a и b и угол при большем...

Даны основания равнобочной трапеции и величина угла при большем основании . Найти площадь трапеции
Даны основания равнобочной трапеции и величина угла при большем основании ....

Вычисление площади равнобедренной трапеции
Составьте программу вычисления площади равнобедренной трапеции, длина большего...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru