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

Построить блок схему программы

05.06.2014, 21:34. Просмотров 239. Ответов 0
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program lr_8;
uses crt;
var y,u:integer;
res:real;
function summ(a,b:integer):real;
begin
summ:=a*a+b*ln(a*a)/sin(b)*sin(b);
end;
procedure resultat;
begin
writeln (res:8:2);
end;
begin readln (y,u);
res:=summ(y,u);
resultat;
readln;
end.
Добавлено через 16 секунд
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
program lr_6;
uses crt;
const n=6;
var
a:array[1..n,1..n] of integer;
b:array[1..n] of integer;
i,j,min,max,jmax:integer;
begin
clrscr;
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(20)-10;
write(a[i,j]:4);
end;
writeln;
end;
writeln;
for i:=1 to n do
begin
b[i]:=a[i,1];
jmax:=1;
for j:=1 to n do
if a[i,j]<b[i] then
begin
b[i]:=a[i,j];
jmax:=j;
end;
writeln(i,'  min=',b[i]);
end;
min:=b[1];
for i:=1 to n do
if b[i]>min then
max:=b[i];
write('max',max);
readln;
end.
Добавлено через 24 секунды
Pascal
1
2
3
4
5
6
7
8
9
10
program lr_4_2;
var f, x:real;
begin x:=2;
repeat
f:=ln(2*x);
writeln('x=', x:4:1, 'f(x)=', f:6:2);
x:=x+0.4;
until x>6+0.4;
readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.06.2014, 21:34
Ответы с готовыми решениями:

Построить блок-схему для программы
Program LAB4V16; uses crt; const AlphBg ='АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ'; AlphSm...

Построить блок-схему по коду программы
Приветствую Всех. Мне нужно построить блок-схему по коду программы, искал программы, нашел, к...

Построить блок-схему
Program zadacha1; {caaaiea 1 aa?eaio 30} USES CRT; CONST a=4; b=4; VAR C:array of...

Построить блок-схему
Здравствуйте. Помогите составить блок схему решения задачи pascal: Дан массив A(n). На языке...

Построить блок схему по программе
Uses crt; Var f: text; prov,fam: string ; v,n: integer; ot,d: integer; ...

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

Массивы. Построить блок-схему
Помогите пожалуйста написать блок-схему к задачи:Даны целые числа а1,а2,а3.Получите целочисленную...

Построить блок-схему по задаче.
Заполнить одномерный массив В(n) так, чтобы каждый элемент с четным индексом был равен половине...

Построить блок-схему по коду
Помогите построить блок схему program d; var n,i: integer; p,t: real; begin ...


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

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

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