М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
maksukras
maksukras
04.06.2023 10:12 •  Информатика

написать программы в Паскале. Задание 1

Как правильно выполнять задания при изучении раздела информатики “Алгоритмизация”.

Написать код программы на Паскале и составить блок схему для решения задачи.

Дана треугольная пирамида. Высота пирамиды равна 15 см. Все боковые грани с плоскостью основания образуют равные двугранные углы ϕ (величину угла задать самостоятельно путем ввода с клавиатуры). Вычисли высоты боковых граней пирамиды.

На проверку нужно прислать скриншот с кодом программы на Паскале и результаты работы. Оформить блок схему на бланке задания или в текстовом документе.

Задание 2

Написать программу на Паскале, в которой переменной Y присваивается значение наибольшей из четырех величин A, B, C и D. Входные данные задать с оператора ввода с клавиатуры.

На проверку нужно прислать скриншот с кодом программы на Паскале и результаты работы.

Задание 3

Написать программу на Паскале для решения задачи.

Найти сумму n элементов следующего ряда чисел:

7, 14, 21, 28, ...

Количество элементов (n) ввести с клавиатуры.

На проверку нужно прислать скриншот с кодом программы на Паскале и результаты работы.

Задание 4

Написать программу на Паскале для решения задачи.

Вычислить произведение модулей элементов одномерного массива из 10 чисел, расположенных после первого отрицательного элемента. Входные данные задать самостоятельно. Предусмотреть наличие положительных и отрицательных значений элементов массива.

На проверку нужно прислать скриншот с кодом программы на Паскале и результаты работы.

👇
Открыть все ответы
Ответ:
dimatuz2018
dimatuz2018
04.06.2023

я бы хотел съездить в город бийск, потому что там красиво, особенно в алтайских горах. горы почти достают до неба. внизу они зеленые от растущего вокруг леса. выше — светлые, а верхушки — совсем бело-голубые. я бы хотел побывать на священном ручье, который несет чистую ледяную воду с гор в реку катунь. недалеко от ручья есть дерево желаний. каждый может подойти к нему, загадать желание и привязать к его ветвям ленточку. и красуется это дерево, как разноцветная ёлка. еще я бы хотел побывать на том месте, где сливаются реки бия и катунь, образуя реку обь. и с приятными воспоминаниями и впечатлениями вернуться домой.

 

ich möchtein die stadtgehen, weil esbijskist sehr schön,vor allem in deraltai-gebirge.diebergehat fastbis zumhimmel.an der unterseitesind siegrünauswachsen rund umden wald.above -licht, und dietop -nur dieblau und weiß.ich möchteden heiligenbach, derein reinesgletscherwasseraus den bergendes flusseskatunist, zu besuchen.in der nähe desbachesgibt es einen baumwünsche.jeder kannkommenund sich etwas wünschenund binden sie esan die zweigedes bandes.undschmückten denbaum alsbunten baum.ich möchte auchan die stelle, wo die flüssekatunundbiya,bildenden flussobbesuchen.undmit angenehmenerinnerungen und erfahrungenwieder nach hause.

4,4(68 оценок)
Ответ:
prokop228
prokop228
04.06.2023

var

  a: array[1..1000] of real;

  i, k, n, z: integer;

begin

  writeln('введите число n: ');

  readln(n);

  writeln('введите число z: ');

  readln(z);

  writeln('введите ',n,' действительных чисел (каждое с новой строки): ');

  for i : = 1 to n do

  begin

    readln(a[i]);

    if a[i] > z then

    begin

      a[i] : = z;

      k : = k + 1;

    end;

  end;

  writeln('количество замен: ', k);

end.

4,5(15 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ