Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Программа с использованием блакнота https://www.cyberforum.ru/ pascalabc/ thread263899.html Записать в файл последовательного доступа N действительных чисел.Вычислить произведение компонентов файла и вывести на экран.	Не вычисляется сумма Pascal ABC Задание For*13 program cikl; var n,i:integer; sum,x,l:real; begin repeat readln(n); sum:=0; l:=1,1; x:=0,1;
Pascal ABC Написать программу нахождения суммы. https://www.cyberforum.ru/ pascalabc/ thread263829.html Написать программу нахождения суммы 1, -1 / 3, +1 / 5, -1 / 7, +1 / 9 ... 10-х чисел ряда. Помогите!	Pascal ABC Вывести значения функции. Вывести значения функции если y = x3 +1 в промежутках 1 <= x <5 и х <0; = 0, при х вне промежутком. Срочно нада.Помогите пожалуйста!! https://www.cyberforum.ru/ pascalabc/ thread263824.html
Табулирование функции Pascal ABC	Pascal ABC Вычислить значение выражения https://www.cyberforum.ru/ pascalabc/ thread263752.html
Pascal ABC Построить график функции помогите. исследовать область определения и построить график функции: y=(x+3) / (x-2); Заранее спасибо. https://www.cyberforum.ru/ pascalabc/ thread263746.html	Pascal ABC двумерный массив с процедурой(помогите пожалуйстпа очень срочно) Даны два двухмерных массива одинаковых размеров. б)Создать третий массив такого же размера, каждый элемент которого равен 100, если соответсвующие элементы двух первых массивав имеют одинаковый знак, и равен нулю в противном случае.
Pascal ABC Определить порядковый номер его максимальной и минимальной цифры Дано натуральное число, в котором все цифры различны. Определить порядковый номер его максимальной и минимальной цифры, считая номера 1. От конца; 2. От начала числа. Спасибо за ответ! https://www.cyberforum.ru/ pascalabc/ thread263636.html	Pascal ABC Циклы и Одномерные массивы! Циклы: Условие задачи в электронном задачнике, задание<<"For36*">> (Меню<<Сервис>> -->команда<<посмотреть задания>>) выручайте надо сделать(( Одномерные массивы: Условие задаи в электронном задачнике, задание <<"Array4">> Выручайте срочно надо..... https://www.cyberforum.ru/ pascalabc/ thread263632.html
составить программу на паскале, содержащую минимум 4 подпрограмм Pascal ABC первая) составить программу на паскале, содержащую минимум 4 подпрограмм .дан одномерный масив, выполнить следующие действия: -заменить все его элементы, большие данного Z этим числом, подсчитать количество замен. -указать те его элементы,которые принадлежат отрезку (c,d) -вывести на печать только те числа, для которых ai>=i -вывести элементы массива в одну строку через запятую, получить для...	Pascal ABC Вывести стоимость 10 кг конфет Дано вещественое число 1кг конфет. вывести стоимость 0,1 0,2 ... 1 кг конфет. называйте темы нормальным языком Добавлено через 37 минут Дано вещественое число 1кг конфет. вывести стоимость 0,1 0,2 ... 1 кг конфет. Добавлено через 1 минуту Дано вещественое число 1кг конфет. https://www.cyberforum.ru/ pascalabc/ thread263598.html

Puporev

Почетный модератор

64305 / 47602 / 32742

Регистрация: 18.05.2008

Сообщений: 115,181

27.03.2011, 14:17

Сформировать массив по правилу - Pascal ABC - Ответ 1491219

27.03.2011, 14:17. Показов 1190. Ответов 5

Метки (Все метки)

Сообщение было отмечено Памирыч как решение

Решение

Тогда так.

Pascal

uses crt;
const n=9;
var a:array[1..n] of integer;i:integer;
begin
clrscr;
for i:=1 to 3 do
 begin
  repeat
   write('Введите целое число, не равное 0: ');
   readln(a[3*i-2]);
  until a[3*i-2]<>0;
  repeat
   a[3*i-1]:=random(100)+1;
  until a[3*i-2] mod a[3*i-1]<>0;
  a[3*i]:=a[3*i-2] mod a[3*i-1]
 end;
writeln('Массив:');
for i:=1 to 9 do
write(a[i],' ');
end.

Вернуться к обсуждению:
Сформировать массив по правилу Pascal ABC

Заказать работу у эксперта

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

27.03.2011, 14:17

Готовые ответы и решения:

Сформировать массив по правилу
Сформируйте и выведите на экран массив из девяти элементов , каждые три последовательных элемента...

Сформировать массив по правилу
Даны действительные числа от а1 до а20.Получить а1,а11,а3,а13,...,а9,а19.

Сформировать массив по правилу

Сформировать массив по правилу
Дан массив X(N).сформировать массив Y(N) элементы которого получаются по следующему правилу ...

	27.03.2011, 14:17

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

27.03.2011, 14:17

Помогаю со студенческими работами здесь

Сформировать массив по правилу
Задано количество членов разложения e = 2 + 1/2! + 1/3! + 1/4! + …, не превышающее 25. Сформировать...

Сформировать массив по правилу
Сформулируйте и выведите на экран МАССИВ ИЗ ДЕВЯТИ ЭЛЕМЕНТОВ ТРИ ПОСЛЕДОВАТЕЛЬНЫХ ЭЛЕМЕНТА КОТОРОГО...

Сформировать массив по правилу
Даны массивы а и b, состоящие из n-элементов каждый. Получить массив с, где ck=ak*bk.

Сформировать массив по правилу
Сформулируйте и выведите на экран массив из девяти элементов, каждые три последовательных элемента...

Сформировать двумерный массив по правилу
Сформировать двумерный массив по следующему правилу: 1 2 3 4 4 3 2 1 1 2 3 4 4 3 2 1

Сформировать одномерный массив по правилу
Дан двумерный массив размером 5*6, заполненный целыми числами с клавиатуры. Сформировать одномерный...

Новые блоги и статьи
Элементы алгоритмизации hw_wired 28.01.2025 Основы алгоритмизации В современном мире алгоритмы играют фундаментальную роль в развитии информационных технологий и программирования. Понимание основ алгоритмизации является ключевым элементом в. . .	Человек и информация hw_wired 28.01.2025 Введение: роль информации в познании мира В современном мире информация играет фундаментальную роль в процессе познания окружающей действительности. Она представляет собой совокупность сведений об. . .	Компьютер и информация hw_wired 28.01.2025 Эволюция вычислительных машин История развития вычислительной техники начинается задолго до появления первых электронных устройств. Человечество всегда стремилось упростить процесс вычислений и. . .	Информационные технологии hw_wired 28.01.2025 Введение в современные технологии работы с информацией В современном мире информационные технологии стали неотъемлемой частью практически всех сфер человеческой деятельности. Они существенно. . .	Информация вокруг нас hw_wired 28.01.2025 Основные понятия информации В современном мире понятие информации является фундаментальным и охватывает практически все сферы человеческой деятельности. Информация представляет собой совокупность. . .	Компьютер для начинающих hw_wired 28.01.2025 Введение в мир компьютерных технологий В современном мире информация стала одним из важнейших ресурсов человечества, определяющим развитие общества и технологий. Наша жизнь неразрывно связана с. . .
[golang] 189. Rotate Array alhaos 28.01.2025 Повороты рукоятки, целочисленный слайс нужно сдвинуть на целое положительное число. Мне очень нравится решение на GO / / https:/ / leetcode. com/ studyplan/ top-interview-150/ package topInterview . . .	КуМир: решение задач на матрицы bytestream 28.01.2025 КуМир представляет собой среду для обучения программированию, которая включает в себя мощные инструменты для работы с матрицами. Матрица в программировании - это двумерный массив, состоящий из. . .	КуМир: решение задач на строки bytestream 28.01.2025 В системе программирования КуМир работа со строковыми данными является одним из важнейших аспектов создания программ. Строки представляют собой последовательности символов, заключенные в кавычки,. . .	КуМир: решение геометрических задач bytestream 28.01.2025 Программирование геометрических задач в среде КуМир становится всё более актуальным в обучении школьников и студентов. КуМир — это разработанная в России обучающая программная среда, предназначенная. . .	КуМир, исполнитель Водолей: Задачи и решения bytestream 28.01.2025 КуМир — это образовательная среда для обучения программированию. Она предлагает пользователям разнообразные инструменты для разработки и отладки программ, что особенно ценно для студентов и. . .	КуМир, исполнитель Чертежник: Решение задач bytestream 28.01.2025 КуМир (Комплект Учебных МИРов) представляет собой образовательную среду для обучения основам программирования и алгоритмизации. Исполнитель Чертежник работает на координатной плоскости, где может. . .

Наверх