![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 10.06.2010
Сообщений: 3
|
![]()
1.procedure sortDan;
var i,j,k,t:integer; x:array[1..6] of integer; begin clrscr; if pv:=0 then begin writeln('Данные не введены'); readln; end; else k:=0; for i:=1 to n do for j:=1 to n do if i>j then begin k:=k+1; end; for i:=1 to k-1 do for j:=1 to k-j do if x[i]>x[i+1] then begin t:=x[i]; x[i]:=x[i+1]; x[i+1]:=t; end; writeln ('Массив отсортирован'); k:=0; for i:=1 to n do for j:=1 to n do begin if i>j then begin k:=k+1; M[i,j]:=x[k]; end; end; writeln; readln; end; 2.procedure grahpFun; begin uses graph; const xn=-2*pi; xk=2*pi; n=20000; var x,dx,y:real; gd,gm:integer; begin gd:=detect; Initgraph(gd,gm,''); SetBkColor(3); SetColor(White); SetLineStyle(0,0,1); ClearDevice; Line(20,240,550,240); line(545,235,550,240); Line(545,245,550,240); OutTextXY(555,250,'X'); Line(240,50,240,400); line(235,55,240,50); Line(245,55,240,50); OutTextXY(250,50,'Y'); dx:=(xk-xn)/n; x:=xn; y:=cos(x*x)-cos(x); PutPixel(240+round(x*25),240-round(y*100),5); Repeat x:=x+dx; y:=cos(x*x)-cos(x); SetColor(5); putpixel(240+round(x*25),240-round(y*100),5); until x>xk; readln; closegraph; end; 3.procedure outputDan; label 1; const n=6; var z:array[1..n] of integer; M:array[1..n,1..n] of integer; t,x,p,k,i,y,max,j:integer; A,B,S:string; begin randomize; for i:=1 to n do begin for j:=1 to n do begin M[i,j]:=random(100); write(M[i,j]:5); end; writeln; end; max:=M[1,1]; for i:=1 to n do if M[i,i]>max then begin max:=M[i,i]; x:=i; end; clrscr; 1: write('Введите номер столбца <',n); readln(k); if k>=n then goto 1; for i:=1 to n do begin p:=M[i,k]; M[i,k]:=M[x,i]; M[x,i]:=p; end; writeln('Новая матрица'); for i:=1 to n do begin for j:=1 to n do write(M[i,j]:5); writeln; end; k:=0; for i:=1 to n do for j:=1 to n do if i>j then begin k:=k+1; z[k]:=M[i,j]; end; for j:=1 to k-1 do for i:=1 to k-j do if z[i]>z[i+1] then begin t:=z[i]; z[i]:=z[i+1]; z[i+1]:=t; end; writeln('Отсортированный массив'); k:=0; for i:=1 to n do begin for j:=1 to n do begin if i>j then begin k:=k+1; M[i,j]:=z[k]; end; write(M[i,j]:5); end; writeln; end; readln; Writeln ('Введите слово'); Readln (S); A := Copy (S,1,1); Delete (S,1,1); B := Copy (S,length(S),1); Delete (S,length(S),1); S := B + S + A; writeln(S); readln; end; Написать для каждой процедуры отдельную блок схему. |
![]() |
![]() |
![]() |
#2 |
Пользователь
Регистрация: 28.01.2010
Сообщений: 16
|
![]()
сделаю, 0,5WMZ за каждую процедуру.
Dimafe2000@mail.ru |
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 05.04.2010
Сообщений: 11
|
![]()
в прицепе блок-схема для первой программы. Кстати, она у тебя написана с ошибками, а именно: перед else не допускается символ ";"
Остальные сделаешь сам.
Базы данных MS Access, MS SQL, Макросы для Word, Excel, PowerPoint, OutLook
Веб - приложения C# (Core 3.0) Доработки Битрикс-портала, Битрикс-сайтов |
![]() |
![]() |
![]() |
Опции темы | Поиск в этой теме |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Зачем нужны блок-схемы? | fs444 | Общие вопросы по программированию, компьютерный форум | 31 | 27.01.2010 04:11 |
ПОМОГИТЕ......ЗАВТРА ЭКЗАМЕН!!!!!! | Allen Iverson | Помощь студентам | 0 | 23.04.2009 20:33 |
Завтра экзамен((( | Foxandrey | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 14.12.2008 12:00 |