Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
0 / 0 / 0
Регистрация: 17.06.2009
Сообщений: 12
1

блок схемы!

19.06.2009, 17:14. Показов 1927. Ответов 8
Метки нет (Все метки)

приветик! ребят помогите пожалуста построит блок схемы а то я сама чёта не помню как

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
program p5;
uses crt;
label 1;
var a,b,c:integer; s:string;
begin
1:
clrscr;
write ('введите число: ');
readln(a);
b:=a+1;
if b=8 then b:=1;
case b of
1: s:='понедельник';
2: s:='вторник';
3: s:='среда';
4: s:='четверг';
5: s:='пятница';
6: s:='суббота';
7: s:='воскресение';
end;
if b>8 then goto 1;
writeln(a,' - ',s);
readln;      ё
end.
 
program р2;
var x:real;f:real;
begin
writeln('введите х');
readln(x);
if x<=3 then
f:=-sqr(x)+3*(x)+9
else
f:=(x/sqr(x)+1);
writeln('f(x)=',f:8:2);
readln;
end.
 
program р1;
var a, x,y:real;
begin
writeln('введите x,y');
readln(x);readln(y);
a:=(sin(x)+cos(y))/(cos(x)-sin(y))*(sin(x*y)/cos(x*y));
writeln('a=',a:8:2);
readln;
end.
 
program p3;
uses crt;
var m,n,k,p,q,r,a,b,c:integer;
begin
clrscr;
write('введите текуще время часы-минуты-секунды');
readln(m,n,k);
write('введитеp,q,r: ');
readln(p,q,r);
c:=k+r; b:=n+q; a:=m+p;
b:=b+c div 60;
a:=a+b div 60;
c:= c mod 60;
b:= b mod 60;
a:= a mod 24;
write('часы, паказывающие ',m,'часов-',n,'мин-',k,'сек   спустя   ',p,'часов-',q,'мин',r,'сек');
readln;
end.
 
program p6;
uses crt;
var x,y:real;
function step (x:real;n:integer):real;
var i,k:integer;
begin
k:=0;
y:=1;
if n=0 then step:=1
else
begin
if n<0 then
n:=abs(n);
k:=1
end;
for i:=1 to n do
y:=y*x;
if k=1 then step:=1/y
else step:=y;
end;
begin
clrscr;
write('введите х');
readln(x);
y:=step(x,10)+2*step(x,9)+3*step(x,8)+4*step(x,7)+5*step(x,6)+6*step(x,5)+7*step(x,4)+8*step(x,3)+9*step(x,2)+10*(x)+11;
 
writeln('  y = ',y:8:2);
readln;
end.
 
 
program p4;
uses crt;
var a,b,c,k:integer;
begin
clrscr;
write('введите число а >');
readln(a);
write ('введите число b>');
readln(b);
write('введите число c>');
readln(c);
write('введите число k>');
readln(k);
if ((a mod k)=0) or ((b mod k) =0) or ((c mod k) = 0) then
begin
write ('числа делящие на ',k,':');
if (a mod k)=0 then
write(a, ';');
if (b mod k)= 0 then
write(b, ';');
if (c mod k)= 0 then
write(c,';');
writeln;
end;
writeln('таких чисел нет');
readln;
end.
зарание вам БОЛЬШОЕ СПАСИБО!
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.06.2009, 17:14
Ответы с готовыми решениями:

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

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

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

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

8
Добрый самаритянин
1107 / 622 / 139
Регистрация: 31.03.2009
Сообщений: 2,567
19.06.2009, 18:44 2
Напомню те как это делается: берешь карандаш и чертишь.Кажется как то так.
0
4116 / 992 / 191
Регистрация: 09.04.2009
Сообщений: 4,223
19.06.2009, 18:55 3
John_Pa9JIbHuK, какой вы злой товаристч... нет чтобы помочь, направить, подтолкнуть, пнуть в нужное направление...
лёльчик, солнушко, держы милая https://www.cyberforum.ru/algo... post197884 и не надо, не надо меня благодарить... ето зов моей душы помочь тебе...
0
0 / 0 / 0
Регистрация: 17.06.2009
Сообщений: 12
19.06.2009, 19:25  [ТС] 4
так я зная какая фигура за что отвечает я состовлять их плохо умею
помоги милый

Добавлено через 35 секунд
ню ти и вредина
0
Добрый самаритянин
1107 / 622 / 139
Регистрация: 31.03.2009
Сообщений: 2,567
19.06.2009, 19:51 5
код вставь и все
0
0 / 0 / 0
Регистрация: 17.06.2009
Сообщений: 12
20.06.2009, 01:07  [ТС] 6
Цитата Сообщение от John_Pa9JIbHuK Посмотреть сообщение
....
это ти мне чё такое скинул
0
14 / 14 / 10
Регистрация: 17.06.2009
Сообщений: 40
20.06.2009, 09:26 7
Это видимо программа для создания блок-схем по коду.
Вот еще одна: Автосхема - эта программа предназначенная для перевода программного кода в блок-схемы.
Чтобы перевести программу в блок схемы нужно просто вставить программный код в первое окно и потом нажать на второе и вы увидите свою блок схему.
Еще эту блок схему можно вывести на печать.


Однако, товарищ Puporev утверждает, что
Это не выход. Во первых эта конкретная программа рисует очень красиво, но с ошибками. Но и другие проги рисуют не соблюдая ГОСТ. Только руками или в редакторе схем к Office 2007 можно нормальную схему нарисовать.
Но если уж совсем никак - то эти программы прекрасный выход
0
Почетный модератор
64069 / 47481 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
20.06.2009, 09:50 8
Но если уж совсем никак - то эти программы прекрасный выход
Про FCEditor я такого не писал, эта программа рисует правильно схему в отличе от Блоксхемы. Но эта программа платная, а крякнутые программы выкладывать на форуме есть нарущение его правил.
0
0 / 0 / 0
Регистрация: 17.06.2009
Сообщений: 12
20.06.2009, 15:03  [ТС] 9
Цитата Сообщение от ActiveSync Посмотреть сообщение
Это видимо программа для создания блок-схем по коду.
Вот еще одна: Автосхема - эта программа предназначенная для перевода программного кода в блок-схемы.
Чтобы перевести программу в блок схемы нужно просто вставить программный код в первое окно и потом нажать на второе и вы увидите свою блок схему.
Еще эту блок схему можно вывести на печать.


Однако, товарищ Puporev утверждает, что

Но если уж совсем никак - то эти программы прекрасный выход
Большое СПАСИБО ))))))))*=
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.06.2009, 15:03

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

блок-схемы
помогите сделать блок схемы по данным кодам в паскале: 1.uses crt; var...

Блок схемы
Нарисуйте блок схемы плиз: 1.Заданы два одномерных массива A(N)(N≤20) и...

Блок-схемы
Напишите пожалуйста блок-схему к задаче : var s:string; i,k:integer; begin readln(s); for i:=1...

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

блок-схемы
Помогите пожалуйста написать блок-схему к задаче с оператором case:Единицы массы пронумерованы...


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

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

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