Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
CaptainOfCrush
0 / 0 / 0
Регистрация: 16.01.2013
Сообщений: 5
#1

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

16.01.2013, 22:38. Просмотров 303. Ответов 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
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Блок схемы и мат анализ (Turbo Pascal):

блок-схемы - Pascal
помогите сделать блок схемы по данным кодам в паскале: 1.uses crt; var Xd1,Xd2,Yd1,Yd2,by:integer; S,p:real; begin clrscr; ...

Блок-Схемы - Pascal
Помогите пожалуйста, завтра сдавать... надо составить несколько блок схем к курсовой... Взамен могу тоже, чем-нибудь помочь...в долгу...

Блок схемы - Pascal
Маленькая просьба, помогите с блок схемами к следующим задачам: 1) uses crt; type film=record nazv : string; rej :...

блок схемы! - Pascal
приветик! ребят помогите пожалуста построит блок схемы а то я сама чёта не помню как :( program p5; uses crt; label 1; var...

Блок-схемы - Pascal
Как составить блок схему???подскажите плизззззззззззззз program 3; uses crt; var y,b,x,c: real; a:integer; begin clrscr; ...

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

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

Блок-схемы - Pascal
Требуется блок-схемы к двум программам. program Project1; uses crt; const D=; M=10; var S:string;

блок схемы ! - Pascal
помогите написать блок схему к программе можно нарисовать просто от руки в паинте 1________ uses crt; type

Блок-схемы. - Pascal
у меня к вам такая просьбочка... помогите блок-схему нарисовать к программе: Program P3; Const N=4; Var A: array of real; i,j :...

Блок схемы - Pascal
Нарисуйте блок схемы плиз: 1.Заданы два одномерных массива A(N)(N≤20) и B(M)(M≤60).Объединить их в один массив С(N+M),включив массив B...


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

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

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