|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
09.01.2013, 16:42 | #1 (permalink) |
Новичок
Регистрация: 30.09.2012
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите, пожалуйста, подредактировать, Pascal
program z1; uses wincrt; const n=5;m=6; var f:text; massiv:array[1..n,1..m] of integer; v_min,v_max,i,j,n1,n2,m1,m2,c,s,m3,b:integer; n3:real; begin clrscr; randomize; assign(f,'2.txt'); rewrite(f); repeat write('v_min='); readln(v_min); write('v_max='); readln(v_max); until v_max>v_min; for i:=1 to n do begin for j:=1 to m do begin massiv[i,j]:=v_min+random(v_max-v_min+1); write(f,massiv[i,j]:4); end; writeln(f); end; close(f); reset(f); m3:=0; s:=0; while not eof(f) do begin read(f,b); s:=s+1; end; close(f); reset(f); while not eoln(f) do begin read(f,b); m3:=m3+1; end; close(f); writeln('n=',1/2*(s-1)/m3:4:0); writeln('m=',m3:4); reset(f); for i:=1 to n do for j:=1 to m do if massiv[i,j]/2<>int(massiv[i,j]/2) then begin n1:=i; m1:=j; end; for i:=n downto 1 do for j:=m downto 1 do if massiv[i,j]/2=int(massiv[i,j]/2) then begin n2:=i; m2:=j; end; c:=massiv[n1,m1]; massiv[n1,m1]:=massiv[n2,m2]; massiv[n2,m2]:=c; close(f); append(f); writeln(f,''); for i:=1 to n do begin for j:=1 to m do write(f,massiv[i,j]:4); writeln(f); end; close(f); reset(f); while not eof(f) do begin while not eoln(f) do begin read(f,b); write(b:5); end; readln(f); writeln; end; close(f); readln; end. |
09.01.2013, 16:42 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Прочтение похожих обсуждений способно упростить решение проблемы Пожалуйста, помогите с программой. Free Pascal Помогите пожалуйста написать программы в Pascal Помогите, пожалуйста, с составлением программы в Pascal Pascal ABC, запуталась, помогите пожалуйста |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|