08.05.2012, 21:36 | #1 (permalink) |
Новичок
Регистрация: 02.05.2012
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите сделать блок-схему
{$mode objfpc}{$H+} uses classes, sysutils; var f :file of integer; k:file of integer; const size=1000; type mas=array[1..size] of longint; var a:mas; n,l,count:integer; procedure made_file; begin assign(f,'input.txt'); rewrite(f); write('ўўҐ¤iвм Єi«мЄiбвм Ґ«Ґ¬Ґ*вiў: '); read(n); write(f,n); write(' ўҐ«ҐзҐ*г *Ґ Ўi«миг пЄ®х ¬®¦** Ўг¤Ґ §¬i*ЁвЁ Ґ«Ґ¬Ґ*в: '); read(l); write(f,l); close (f); end; procedure Read_Data; var i,l,n,k:integer; begin assign(f,'input.txt'); reset(f); k:=filesize(f); for i:=1 to k do begin read(f,a[i]); if i=1 then n:=a[i]; if i=2 then l:=a[i]; end; writeln('ўўҐ¤iвм Їа®бвi зЁб«*'); for i:=1 to n do begin read(a[i]); write(f,a[i]); end; end; procedure quicksort(var a:mas; lo,hi:longint); procedure sort(l,r:longint); var i,j,x,y:longint; begin i:=l; j:=r; x:=a[(l+r)div 2]; repeat while a[i]<x do inc(i); while x<a[j] do dec(j); if i<=j then begin y:=a[i]; a[i]:=a[j]; a[j]:=y; inc(i); dec(j); end; until i>j; if l<j then sort(l,j); if i<r then sort(i,r); end; begin {quicksort}; sort(lo,hi); end; procedure solve; var i:integer; j:longint; begin count:=0; i:=1; while i<=n do begin j:=i+1; while j<=n and (a[i]+2*l) do inc(j); inc(count); i:=j; end; end; procedure write_data; begin assign(k,'output.txt'); write('ўўўҐ¤?вм Їа®бв? жЁдаЁ'); rewrite(k); write(k,count); close(k); end; begin made_file; read_data; quicksort(a,1,n); solve; write_data; end. |
08.05.2012, 21:36 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Не проходите мимо похожих тем, они помогут вам в решении проблемы Вычислить по формуле и сделать блок схему Помогите написать блок-схему Помогите написать блок-схему |
09.05.2012, 14:07 | #2 (permalink) |
С# - learn or die
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
|
Саня007, измените в строчках там где вот такое write('ўўўҐ¤?вм Їа®бв? жЁдаЁ'). В Паскале оно меняется на write('вввед?ть прост? цифри'), но всё равно, по-видимому, это не украинский (исправить не могу,так как не знаю этого языка). А при построении блок-схемы нужны эти предложения.
|
12.05.2012, 15:56 | #4 (permalink) |
С# - learn or die
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
|
В данном случае подойдёт. Но следующий раз вставляйте нормальный код.
Например, Код:
begin assiqn(f,'input.txt'); rewrite(f); write(' введiть кiлькiсть елиментiв: '); read(n); write(f,n); wr1te(' величину не 6iльшу якоi можна буде змiнити елемент: '); read(l); write(f,l); close (f); end; Ну вот сделала вам блок-схему. |
12.05.2012, 17:12 | #5 (permalink) |
Новичок
Регистрация: 12.05.2012
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
как мне сделать это крупнее? я не могу хоть что-то прочитать
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
12.05.2012, 21:30 | #9 (permalink) |
Новичок
Регистрация: 12.05.2012
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
спасибо
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|