тая112
01.04.2021 11:33

3. Запишите программный код вычисления значения функции х2, если х< 0

у =

х + 7, если х >= 0

x = int(input(“введите х:”))

4. Запишите программный код вывода чисел от 1 до числа, введенного с клавиатуры, с использованием цикла с параметром.

Критерии оценивания № задания Дескриптор

Определяет системное, прикладное программное обеспечение и системы программирования

1 дает определение термина «Системное ПО» 1

дает определение термина «Прикладное ПО» 1

дает определение термина «Системы программирования» 1

2 определяет программы и категорию ПО 1

Использует структуру ветвления в программном коде

3 записывает условие 1

записывает оператор при выполнении условия 1

записывает оператор при невыполнении условия 1

Использует циклическую структуру в программном коде

4 записывает оператор ввода числа с клавиатуры 1

записывает цикл с параметром 1

записывает оператор вывода числа 1

записывает выражение для изменения параметра 1

Всего ббаллов20​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Kisyshka
30.09.2020 06:45
Код для примитивной "рисовалки", рисуете что хотите. Для сохранения на рабочий стол нажимаете клавишу "Enter"

// PascalABC.NET 
// Версия 3.3.5 сборка 1662 (29.04.2018)

uses GraphABC; 

begin 
Window.Title := 'Рисование мышью(Enter - сохранить на раб. стол)'; 
Pen.Color := Color.Red; 
Pen.Width := 3; 
OnMouseDown := (x,y,mb) -> MoveTo(x,y); 
OnMouseMove := (x,y,mb) -> if mb=1 then LineTo(x,y); 
var a:=System.Security.Principal.WindowsIdentity.GetCurrent.Name;
OnKeyDown:=k->if k=13 then begin
SaveWindow('C:\Users\'+copy(a,pos('\',a)+1,a.Length-pos('\',a)+1)+'\Desktop\image.png'); Window.Close; end;
end.
0,0(0 оценок)
Ответ:
N1ki4
30.09.2020 06:45
Паскаль
---
uses crt;
var a: array[1..100,1..100] of integer;
    x,y,sum,k,n:integer;
begin
     write('Введите n: ');
     readln(n);
     clrscr;
     for x:=1 to n do begin
         for y:=1 to n do begin
             a[x,y]:=random(21)-10;
             write(a[x,y]:4);
         end;
         writeln;
     end;
     k:=0;
     Sum:=0;
     for x:=1 to n do
         for y:=x+1 to n do
             if a[x,y]>0 then begin
                Sum:=Sum+a[x,y];
                inc(k);
             end;
     writeln;
     if k<>0 then write(sum/k:4:2);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота