uses crt; var a:array[1..10] of real; i:integer; begin for i:=1 to 10 do begin a[i]:=random*9 - 4; end; for i:=3 to 7 do begin writeln('a[',i,']=',a[i]:0:2); end; writeln('Press enter'); readln; end.
Пояснения:
у тебя в условии промежуток [4,5) означает что 5 нельзя включать (скорее всего ошибка).
Есл это не ошибка переписывания условия , то добавляется еще одна линия, и программа получается:
uses crt; var a:array[1..10] of real; i:integer; begin randomize; for i:=1 to 10 do begin a[i]:=random*9 - 4; if(a[i]=5) then a[i]:=4.9999; end; for i:=3 to 7 do begin writeln('a[',i,']=',a[i]:0:2);
end; writeln('Press enter'); readln; end.
Обрати внимание, я еще добавил randomize; команду - она гарантирует, что случайные числа будут именно случайными
static void Main(string[] args)
{
Console.WriteLine("Введіть напрям руху");
char S = Console.ReadKey().KeyChar;
S = Char.ToUpper(S);
Console.WriteLine();
Console.WriteLine("Введіть цифрову команду ");
Console.WriteLine();
String temp = Console.ReadLine();
int N = Convert.ToInt16(temp);
Console.WriteLine();
switch (S)
{
case 'П': Console.WriteLine("Робот Рухається на Північ");
break;
case 'З':
Console.WriteLine("Робот Рухається на Захід");
break;
case 'С': Console.WriteLine("Робот Рухається на Схід");
break;
case 'Д': Console.WriteLine("Робот Рухається на Південь");
break;
default:
Console.WriteLine("Помилка вводу напряму руху!");
break;
}
switch (N)
{
case 0:
Console.WriteLine("Робот Продовжив рух ");
break;
case 1:
Console.WriteLine("Робот Повернув на ліво");
break;
case -1 : Console.WriteLine("Робот Повернув на право");
break;
default:
Console.WriteLine("Помилка вводу напряму руху!");
break;
}
Console.ReadKey();
}
Объяснение:
Если я правильно понял условие :) могут возникнуть проблемы в с отображением украинской буквы і
вот код:
uses crt;
var a:array[1..10] of real;
i:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random*9 - 4;
end;
for i:=3 to 7 do
begin
writeln('a[',i,']=',a[i]:0:2);
end;
writeln('Press enter');
readln;
end.
Пояснения:
у тебя в условии промежуток [4,5) означает что 5 нельзя включать (скорее всего ошибка).
Есл это не ошибка переписывания условия , то добавляется еще одна линия, и программа получается:
uses crt;
var a:array[1..10] of real;
i:integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random*9 - 4;
if(a[i]=5) then a[i]:=4.9999;
end;
for i:=3 to 7 do
begin
writeln('a[',i,']=',a[i]:0:2);
end;
writeln('Press enter');
readln;
end.
Обрати внимание, я еще добавил randomize; команду - она гарантирует, что случайные числа будут именно случайными