Помогите составить Блок - схему. Пож.

@доминик · Регистрация: 01.12.2010

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

Обработка строковых даных.
program srs_7;
uses crt;
var s,s1,s2:string;
n,i,j,f:integer;
begin
clrscr;
readln(s);
for i:=1 to length(s) do
if s[i]=’.’ then
begin
j:=i;
repeat j:=j-1 until s[j]=’.’;
end;
j:=j+1;
s1:=copy(s,j,(i-j));
writeln(s1);
s2:=copy(s,1,pos(‘,’,s)-1); if not(s2=s1) then begin
if (length(s2) mod 2)=1 then delete(s2,(length(s2) div 2)+1,1);
write(s2,’ ‘);
end;
i:=0;
repeat inc(i);
if s[i]=’,’ then begin
j:=i;
repeat j:=j-1; until s[j]=’,’;
s2:=copy(s,i-(i-j),(i-j));
delete(s2,1,1);
if not (s2=s1) then begin
if (length(s2) mod 2)=1 then delete(s2,(length(s2)div 2)+1,1);
write(s2,’ ‘);
end;
end;
until i>=length(s);
readln;
end.

Заранее спс!!!

@SuPeR XaKer · 05.12.2010, 21:11

.....

@доминик · 05.12.2010, 21:22 **[ТС]**

SuPeR XaKer, а можеш с прогай помоч на графику?

@SuPeR XaKer · 05.12.2010, 21:23

SuPeR XaKer, а можеш с прогай помоч на графику?

Создавайте тему.может кто нибудь и поможет.

@доминик · 05.12.2010, 21:29 **[ТС]**

я уже давно ее создал, просто некто неотвечает. Может незнаю как. Вот и подумал может ты сможеш помоч.

@доминик · 05.12.2010, 23:09 **[ТС]**

вот посмотри: там надо Иследовать область определения и построить график функции.
Помоги если сможеш.Пож.

@доминик · 06.12.2010, 14:28 **[ТС]**

посмотри пожалуста прогу, вроде сделал, но немогу че т оси нарисовать(х,у).
помоги ПОЖАЛУЙСТА.

program pr;
uses graph;
var gd,gm: integer;
x0, y0: integer;
x,y,dx: real;
begin
gd:=0;
initgraph(gd,gm,' ');
x0:=getmax X div 2;
y0:=getmax Y div 2;
x:=-20;
dx:=0.001;
repeat
if abs(x*x-3*x+1)>0.001 then begin
putpixel(x0+round(x*20), y0-round(y*20), 8);
x:=x+0.5 end else
x:=0.5; until x<10;
while x<=20 do
begin
y:=x/sqr(x)+3*x+1;
putpixel(x0+round(x*20), round(y0-round(y*20)),12);
x:=x+dx;
end;
readln;
close graph;
end.

Новые блоги и статьи Все статьи Все блоги /
Снова не мой путь. Циклическое среднее, я обеими руками за проверку условия, в ракурсе данной задачи - циклическое среднее в топку. Hrethgir 24.06.2025 Привет. Такой вопрос - нужно выводить среднее математическое между двумя направлениями, интервал значений которых может лежать в диапазоне одного оборота по кругу. Проблема заключается в том, что. . .	Деплой Flask приложения py-thonny 23.06.2025 За годы работы с Flask я натыкался на одни и те же грабли достаточно часто, чтобы наконец научится их обходить. И сегодня хочу поделится опытом, который сбережет вам немало нервных клеток. Начнем с. . .	WebAssembly и контейнеры в .NET Aspire для оркестрации распределенных архитектур ArchitectMsa 23.06.2025 Я наблюдаю, как WebAssembly (или просто WASM) постепенно выходит за рамки своего первоначального предназначения — исполнения кода на стороне браузера. Теперь эта технология проникает в серверную. . .	Непрерывная интеграция для пакета Python Mr. Docker 22.06.2025 Было 4 часа утра пятницы, когда я выпустил новую версию нашей внутренней библиотеки для обработки данных. Релиз 0. 5. 2 содержал небольшой фикс для обработки дат в ISO формате, что может пойти не так?. . .	Продвинутый ETL на C# из OLTP БД в хранилище stackOverflow 22.06.2025 Работая в сфере корпоративной аналитики, я постоянно сталкиваюсь с одним и тем же - нужны чистые, структурированные и, главное, свежие данные. Без них современные аналитические системы, машинное. . .
Мастер-класс по микросервисам на Node.js Reangularity 21.06.2025 Node. js стал одной из самых популярных платформ для микросервисной архитектуры не случайно. Его неблокирующая однопоточная модель и событийно-ориентированный подход делают его идеальным для. . .	Управление Arduino из WPF приложения Wired 21.06.2025 Зачем вообще связывать Arduino с WPF-приложением? Казалось бы, у Arduino есть собственная среда разработки, своя экосистема, свои способы управления. Однако при создании серьезных проектов. . .	Звёздная пыль kumehtar 20.06.2025 Я просто это себе представляю: как создавался этот мир. Как энергия слипалась в маленькие частички. Как они собирались в первые звёзды, как во вселенной впервые появился Свет. Как эти звёзды. . .	Создание нейросети с PyTorch AI_Generated 19.06.2025 Ключевое преимущество PyTorch — его питоновская натура. В отличие от TensorFlow, который изначально был построен как статический вычислительный граф, PyTorch предлагает динамический подход. Это. . .	JWT аутентификация в ASP.NET Core UnmanagedCoder 18.06.2025 Разрабатывая веб-приложения, я постоянно сталкиваюсь с дилеммой: как обеспечить надежную аутентификацию пользователей без ущерба для производительности и масштабируемости? Классические подходы на. . .

@доминик 2 / 2 / 2 Регистрация: 01.12.2010 Сообщений: 264

	Помогите составить Блок - схему. Пож. 05.12.2010, 21:02. Показов 729. Ответов 6 Метки нет (Все метки) Обработка строковых даных. program srs_7; uses crt; var s,s1,s2:string; n,i,j,f:integer; begin clrscr; readln(s); for i:=1 to length(s) do if s[i]=’.’ then begin j:=i; repeat j:=j-1 until s[j]=’.’; end; j:=j+1; s1:=copy(s,j,(i-j)); writeln(s1); s2:=copy(s,1,pos(‘,’,s)-1); if not(s2=s1) then begin if (length(s2) mod 2)=1 then delete(s2,(length(s2) div 2)+1,1); write(s2,’ ‘); end; i:=0; repeat inc(i); if s[i]=’,’ then begin j:=i; repeat j:=j-1; until s[j]=’,’; s2:=copy(s,i-(i-j),(i-j)); delete(s2,1,1); if not (s2=s1) then begin if (length(s2) mod 2)=1 then delete(s2,(length(s2)div 2)+1,1); write(s2,’ ‘); end; end; until i>=length(s); readln; end. Заранее спс!!! 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	05.12.2010, 21:11
	..... Миниатюры 0

@доминик 2 / 2 / 2 Регистрация: 01.12.2010 Сообщений: 264
	05.12.2010, 21:22 [ТС]
	SuPeR XaKer, а можеш с прогай помоч на графику? 0

@доминик 2 / 2 / 2 Регистрация: 01.12.2010 Сообщений: 264
	05.12.2010, 21:29 [ТС]
	я уже давно ее создал, просто некто неотвечает. Может незнаю как. Вот и подумал может ты сможеш помоч. 0

@доминик 2 / 2 / 2 Регистрация: 01.12.2010 Сообщений: 264
	06.12.2010, 14:28 [ТС]
	посмотри пожалуста прогу, вроде сделал, но немогу че т оси нарисовать(х,у). помоги ПОЖАЛУЙСТА. program pr; uses graph; var gd,gm: integer; x0, y0: integer; x,y,dx: real; begin gd:=0; initgraph(gd,gm,' '); x0:=getmax X div 2; y0:=getmax Y div 2; x:=-20; dx:=0.001; repeat if abs(xx-3x+1)>0.001 then begin putpixel(x0+round(x20), y0-round(y20), 8); x:=x+0.5 end else x:=0.5; until x<10; while x<=20 do begin y:=x/sqr(x)+3x+1; putpixel(x0+round(x20), round(y0-round(y*20)),12); x:=x+dx; end; readln; close graph; end. 0