ответьте на вопросы в текстовом редакторе MS Word. 1. Проанализируйте свою посадку за компьютером. 2. Какие могут быть последствия от такой посадки сделать информатику
Unit Main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Edit1: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject);var i, j, n: integer; min, max, var_bl: real; a: array of array of real;beginMemo1.Clear;if TryStrToInt(Edit1.Text,n) thenbegin n:=StrToInt(Edit1.Text); if n<1 then begin Application.MessageBox('Ошибка!','',0); Exit; end; SetLength(a,n); for i:= 0 to n-1 do SetLength(a[i],n); Randomize; for i:= 0 to n-1 do for j:=0 to n-1 do a[i,j]:=Random(100)-30; min:= a[0,0]; max:= a[0,0]; for i:= 0 to n-1 do begin for j:=0 to n-1 do begin //Memo1.Text:=Memo1.Text+FloatToStrF(a[i,j],ffFixed,5,3)+' ';//Форматированный вывод Memo1.Text:=Memo1.Text+FloatToStr(a[i,j])+' '; //обычный вывод end; Memo1.Lines.Add(''); end; for i:= 0 to n-1 do for j:=0 to n-1 do begin if(a[i,j]<min) then min:=a[i,j]; if(a[i,j]>max) then max:=a[i,j]; end; Memo1.Lines.Add('Min='+FloatToStr(min)+', Max='+FloatToStr(max)); for i:= 0 to n-1 do for j:=0 to n-1 do begin if(a[i,j]=min) then begin a[i,j]:= max; Continue; end; if(a[i,j]=max) then a[i,j]:=min; end; Memo1.Lines.Add(''); Memo1.Lines.Add(''); Memo1.Lines.Add('Были поменяны наименьший и наибольший элемент массива'); Memo1.Lines.Add(''); for i:= 0 to n-1 do begin for j:=0 to n-1 do begin //Memo1.Text:=Memo1.Text+FloatToStrF(a[i,j],ffFixed,5,3)+' ';//Форматированный вывод Memo1.Text:=Memo1.Text+FloatToStr(a[i,j])+' '; //обычный вывод end; Memo1.Lines.Add(''); end; Memo1.Lines.Add(''); Memo1.Lines.Add(''); Memo1.Lines.Add(''); Memo1.Lines.Add('');end else Application.MessageBox('Ошибка!','',0);end; end.
var i,N:integer; begin веедите натуральное число не превосходящее 1000'); readln(N); writeln('Входное число=',N); for i:=0 to (N-1) do write(i,' '); end.
Пример работы: веедите натуральное число не превосходящее 1000 5 Входное число=5 0 1 2 3 4 P.S.Если в условии от 1-го, а не от нуля, for i:=0 to (N-1) do write(i,' '); замени на for i:=1 to (N-1) do write(i,' ');
Лишняя информация, если тебе не нравится информатика: на сколько я понял, ты не мог понять как вывести сначала число 5. В моей программе это делает оператор writeln(N); Именно Writeln, а не Write. Почему? Потому что writeln произошло от слова line - линия, оно занимает целую строку. А Write мастит все в одну строку. Если нужно будет что-то рассказать и это будет в моих силах, я с радостью любому желающему.
1). прямая спина 2). Спина будет прямой