Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 05.12.2009
Сообщений: 3

Составить блок схему

05.12.2009, 23:28. Показов 920. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
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
program test;
uses
crt;
const n=10;
var
a:array[1..n] of integer;
b,c:array[1..n]of integer;
i,j,k,min,max:integer;
begin      j:=0; k:=0;
clrscr; for i:=1 to n do
begin
writeln('введите элементы');
read(a[i]);end;
for i:=1 to n do
 
if a[i] > 0 then  begin    j:=j+1;
                           b[j]:=a[i];
                           end
else  begin k:=k+1;
c[k]:=a[i];   end;
 
for i:=1 to k do  write(c[i],' '); writeln;
     for i:=1 to j do write(b[i],' '); writeln;
     begin
 
min:=c[1];
for i:=2 to n do
if c[i]<min then min:=c[i];
writeln('min v c =',min);
end;
begin
max:=b[1];
for i:=1 to n do
if b[i]>max then max:=b[i];
write('max v b=',max)
end;
 
end.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
05.12.2009, 23:28
Ответы с готовыми решениями:

Составить блок схему вычисления значения функции, а затем составить программу
Составить блок схему вычисления значения функции, а затем составить программу

Составить блок схему
Составить блок схему uses crt; const n=6; Type mas2=array of integer; var p,k,x,y:integer; a:mas2; procedure vvod (var...

Составить блок-схему
помогите пожалуйста составить блок схему к программе program vosdva; uses crt; var s,ss:string; i,k:integer; begin ...

6
3 / 3 / 1
Регистрация: 05.12.2009
Сообщений: 8
05.12.2009, 23:48
помойму блок-схема это самое простое из среды программирования. Просто идешь внимательно построчно и рисуешь сначала в черновике, а потом на компе.
0
0 / 0 / 0
Регистрация: 05.12.2009
Сообщений: 3
06.12.2009, 00:29  [ТС]
программы написать я могу
а вот эти рамочки ромбики кружочки не понимаюю...
0
 Аватар для unlucky
37 / 37 / 28
Регистрация: 23.11.2009
Сообщений: 103
06.12.2009, 01:45
снизу есть кнопка pascal при вводе текста выведешь в норм виде сделаю схему))
0
Программист 1С
 Аватар для Давид
859 / 647 / 187
Регистрация: 03.03.2009
Сообщений: 1,154
06.12.2009, 09:34
SKIER007, Вот ваша схема - проверяйте...только к виду - которому учат вас переделайте.
Вложения
Тип файла: rar shem.rar (7.0 Кб, 14 просмотров)
0
0 / 0 / 0
Регистрация: 05.12.2009
Сообщений: 3
07.12.2009, 01:19  [ТС]
хм...
спасибо..
только она не совсем правильная есть кое что исправить а так смысл понятен)))спасибо еще раз
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
07.12.2009, 07:10
только она не совсем правильная
А тебе нужно чтоб было выполнено в туши, с отмывкой и с доставкой на дом?
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
07.12.2009, 07:10
Помогаю со студенческими работами здесь

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

Составить блок-схему
program lab5; uses crt; var s:string; i,n:integer; begin writeln ('Vvedite stroky simvolov'); readln (s); for i:=2 to...

Составить блок-схему
uses crt; const n=3; var a:array of real; b:array of real; i,j,ko:byte; s,s1:real; begin writeln('Матрица А'); ko:=0; ...

Составить блок-схему
помогите составить блок-схему к программе прогцевуры. условие:найти наибольшее значение элементов процедуры (элементы вводить виде цифр)...

Составить блок-схему
uses crt; var n,m,s:integer; begin clrscr; write('Введите натуральное n='); readln(n); m:=1; s:=1; while s+sqr(m+1)&lt;n do...


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
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, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств
8Observer8 07.02.2026
Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru