Для одномерного массива, размерность которого вводится с клавиатуры, вычислить значение В=(X+Z)/(Y+2)

@gorny · Регистрация: 01.12.2009

Author24 — интернет-сервис помощи студентам

Здравствуйте. Нужна помощь специалистов в программировании на паскале ABC. Сроки меня поджимают, а все задания выполнить не успел. Помогите чем сможете.
1) Массивы. Для одномерного массива, размерность которого вводится с клавиатуры, вычислить значение В=(X+Z)/(Y+2) X - количество элементов, лежащих в интервале (-3 ; 4);
Y - сумма элементов массива с четными номерами;
Z - номер первого нулевого элемента массива

Вычислить и запомнить в массиве произведение элементов каждого столбца матрицы.

2) Записи Даны сведения об игрушках: название игрушки, стоимость и возрастные границы (например, от 4 до 6 лет) Выдать на экран список игрушек для детей старше 3 лет

3)файлы В файле содержатся сведения о студентах: фамилия, имя, пол. Определить самое распространенное женское имя.

4)Описать предложенную функцию. Вычислить для трех значенийю Площадь боковой поверхности конуса.

Описать процедуру рисования и нарисовать 4 медвежат.

5)Анимация Движущийся медвежонок, выполнить с помощью задержки

Помогите, кто чем сможет. Заранее спасибо.

@Snoopy · 01.12.2009, 20:44

1. Решение на Turbo Pascal, ну думаю под ABC переделать не сложно

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
uses crt;
const n=10;
var a:array[1..n] of integer;
    i,x,z,y:integer;
    b:real;
 begin
  ClrScr;
  Writeln('Введите массив...');
   for i:=1 to n do
    begin
     Write('a[',i,']->');
     Readln(a[i]);
    end;
  for i:=1 to n do
   if (a[i]>-3) and (a[i]<4) then
   x:=x+1;
  for i:=1 to n do
   if i mod 2=0 then
    y:=y+a[i];
  for i:=1 to n do
   if a[i]=0 then
    z:=i;
  for i:=1 to n do
   b:=(x+z)/(y+2);
  Writeln('Ответ ',b:2:2);
 Readln;
 end.

@gorny · 01.12.2009, 21:53 **[ТС]**

Спасибо, по остальным заданиям поможете?

Новые блоги и статьи Все статьи Все блоги /
Неблокируемый стек в C++26: реализуем простой сборщик мусора stackOverflow 02.03.2025 Многопоточные приложения требуют надежных и производительных структур данных, способных эффективно работать в условиях конкурентного доступа. Неблокируемые структуры данных представляют собой особый. . .	Шаблон REQ/REP в ZeroMQ: сверхбыстрый обмен сообщениями в C++ и Python stackOverflow 02.03.2025 Построение высоконагруженных распределенных систем требует надежного и производительного механизма обмена сообщениями. ZeroMQ выделяется среди прочих решений своей невероятной скоростью работы и. . .	Нестандартные приемы работы с итераторами в C++ stackOverflow 02.03.2025 Итераторы - один из краеугольных камней C++, предоставляющий универсальный механизм обхода и манипуляции данными в контейнерах. Появившись как замена небезопасным указателям, они эволюционировали от. . .	Лексический анализ и регулярные выражения в C++26 stackOverflow 02.03.2025 Лексический анализ - ядро любого компилятора и инструмента обработки текста. Каждый программист сталкивается с задачами парсинга строк, обработки файлов конфигурации или анализа пользовательского. . .	Подробно о std::mdspan в C++23 stackOverflow 02.03.2025 Работа с многомерными массивами данных традиционно была одной из сложных задач в C++. Программистам приходилось создавать собственные абстракции или использовать сторонние библиотеки для эффективной. . .
Колмогоровская сложность в C++: Путь к совершенному коду stackOverflow 02.03.2025 Абстрактная математическая теория Колмогорова стала мощным средством оценки и улучшения программного кода. Сложность алгоритма - не только в его вычислительной эффективности, но и в том, насколько. . .	Изменения в C# 14 stackOverflow 02.03.2025 Одно из самых значимых изменений в C# 14 - поддержка коллекционных выражений, которые позволяют создавать и инициализировать коллекции с помощью нового лаконичного синтаксиса. Это нововведение. . .	Разработка кроссплатформенного мобильного приложения для iOS/Android на C++ bytestream 02.03.2025 C++ как язык программирования высокого уровня с прямым доступом к аппаратным ресурсам позволяет создавать приложения, работающие одинаково быстро как на iOS, так и на Android устройствах. Ни для кого. . .	Аутентификация/авторизация на Golang bytestream 02.03.2025 Go предлагает множество возможностей для создания надежных систем аутентификации. Встроенные криптографические пакеты, высокая производительность и простота параллельной обработки запросов делают его. . .	Нововведения TypeScript 5.8 bytestream 02.03.2025 TypeScript 5. 8 приносит много возможностей и оптимизаций, которые существенно расширяют границы типобезопасного программирования на JavaScript. Эта версия включает ряд значительных улучшений в работе. . .

@gorny 0 / 0 / 0 Регистрация: 01.12.2009 Сообщений: 10
		1
	Для одномерного массива, размерность которого вводится с клавиатуры, вычислить значение В=(X+Z)/(Y+2) 01.12.2009, 20:09. Показов 1288. Ответов 2 Метки нет (Все метки) Здравствуйте. Нужна помощь специалистов в программировании на паскале ABC. Сроки меня поджимают, а все задания выполнить не успел. Помогите чем сможете. 1) Массивы. Для одномерного массива, размерность которого вводится с клавиатуры, вычислить значение В=(X+Z)/(Y+2) X - количество элементов, лежащих в интервале (-3 ; 4); Y - сумма элементов массива с четными номерами; Z - номер первого нулевого элемента массива Вычислить и запомнить в массиве произведение элементов каждого столбца матрицы. 2) Записи Даны сведения об игрушках: название игрушки, стоимость и возрастные границы (например, от 4 до 6 лет) Выдать на экран список игрушек для детей старше 3 лет 3)файлы В файле содержатся сведения о студентах: фамилия, имя, пол. Определить самое распространенное женское имя. 4)Описать предложенную функцию. Вычислить для трех значенийю Площадь боковой поверхности конуса. Описать процедуру рисования и нарисовать 4 медвежат. 5)Анимация Движущийся медвежонок, выполнить с помощью задержки Помогите, кто чем сможет. Заранее спасибо. 0

@gorny 0 / 0 / 0 Регистрация: 01.12.2009 Сообщений: 10
	01.12.2009, 21:53 [ТС]	3
	Спасибо, по остальным заданиям поможете? 0