Модуль Turtle: Используя команду int(input(), спросите какая площадь квадрата, а затем нарисуйте квадрат с заданной площадью. Закрасьте красным цветом.
type hk = record name: string[20]; shyiba: record gol_per: integer; gol: integer; straf_time: integer end end;
var hokiyArray, hokiyArray01: array[1..100] of hk; i, n: integer; f: text;
begin Assign(f, 'test.txt'); Rewrite(f); Writeln('ДИНАМО '); Write('Введите количество нападающих : '); Readln(n); for i := 1 to n do begin Writeln(''); Writeln(' Введите данные ', i, 'нападающего'); Write(' Введите имя : '); Readln(hokiyArray[i].name); Writeln(''); Writeln; Write(' Количество заброшеніх шайб : '); Readln(hokiyArray[i].shyiba.gol_per); Write('Количество голевіх передач '); Readln(hokiyArray[i].shyiba.gol); Write(' Количество штрафного времени '); Readln(hokiyArray[i].shyiba.straf_time); Writeln end; Writeln; for i := 1 to n do begin with hokiyArray[i] do Writeln(f, 'ДИНАМО', name, ' ', shyiba.gol_per, ' ', shyiba.gol, ' ', shyiba.straf_time); end; Close(f);
Assign(f, 'test01.txt'); Rewrite(f); Writeln('СПАРТАК '); Write('Введите количество нападающих : '); Readln(n); for i := 1 to n do begin Writeln(''); Writeln(' Введите данные ', i, 'нападающего'); Write(' Введите имя : '); Readln(hokiyArray01[i].name); Writeln(''); Writeln; Write(' Количество заброшеніх шайб : '); Readln(hokiyArray01[i].shyiba.gol_per); Write('Количество голевіх передач '); Readln(hokiyArray01[i].shyiba.gol); Write(' Количество штрафного времени '); Readln(hokiyArray01[i].shyiba.straf_time); Writeln end; Writeln; for i := 1 to n do begin with hokiyArray01[i] do Writeln(f, 'СПАРТАК', name, ' ', shyiba.gol_per, ' ', shyiba.gol, ' ', shyiba.straf_time); end; Close(f)
Вот на Java, в паскаль лень переводить. Если все же нужно, то отпишите в скайп - vasilevich24. public class zadanie4 { public static void main(String[] args) { . int a[]; a=new int [150]; System.out.println("Исходный массив:"); for (int i=0;i<15;i++) { a[i]=(int) Math.floor(Math.random()*20)-10; System.out.println("a["+i+"]="+a[i]);} for (int i=0;i<15;i++){ if (a[i]>=-5 && a[i]<=5){ a[i]=a[i]+1;}} System.out.println("Полученный массив:"); for (int i=0;i<15;i++) { System.out.println("a["+i+"]="+a[i]);}}}
uses
crt;
type
hk = record
name: string[20];
shyiba: record
gol_per: integer;
gol: integer;
straf_time: integer
end
end;
var
hokiyArray, hokiyArray01: array[1..100] of hk;
i, n: integer;
f: text;
begin
Assign(f, 'test.txt');
Rewrite(f);
Writeln('ДИНАМО ');
Write('Введите количество нападающих : '); Readln(n);
for i := 1 to n do
begin
Writeln('');
Writeln(' Введите данные ', i, 'нападающего');
Write(' Введите имя : '); Readln(hokiyArray[i].name);
Writeln('');
Writeln;
Write(' Количество заброшеніх шайб : ');
Readln(hokiyArray[i].shyiba.gol_per);
Write('Количество голевіх передач ');
Readln(hokiyArray[i].shyiba.gol);
Write(' Количество штрафного времени ');
Readln(hokiyArray[i].shyiba.straf_time);
Writeln
end;
Writeln;
for i := 1 to n do
begin
with hokiyArray[i] do
Writeln(f, 'ДИНАМО', name, ' ', shyiba.gol_per, ' ', shyiba.gol,
' ', shyiba.straf_time);
end;
Close(f);
Assign(f, 'test01.txt');
Rewrite(f);
Writeln('СПАРТАК ');
Write('Введите количество нападающих : '); Readln(n);
for i := 1 to n do
begin
Writeln('');
Writeln(' Введите данные ', i, 'нападающего');
Write(' Введите имя : '); Readln(hokiyArray01[i].name);
Writeln('');
Writeln;
Write(' Количество заброшеніх шайб : ');
Readln(hokiyArray01[i].shyiba.gol_per);
Write('Количество голевіх передач ');
Readln(hokiyArray01[i].shyiba.gol);
Write(' Количество штрафного времени ');
Readln(hokiyArray01[i].shyiba.straf_time);
Writeln
end;
Writeln;
for i := 1 to n do
begin
with hokiyArray01[i] do
Writeln(f, 'СПАРТАК', name, ' ', shyiba.gol_per, ' ', shyiba.gol,
' ', shyiba.straf_time);
end;
Close(f)
end.