Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
mcmorgana
05.09.2022 12:46 •
Информатика
Расскажите о панелях обработки текстов в интерфейсе программы Paint.NET
👇
Увидеть ответ
Открыть все ответы
Ответ:
kuanyshqz
05.09.2022
Это ? pascalвыделить код1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 uses graphabc; function f(x: real): real; begin f: =sin(x)/x end; var mx,my,x,dx,y: real; x0,y0,i: integer; s: string; begin x0: =windowwidth div 2; {г*г*г·г*г«г® гєг®г®г°г¤гёг*г*гі гў г¶гґг*гіг°гґ гѕгєг°г*г*г*} y0: =windowheight div 2; {гєг®гѕгґгґгёг¶гёгґг*гіг» гїг® г®г±гїг¬ г¤г«гї гїгґг°гґгўг®г¤г* г°гґг*г«гјг*г»гµ гєг®г®г°г¤гёг*г*гі гў гѕгєг°г*г*г*г»гґ} mx: =30; my: =100; line(0,y0,windowwidth,y0); {г®г±гј г•} line(x0,windowheight,x0,0); {г®г±гј г“} {гїг®г¤гїгёг±гё г®г±гё y} line(x0-3,y0-round(my),x0+3,y0-round(my)); textout(x0-10,y0-round(my)-15,'1'); line(x0-3,y0+round(my),x0+3,y0+round(my)); textout(x0-15,y0+round(my),'-1'); {гїг®г¤г°гёг±гё г®г±гё г•} for i: =1 to 6 do {г¬г*гєг±гёг¬г*г«гјг*г®гґ гєг®г«гёг·гґг±гігўг® г§г*г±гґг·гґгє гў г®г¤г*гі г±гіг®г°г®г*гі} begin line(x0+round(i*pi*mx/2),y0-3,x0+round(i*pi*mx/2),y0+3); {г§г*г±гґг·гєгё г*г* г®г±гё г•} line(x0-round(i*pi*mx/2),y0-3,x0-round(i*pi*mx/2),y0+3); if i mod 2=0 then {гїг®г¤гїгёг±гё г·гґг°гґг§ 1} begin str(i div 2,s); if s='1' then s: =''; {1pi 1 г*гґ гїгёгёгґг¬} textout(x0+round(i*pi*mx/2),y0+10,s+'pi'); textout(x0-round(i*pi*mx/2),y0+10,'-'+s+'pi'); end; end; {г¶гґг*гіг°} textout(x0+5,y0+10,'0'); {гїг®г¤гїгёг±гё гєг®г*г¶г®гў г®г±гґг©} textout(windowwidth-10,y0-10,'x'); textout(x0-10,10, 'y'); dx: =0.001; {гјг°г*гґгёгє} x: =-3*pi; while x< =3*pi do begin setpixel(x0+round(x*mx),y0-round(f(x)*my),clblue); {гјг°г*гґгёгє г±гёг*гёг¬} x: =x+dx; {г*г*г°г*г№гёгўг*гґг¬ гµ} end; end.
4,5
(90 оценок)
Ответ:
2303901
05.09.2022
//PascalABC.Net 3.1.0.1200
uses System;
var
title: array[2..5]of string := ('Неудовлетворительно', 'Удовлетворительно', 'Хорошо', 'Отлично');
begin
writeln('Введите оценки');
var marks := new Dictionary<integer, integer>();
repeat
var n := ReadInteger();
if (n > 5) or (n < 2) then continue;
if marks.ContainsKey(n) then
marks[n] += 1
else marks.Add(n, 1);
until marks.Values.Sum >= 10;
for var i := 2 to 5 do
writeln(title[i], ': ', marks[i]);
end.
4,5
(1 оценок)
Это интересно:
О
Образование-и-коммуникации
13.02.2021
Как написать комментарий: руководство по созданию качественных комментариев...
К
Кулинария-и-гостеприимство
10.04.2021
Пять советов, как приготовить вкусный холодный чай...
З
Здоровье
18.07.2020
Как нормализовать нерегулярный менструальный цикл: практические советы...
К
Компьютеры-и-электроника
17.08.2022
Как сделать сайт в Word: подробное руководство...
К
Кулинария-и-гостеприимство
22.07.2021
Как сделать печенье «Отпечаток»...
К
Кулинария-и-гостеприимство
27.04.2022
Лимонно-медовая вода: не только вкусно, но и полезно...
Д
Дом-и-сад
08.12.2021
Как сделать печь для плавки металла...
М
Мир-работы
05.04.2023
Как пережить увольнение: советы профессионалов...
Д
Дом-и-сад
27.10.2021
Как найти распределительный щиток или блок предохранителей...
К
Компьютеры-и-электроника
28.03.2021
Как удалить историю веб поиска в Google: простые шаги для защиты вашей конфиденциальности...
Новые ответы от MOGZ: Информатика
ooolyyya2001
16.04.2022
Вс++ написать программу, которая определяет количество учеников в классе, чей рост превышает средний....
makslazarev201
16.04.2022
Вс++ написать функцию, которая выводит строку, состоящую из звездочек. длина строки (количество звездочек) является параметром функции. со всеми библиотеками,...
миха395
11.01.2023
(а- (в^c))^a^c решить с законов b под отрицанием и a^c под отрицанием...
vanо12
07.04.2023
Величина 102,6 относится к величинам: 1) целого типа 2) вещественного типа 3) логического типа 4) символьного типа...
Irina58
10.03.2022
как ввести следующее четверостишие а. ерикеева в одну ячейку электронной таблицы? наступила осень, пожелтел наш сад. листья на берёзе золотом горят....
ruslan189kalin
29.05.2021
Представьте числа в виде степеней основания : а) 567(10) б)94.53(10) в)110,101(2) г)11101(2)...
milanademidova1
28.01.2020
За допомлгою яких інструментів здійснюють пошук у базах даних? Для чого використовують вказівку знайти запис ? (Access)...
мопдркиопм
17.10.2022
На вход поступает целое число. Программа должна вывести True, если введенное значение кратно 5 (без остатка делится на 5), в противном случае - False. Сделать задачу...
Эльнуи
29.07.2020
Написать программы для паскаля. Напечатать столбиком : а) все целые числа от 20 до 35; б) квадраты всех целых чисел от a до b (значение b вводится с клавиатуры; b≥10);...
Яник111111111
29.06.2020
Вася и Петя играют в игру. У них есть n кучек, в каждой из которых лежит несколько камней. Игроки ходят по очереди (Вася начинает). За один ход разрешается разделить...
MOGZ ответил
:в равнобедренном треугольнике,основания равна 10см,боковая сторана...
Сочинение на тему мои планы на лето на 1 лист или 20 предложений...
Угол отражения луча от зеркала 30 градусов. чему равен его угол...
Неаносимые или не заносимые (объясните почему)...
Докажите что в круговороте воды участвуют разные оболочки земли...
Вкаких текстах часто используются антонимы?...
К12 веку относится: а) прелестной грамоты б) вертограда многоцветного...
Make negative sentences. use the verbs in brackets. 1)this car be...
Решите систему уравнений(7 класс): 5х-2у=11 4х-у=4 подробно, если...
Сумма длин двух разных сторон прямоугольника равна 7 см. найди периметр...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ