Нарисовать блок-схему

@papkes · Регистрация: 04.11.2010

Студворк — интернет-сервис помощи студентам

Может кто-нибудь по моему коду накидать блок-схему?
Вот код

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
begin
 repeat
 
  write('Enter a number of strings:');
  readln (n);
 until (n>=1) and (n<=Nmax);
 
 
 writeln('Enter text with ',n,' strings:'); 
 for I := 1 to n do
  readln(s[i]);
 
 
 for I := 1 to n do
  begin
    st0:=trim(s[i]);
    j:=0;
    s1[i]:='';
    while(pos(' ',st0)<>0) do
     begin
      j:=j+1;
      w[j]:=copy(st0,1,pos(' ',st0)-1);
      delete(st0,1,pos(' ',st0));
      st0:=trim(st0);
     end;
 
    j:=j+1;
    w[j]:=st0;
 
    for z:=j downto 1 do
 
 
      s1[i]:=s1[i]+' '+w[z];
  end;
 
 for I := 1 to n do
   writeln(s1[i]);
readln;
end.

@insideone · 11.11.2010, 20:23

Накидал

@papkes · 11.11.2010, 22:49 **[ТС]**

спасибо,но я вроде сам уже справился)

silent_1991 · 11.11.2010, 23:12

papkes, рады за вас. А почему бы не написать об этом сразу? Или мы сами должны были догадаться? Человек потратил своё время, на, в общем-то, абсолютно скучное задание, а вам, оказывается, уже не нужно решение.

@papkes · 11.11.2010, 23:35 **[ТС]**

наверно потому что я делал это задание и не палил форум
в таком случае извиняйте

@insideone · 12.11.2010, 00:45

papkes, приятно все же видеть человека который может и сам решить свою проблему, я не в обиде

)

Впрочем раз вопрос решён прошу не продолжать тему во избежании офтопа

Новые блоги и статьи Все статьи Все блоги /
Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm) 8Observer8 30.01.2026 Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .	Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .

@insideone 3687 / 964 / 114 Регистрация: 10.01.2010 Сообщений: 2,550
	11.11.2010, 20:23
	Накидал 0

@papkes 1 / 1 / 0 Регистрация: 04.11.2010 Сообщений: 57
	11.11.2010, 22:49 [ТС]
	спасибо,но я вроде сам уже справился) 0

silent_1991 5058 / 3118 / 271 Регистрация: 11.11.2009 Сообщений: 7,044
	11.11.2010, 23:12
	papkes, рады за вас. А почему бы не написать об этом сразу? Или мы сами должны были догадаться? Человек потратил своё время, на, в общем-то, абсолютно скучное задание, а вам, оказывается, уже не нужно решение. 0

@papkes 1 / 1 / 0 Регистрация: 04.11.2010 Сообщений: 57
	11.11.2010, 23:35 [ТС]
	наверно потому что я делал это задание и не палил форум в таком случае извиняйте 0

@insideone 3687 / 964 / 114 Регистрация: 10.01.2010 Сообщений: 2,550
	12.11.2010, 00:45
	papkes, приятно все же видеть человека который может и сам решить свою проблему, я не в обиде ) Впрочем раз вопрос решён прошу не продолжать тему во избежании офтопа 1