Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
1 из 2 1 2 »
 
Рейтинг 4.85/13: Рейтинг темы: голосов - 13, средняя оценка - 4.85
0 / 0 / 0
Регистрация: 18.05.2010
Сообщений: 14

Блок схема.

07.07.2010, 12:21. Показов 2579. Ответов 28
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Помогите пожалуйста сделать блок-схемы.Текстовый документ.txt

Текстовый документ (2).txt
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
 07.07.2010, 12:21
Ответы с готовыми решениями:

Блок-схема
const n=5; m=8; var mas:array of integer; sum:integer; i,j:word; begin Randomize; writeln('Исходная матрица');

Блок-схема
var t:Array of record x,y: integer end; r,d: longint; i,j,n,t1,t2: word; begin write('‚Введите количество точек: '); ...

Блок схема
var a:array of integer; i,max:integer; begin randomize; for i:=1 to 20 do begin a:=random(51); if i=1...

28
0 / 0 / 0
Регистрация: 18.05.2010
Сообщений: 14
07.07.2010, 20:19  [ТС]
Пожалуйста,помогите мне. Я пробывал составить блок-схемы,но преподователь,сказал,что не правильные.
0
 Аватар для diam
846 / 84 / 7
Регистрация: 06.12.2009
Сообщений: 345
08.07.2010, 09:20
Блок-схема prog2
Миниатюры
Блок схема.  
Вложения
Тип файла: doc noName.pas.xls.doc (31.0 Кб, 15 просмотров)
1
 Аватар для diam
846 / 84 / 7
Регистрация: 06.12.2009
Сообщений: 345
08.07.2010, 09:22
flowchart prog3
Миниатюры
Блок схема.  
Вложения
Тип файла: doc noName.pas.xls.doc (32.0 Кб, 14 просмотров)
0
 Аватар для diam
846 / 84 / 7
Регистрация: 06.12.2009
Сообщений: 345
08.07.2010, 09:25
flowchart for prog4
Миниатюры
Блок схема.  
Вложения
Тип файла: doc noName.pas.xls.doc (36.5 Кб, 13 просмотров)
0
 Аватар для diam
846 / 84 / 7
Регистрация: 06.12.2009
Сообщений: 345
08.07.2010, 09:26
ну для Текстовый документ (2).txt уж сделай сам. Там 4 фигуры всего будет
0
0 / 0 / 0
Регистрация: 18.05.2010
Сообщений: 14
08.07.2010, 12:18  [ТС]
Эта схема верна?
0
0 / 0 / 0
Регистрация: 18.05.2010
Сообщений: 14
08.07.2010, 12:19  [ТС]
Спасибо Огромное.
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
08.07.2010, 12:20
Instigate, Тебе для чего схемы рисовали? Неужели не видел что ввод и вывод рисуются параллелограммами?
0
0 / 0 / 0
Регистрация: 18.05.2010
Сообщений: 14
08.07.2010, 12:46  [ТС]
Проблема только в параллелограммах?
0
0 / 0 / 0
Регистрация: 18.05.2010
Сообщений: 14
08.07.2010, 12:59  [ТС]
Вот так правильно?
0
10 / 10 / 4
Регистрация: 30.04.2009
Сообщений: 30
08.07.2010, 13:40
Рисовать лучше всего в программе Microsoft Visio
0
0 / 0 / 0
Регистрация: 18.05.2010
Сообщений: 14
09.07.2010, 00:03  [ТС]
Скачал с микрософта Microsoft Visio.Установилась,только не пойму куда. На правой софт клавише,тоже нет ярлыка.
0
Эксперт по компьютерным сетям
 Аватар для Jabbson
5907 / 3359 / 1036
Регистрация: 03.11.2009
Сообщений: 10,008
09.07.2010, 00:14
а я вот это использую для рисования.
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
09.07.2010, 07:40
Цитата Сообщение от Instigate Посмотреть сообщение
Установилась,только не пойму куда
Каталог Microsoft Office
0
0 / 0 / 0
Регистрация: 18.05.2010
Сообщений: 14
11.07.2010, 21:10  [ТС]
Подскажите пожалуйста,где у меня ошибка в примере.

0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
11.07.2010, 21:11
Instigate, А вместо дурацкой картинки код в теме показать слабо?
0
0 / 0 / 0
Регистрация: 18.05.2010
Сообщений: 14
11.07.2010, 21:13  [ТС]
Пишит ошибку № 89 Writeln('a='); Если ставлю двоеточие Writeln'a=');, то пишит, ошибку № 2

Добавлено через 30 секунд
Извините.
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

program prog2;
var
   a,b,c:Real;
   k,y1,y2:Real;
begin
 Writeln('a=');
 Readln(a);
 Writeln('b=');
 Readln(b);
 Writeln('c=');
 Readln(c);
 Writeln('===============================');
 Writeln('a',a:6:2);
 Writeln('b=',b:6:2);
 Writeln('c=',C:6:2);
 if (a<b) and (b<c) then
 begin
   y1:=Sqr(a+b);
   y2:=Sqr(a-b);
   c:=1
 end
 else  begin
    y1:=a*b*c;
    y2:=b*(a-c);
    c:=2;
 end;
   Writeln('y1=',y1:6:2);
   Writeln('y1=',y1:6:2);
   Writeln('C=',C:6:2);
  if y1<y2 then k:=y2/c
  else k:=y1/c;
  Writeln('k=',k:6:2);
  Readln;
end.
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
11.07.2010, 21:22
Вероятно Вы вводите числа не с точкой в качастве разделителя, а с запятой
так 1,36 нельзя, нужно 1.36
0
0 / 0 / 0
Регистрация: 18.05.2010
Сообщений: 14
11.07.2010, 21:27  [ТС]
У меня только запятые тут: a,b,c:Real;
k,y1,y2:Real;

Добавлено через 1 минуту
но там перечисления
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
 11.07.2010, 21:27
Помогаю со студенческими работами здесь

Блок-схема
program uporyadochivanie; uses crt; var a:array of integer; i,prom,j,n,k:integer; begin clrscr; writeln('vvedit 10...

Блок-схема
Помогите сделать блок-схему program zadanie9; type luggage=record n:integer; weight:real; end; const...

Блок-схема
Помогите сделать блок-схему program zadanie3; type monomial = record degree, k : integer; end; type polynom = array of...

Блок-схема
Помогите сделать блок-схему program zadanie2; const monthes:array of string = ('jan','feb','mar','apr', 'may', 'jun',...

Блок-схема
Помогите составить блок-схему. program zadanie1; type point=record x,y:real; end; function length (var a, b:point) :...


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

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
1 из 2 1 2 »
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru