Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
CaptainOfCrush
0 / 0 / 0
Регистрация: 16.01.2013
Сообщений: 5
#1

Блок схемы и мат анализ

16.01.2013, 22:38. Просмотров 318. Ответов 0
Метки нет (Все метки)

1)Задание
Составьте программу для вычисления площади трапеции
Текст программы
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program trapec;
uses crt;
var a,b,h,s:real;
begin
clrscr;
writeln('Введите длину первого основания');
readln(a);
writeln('‚Введите длину второго основания');
readln(b);
writeln('‚Введите значание высоты трапеции');
readln(h);
s:=h*(a+b)/2;
writeln('s=',s:3:3);
readkey;
end.
2)Задание
Напишите программу-модель анализа пожарного датчика в помещении, которая выводит сообщение «Пожарная ситуация», если температура (ее значение вводится с клавиатуры) в комнате превысила 60ºС.

Текст программы

Pascal
1
2
3
4
5
6
7
8
9
10
11
program t;
uses crt;
var a: integer;
begin
clrscr;
write('‚Ведите температуру: ');
readln(a);
if a>60 then writeln('Пожарная ситуация')
else writeln('Нет пожарной ситуации');
readln;
end..
3)Задание
Составьте программу, которая вычисляет сумму чисел от 1 до 100.

Текст программы
Pascal
1
2
3
4
5
6
7
8
9
Program summ;
var i:integer;
sum:real;
begin
for i:=1 to 100 do
sum:=sum+i;
writeln('sum=',sum:1:1);
readln;
end.
4)Задание
Введите с клавиатуры пять целочисленных элементов массива X. Выведите на экран значения корней и квадратов каждого из элементов массива.

Текст программы
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
program Masiv1;
uses crt;
var a,b,c,d,e,a1,b1,c1,d1,e1,a2,b2,c2,d2,e2: real;
 
begin
clrscr;
writeln('задайте елементы массива');
writeln;
readln(a);
writeln;
readln(b);
writeln;
readln(c);
writeln;
readln(d);
writeln;
readln(e);
writeln('Значения корней массива');
a1:=sqrt(a);
writeln('a1=',a1:3:3);
b1:=sqrt(b);
writeln('b1=',b1:3:3);
c1:=sqrt(c);
writeln('c1=',c1:3:3);
d1:=sqrt(d);
writeln('d1=',a1:3:3);
e1:=sqrt(e);
writeln('e1=',e1:3:3);
writeln('Значения квадратов массива');
a1:=sqr(a);
writeln('a1=',a1:3:3);
b1:=sqr(b);
writeln('b1=',b1:3:3);
c1:=sqr(c);
writeln('c1=',c1:3:3);
d1:=sqr(d);
writeln('d1=',a1:3:3);
e1:=sqr(e);
writeln('e1=',e1:3:3);
readkey;
end.
5)Задание
Дан целочисленный массив В[1..4, 1..3]. Заменить все его элементы их квадратами.


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
Program kvadr;
const
 n=4;
 m=3;
var
 arr: array[1..n, 1..m] of integer;
 i, j: integer;
begin
 writeln('Исходная матрица: ');
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      arr[i, j]:=random(10);
      write(arr[i, j]:4);
     end;
    writeln;
   end;
 writeln('Матрица с элементами в квадрате: ');
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      arr[i, j]:=sqr(arr[i, j]);
      write(arr[i, j]:4);
     end;
    writeln;
   end;
end.
Народ кто может помогите пожалуйста составить к этим задачам блок схему и математический анализ

 Комментарий модератора 
CaptainOfCrush, на будущее:
1. Для каждого задания создавайте отдельную тему.
2. Используйте теги форматирования кода PASCAL
3. Избегайте кричащего выделения текста

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

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.01.2013, 22:38
Ответы с готовыми решениями:

Блок схемы
Маленькая просьба, помогите с блок схемами к следующим задачам: 1) uses...

Блок схемы.
Нужны блок схемы к этим задачам. Задана квадратная матрица.Поменять местами...

блок схемы
кто может помочь оформить блок схемы по госту, я схемы нарисовал, мне нужно...

блок-схемы
кто может помочь проверит блок-схемы под созданные программы?

блок схемы...
Помогите сделать блок схемы... 1) var a: array of integer; kol, j, i,...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.01.2013, 22:38

блок схемы !
помогите написать блок схему к программе можно нарисовать просто от руки в...

Блок-схемы
Товарищи, помогите с блок-схемами, никак у меня не выходит их составлять. По...

блок схемы
Доброго времени суток, нужна помощь в написании блок схемы. Задача вот в чем......


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

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

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