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

Помогите с блок-схемой

18.12.2008, 20:33. Показов 1297. Ответов 8
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Код я написала, помогите мне блок-схему нарисовать с комментариями, пожалуйста((( Я просто можно сказать совсем не шарю в программировании. На первом курсе толком не научили ничему, зато теперь требуют выполнения задач.:'(

Вот программа:

Код:


Код
program 1111;
       uses crt;
var i,l,min,max,p1,p2,j:longint;
a,b:string;
    t1:array[1..60]of string;
    t2:array[1..60]of longint;
 begin
 clrscr;
  write('Vvedite text: ');
  readln(a);
   l:=length(a)+1;
   a[l]:=' ';
   for i:=1 to l do
    if a[i]=' ' then begin
    inc(j);t1[j]:=b;
    t2[j]:=length(b);b:='';
		     end
	        else b:=b+a[i];
    max:=t2[1];
    min:=t2[1];
    p1:=1;
    p2:=1;
   for i:=1 to j do
    begin
     if max<t2[i] then begin max:=t2[i];p1:=i;
     end;
     if min>t2[i] then begin min:=t2[i];p2:=i;
     end;
    end;
   writeln('samoye dlinoye slovo: ',t1[p1]);
   writeln('samoe malenkoye slovo: ',t1[p2]);
     readln;
 end.
0
18.12.2008, 20:33
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
18.12.2008, 20:33
Ответы с готовыми решениями:

Помогите с блок схемой
Помогите с блок схемой для этой проги program Mesyac; Uses Crt; Var a: integer; Begin write('Введите число X: ='); ...

ПОмогите с блок-схемой
var i,s,n,m:integer; begin writeln('Введите m,n,i' ); readln(m,n,i); s:=0; while m&lt;n do begin m:=m+1; ...

помогите с блок-схемой по этим кодам
1. var x,y,z,m,r,q,a,min,max,w,k,l:real; begin writeln('x,y,z= '); readln(x,y,z); if (x&lt;y+z)then begin ...

8
 Аватар для demidrolll
133 / 132 / 60
Регистрация: 10.12.2008
Сообщений: 286
18.12.2008, 23:34 2
Немножко подожди
0
 Аватар для demidrolll
133 / 132 / 60
Регистрация: 10.12.2008
Сообщений: 286
18.12.2008, 23:59 3
Держи
Вложения
Тип файла: doc схема7.doc (35.5 Кб, 76 просмотров)
0
 Аватар для demidrolll
133 / 132 / 60
Регистрация: 10.12.2008
Сообщений: 286
19.12.2008, 00:05 4
Забыл насчет комментариев.В файле я не стал их писать, потому что это нереально.
Могу по быстрому объяснить:
Прямоугольник означает присваивание какого-то значения(К:=1 и т.д.);
Параллелограм - вывод или ввод значения
Прямоугольник с обрезанными концами - цикл, перевернутый - конец цикла
Ромб - проверка условия
вроде все
1
1 / 1 / 0
Регистрация: 18.12.2008
Сообщений: 17
19.12.2008, 00:06  [ТС] 5
Я почему-то не могу скачать файл((((

Добавлено через 55 секунд
Цитата Сообщение от demidrolll Посмотреть сообщение
Забыл насчет комментариев.В файле я не стал их писать, потому что это нереально.
Могу по быстрому объяснить:
Прямоугольник означает присваивание какого-то значения(К:=1 и т.д.);
Параллелограм - вывод или ввод значения
Прямоугольник с обрезанными концами - цикл, перевернутый - конец цикла
Ромб - проверка условия
вроде все
Спасибо Это я знаю))) Просто там некоторые моменты непонятны. Как скачать разобралась. Спасибо за схему
0
 Аватар для demidrolll
133 / 132 / 60
Регистрация: 10.12.2008
Сообщений: 286
19.12.2008, 00:10 6
нажми на файле правой кнопкой мыши и выбери "сохранить объект как"

Добавлено через 1 минуту 21 секунду
рад стараться
0
1 / 1 / 0
Регистрация: 18.12.2008
Сообщений: 17
21.12.2008, 17:44  [ТС] 7
А можно еще одну блок-схемку к программе:

Код
program prog; 
uses crt; 
var min, max, len, i : integer; 
    s, str, max_str, min_str : string; 
begin 
clrscr; 
readln(s); # читаем строку 
max := 0; # обнуляем переменную 
min := length(s); # длина строки 
len := 0; # обнуляем переменную 
max_str := ''; # обнуляем переменную 
min_str := ''; # обнуляем переменную 
str := ''; # обнуляем переменную 
for i:=1 to length(s) do # циклом проходимся по всей строке - от 1-го символа и до последнего 
    if s[i]<>' ' then begin # если символ не является пробелом, то: 
        inc(len); # увеличиваем длину слова на 1 
        str := str + s[i]; # присваеваем текущий символ строке, по одному символу будет собираться слово полностью 
    end else begin 
        if len>max then begin # если длина последнего найденного слова больше предыдущего (максимального) 
            max := len; # присваеваем длину этого слова 
            max_str := str; # а это само слово которое собирали по одному символу 
        end; 
        if len<min then begin # если длина последнего найденного слова меньше предыдущего (минимального) 
            min := len; # длина слова 
            min_str := str; # само слово 
        end; 
        len := 0; # обнуляем для того чтобы искать длину следующего слова 
        str := ''; # обнуляем чтоб записывать следующее найденное слово 
    end; 
writeln('max = ', max_str); # вывод 
writeln('min = ', min_str); # вывод 
readln; # а ето будет ожидать нажатия Enter 
end.
Заранее спасибо!!!
0
 Аватар для demidrolll
133 / 132 / 60
Регистрация: 10.12.2008
Сообщений: 286
21.12.2008, 18:25 8
Вот схема
Вложения
Тип файла: doc схема8.doc (33.0 Кб, 32 просмотров)
1
1 / 1 / 0
Регистрация: 18.12.2008
Сообщений: 17
22.12.2008, 00:12  [ТС] 9
Цитата Сообщение от demidrolll Посмотреть сообщение
Вот схема
Оперативно однако. Спасибо огромное.
0
22.12.2008, 00:12
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
22.12.2008, 00:12
Помогаю со студенческими работами здесь

операторе if с блок-схемой
Даны действительные числа x,y,z. Если все числа положительны,увеличить их значения в 2 раза; во всех остальных случаях отрицательные...

оператор For с блок-схемой
написать программу определения суммы всех нечетных чисел в диапазоне от 1 до 99 включительно. С блок-схемой.Через оператор For. Зарание...

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

задание на оператор repead с блок-схемой надо
Написать программу определения суммы всех нечетных чисел в диапазоне от 1 до 99 включительно. С блок-схемой!!!! Плиз!!! Очень...

Численное интегрирование методом симпсона: блок-схемой!!!
Здравствуйте, доброй ночи, мне к 08.00 утра очень бы пригодилась блок-схема к такой вот программе: program Simpson; ...


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

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

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

Новые блоги и статьи
Комментарии в JSON
hw_wired 10.02.2025
JSON - текстовый формат обмена данными, построенный на основе синтаксиса JavaScript. Этот формат отличается простотой, читаемостью и широкой поддержкой во всех современных языках программирования. . . .
Перезаписываем локальные файлы с помощью git pull
hw_wired 10.02.2025
Git pull - незаменимая команда для синхронизации локального репозитория с удаленным. При работе над проектом в команде разработчиков часто возникает необходимость получить актуальные изменения,. . .
Оператор --> в C++
hw_wired 10.02.2025
Оператор --> (называемый "spaceship operator" или оператор космического корабля) - важное нововведение в стандарте C++20, упрощающее реализацию операций сравнения в пользовательских типах данных. . . .
Отмена git add до коммита
hw_wired 10.02.2025
Git предлагает несколько методов для отмены индексации файлов перед созданием коммита. Разработчики часто сталкиваются с ситуацией, когда нужно убрать файлы из индекса, не теряя внесенные изменения в. . .
Типы MIME в JSON: что и когда использовать в REST API
hw_wired 10.02.2025
MIME-типы играют ключевую роль в современных веб-приложениях, особенно в контексте REST API и микросервисной архитектуры. Они определяют формат передаваемых данных между клиентом и сервером, что. . .
Переименование локальной ветки Git
hw_wired 10.02.2025
Git предлагает систему управления версиями, где ветки играют ключевую роль в организации разработки. Ветки позволяют изолировать изменения кода, экспериментировать с новыми функциями и поддерживать. . .
Удаление элемента из массива в JavaScript
bytestream 10.02.2025
В JavaScript массивы - это упорядоченные наборы данных, которые часто требуют модификации, включая удаление элементов. Самый распространенный метод для этой задачи - splice(). Этот метод позволяет не. . .
Что значит yield в Python
bytestream 10.02.2025
Ключевое слово yield в Python создает генераторную функцию - особый тип функции, которая возвращает итератор. В отличие от обычных функций, использующих return для возврата значения и завершения. . .
Чем отличаются git pull и git fetch
bytestream 10.02.2025
Git предоставляет множество команд для работы с удаленными репозиториями, среди которых особое место занимают git fetch и git pull. Эти команды помогают синхронизировать локальный репозиторий с. . .
Как удалить ветку Git в локальном и удаленном репозитории
bytestream 10.02.2025
Git предлагает развитую систему ветвления, позволяющую разработчикам создавать параллельные версии кода для различных задач. Ветка в Git - это легковесный указатель на определенный коммит, который. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru