mac4roc3781
?>

найти 5 ошибок 1 var 2 s : integer; 3 procedure pr; 4 var a, b, r :integer; 5 begin 6 write('введите стороны прямоугольника a, b: '); 7 readln(a, b); 8 r := a * b; 9 writeln('Площадь прямоугольника = ', r:0:2) 10 end; 11 procedure tr; 12 var a, b, c, r : real; 13 begin 14 write('введите стороны треугольника a, b, c: '); 15 readln(a, b, c); 16 p := (a + b + c) / 2; {полупериметр} 17 r := sqrt(p * (p - a) * (p - b) * (p - c)); 18 writeln('Площадь треугольника = ', r:0:2) 19 end; 20 procedure kr; 21 var c, r : real; 22 begin 23 write('введите радиус круга c: '); 24 readln(c); 25 r := PI * sqr(c); 26 writeln('Площадь круга = ', r:0:2) 27 end; 28 repeat 29 writeln('Площадь какой фигуры нужно вычислить: '); 30 writeln('1 - Прямоугольник'); 31 writeln('2 - Треугольник'); 32 writeln('3 - Круг'); 33 writeln('0 - Выход'); 34 readln(s); 35 case s 36 1 : pr; 37 2 : tr; 38 3 : kr 39 else if s <> 0 then writeln('некорректный ввод') 40 until s = 0 41 end.

Информатика

Ответы

braigon974

1.  Между строчками 27 и 28 вставить строчку с "begin".

2. Между строчками 39 и 40 вставить строчку с "end;".

3. В строке 35 добавить в конец " of".

4. В строке 12 после "r" добавить ", p".

5. В строке 4 заменить "integer" на "real".

Изменения:


найти 5 ошибок 1 var 2 s : integer; 3 procedure pr; 4 var a, b, r :integer; 5 begin 6 write('введит
Vyacheslavovich-Gubanov

Omвem:

В консоли пишешь так

(qennu - ТЫ забыл воm эmу команgу:

cl_dynamiccrosshair 1 - он нужен чmо бы uзмeнumь рaзмeр nрuцeла. А mак нuчего не 6уgеm.)

cl_lw 1

cl_lc 1

+duck

cl_lw 0

cl_lc 0

-duck

Объясненuе:

Еслu хочешь сmреляmь ещё лучше, u чmo был сmабuльный FPS nuшешь эmu комаHgы. Эmu насmройкu gля слабых u cреgнuх ПК:

1) Чmобы nроuзводumельносmu, необходимо оmключumь верmuкальную сuнхронuзацuю в насmройках uгры. Для эmого необхоguмо:

2) Перейтu в «Насmройкu».

3) Оmкрыmь вкладку «Вuдео».

Сняmь галочку с пункmа «Верmuкальная сuнхронuзацuя».

net_graph - в нижней части экрана появится счетчик. Он не nревышаеm 60 FPS, что являеmся сmанgарmом gля всех uгp.

1) cl_cmdrate 101 - оnреgеляеm скоросmь nереgачu nакеmов оm клuенmа к серверу. Ещё нужно ставumь максuмальное значение gля комфорmной uгры.

2) cl_updaterate 101 - оnреgеляеm скоросmь оmnравленuя заnросов клиенmа серверу. Поэтому рекоменgуеmся сmавuть максuмальное значенuе.

3) cl_rate 25000 -  оnреgеляеm колuчесmво б/с, коmорые сервер можеm оmnравumь клuенmу. Влuяеm на многие вещи геймплея, поэтому ставить нужно как можно больше.

4) fps_max 101 (gля мощных ПК можнщ cmавumь 150)

5) cl_dlmax 128 - оnреgеляет скоросmь возвращения nрицела в своё обратное положение. Все игроки ставяm значение 80 uлu 128.

6) cl_corpsestay 600 - эma команда оnреgеляеm, за сколько время трупы сохраняются. Она напрямую влияет на разброс, чем меньше, тем точнее летят пули. Если ставить 180 легче буgеm стрелять c пистолетов, если высmавumь 0, mo стрелять с винтовок станет очень удобно.

Shumnova42

ответ:1) operating system, OS) — комплекс взаимосвязанных программ, предназначенных для управления ресурсами компьютера и организации взаимодействия с пользователем. ... В большинстве вычислительных систем операционная система является основной, наиболее важной (а иногда и единственной) частью системного программного обеспечения.

2) Вредоносная программа — компьютерная программа или переносной код, предназначенный для реализации угроз информации, хранящейся в компьютерной системе, либо для скрытого нецелевого использования ресурсов системы, либо иного воздействия, препятствующего нормальному функционированию компьютерной системы.

Объяснение:

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

найти 5 ошибок 1 var 2 s : integer; 3 procedure pr; 4 var a, b, r :integer; 5 begin 6 write('введите стороны прямоугольника a, b: '); 7 readln(a, b); 8 r := a * b; 9 writeln('Площадь прямоугольника = ', r:0:2) 10 end; 11 procedure tr; 12 var a, b, c, r : real; 13 begin 14 write('введите стороны треугольника a, b, c: '); 15 readln(a, b, c); 16 p := (a + b + c) / 2; {полупериметр} 17 r := sqrt(p * (p - a) * (p - b) * (p - c)); 18 writeln('Площадь треугольника = ', r:0:2) 19 end; 20 procedure kr; 21 var c, r : real; 22 begin 23 write('введите радиус круга c: '); 24 readln(c); 25 r := PI * sqr(c); 26 writeln('Площадь круга = ', r:0:2) 27 end; 28 repeat 29 writeln('Площадь какой фигуры нужно вычислить: '); 30 writeln('1 - Прямоугольник'); 31 writeln('2 - Треугольник'); 32 writeln('3 - Круг'); 33 writeln('0 - Выход'); 34 readln(s); 35 case s 36 1 : pr; 37 2 : tr; 38 3 : kr 39 else if s <> 0 then writeln('некорректный ввод') 40 until s = 0 41 end.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Galliardt Sergeevna1284
artemyanovich8
achernakov
annabanova9
melnik-738
msburmis
kate1610
Rufilya-Belov
leonid-adv70
Elshel8694
Shamil
dkedrin74038
dpolkovnikov
Reginahappy
Mashkov-Daniil1764