0 / 0 / 0
Регистрация: 17.06.2009
Сообщений: 12
1

блок схемы!

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

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

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
19.06.2009, 17:14
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
19.06.2009, 17:14
Ответы с готовыми решениями:

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

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

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

8
Добрый самаритянин
 Аватар для John_Pa9JIbHuK
1107 / 622 / 139
Регистрация: 31.03.2009
Сообщений: 2,567
19.06.2009, 18:44 2
Напомню те как это делается: берешь карандаш и чертишь.Кажется как то так.
0
 Аватар для Jazon_deenAlt
4117 / 999 / 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
Добрый самаритянин
 Аватар для John_Pa9JIbHuK
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
 Аватар для ActiveSync
14 / 14 / 10
Регистрация: 17.06.2009
Сообщений: 40
20.06.2009, 09:26 7
Это видимо программа для создания блок-схем по коду.
Вот еще одна: Автосхема - эта программа предназначенная для перевода программного кода в блок-схемы.
Чтобы перевести программу в блок схемы нужно просто вставить программный код в первое окно и потом нажать на второе и вы увидите свою блок схему.
Еще эту блок схему можно вывести на печать.


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


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

Но если уж совсем никак - то эти программы прекрасный выход
Большое СПАСИБО ))))))))*=
0
20.06.2009, 15:03
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
20.06.2009, 15:03
Помогаю со студенческими работами здесь

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

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

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

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

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


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Система безопасности в Laravel: возможности и примеры
Wired 18.02.2025
Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel
Wired 18.02.2025
Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .
Laravel или React - что лучше?
Wired 18.02.2025
В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .
Laravel 11: новые возможности, гайд по обновлению
Wired 18.02.2025
Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .
Миграции в Laravel
Wired 18.02.2025
Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .
Аутентификация в Laravel
Wired 18.02.2025
В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .
Laravel или Symfony: что лучше для старта?
Wired 18.02.2025
В веб-разработке выбор правильного фреймворка может стать определяющим фактором успеха проекта. Особенно это актуально для PHP - одного из самых распространенных языков программирования, где Laravel. . .
Что нового в Laravel 12
Wired 18.02.2025
С момента своего появления в 2011 году Laravel постоянно развивается, внедряя инновационные решения и совершенствуя существующие возможности. В начале 2025 года ожидается выход Laravel 12 - новой. . .
Роутер в Laravel: как работать с маршрутами
Wired 18.02.2025
Маршрутизация - один из основополагающих элементов любого веб-приложения на Laravel, определяющий как приложение отвечает на HTTP-запросы к различным URL-адресам. По сути, роутинг - это механизм. . .
Интеграция шаблона Bootstrap в Laravel PHP
Wired 18.02.2025
Разработка веб-приложений в современном мире требует не только надежного бэкенда, но и привлекательного, отзывчивого интерфейса. Laravel, как один из самых популярных PHP-фреймворков, отлично. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru