Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Решить квадратное уравнение https://www.cyberforum.ru/ pascalabc/ thread279881.html решить квадратное уравнение ax2 +bx+c=0	Косяк с ioresult Pascal ABC нам дали на создание прогу управляющюю базой данных, но по ходу решения возникла проблема. В АBC нету ioresult и поэтому не проверить существуетли база данных с таким названием или нет. Те вот это не работает Procedure ProvName ( var name:string; var fe:boolean); Var f1:text; begin Writeln('Vvedite imja bazi v formate name.txt'); readln (name); assign (f1, name); ...
Pascal ABC Вычислить количество элемента массива, для которых выполняется неравенство https://www.cyberforum.ru/ pascalabc/ thread279779.html задача.двумерные массивы.простой поиск.создать массив с элементами Акn = nfi+11(k)+sin(k)fi+12(n), где вычислить количество элемента массива, для которых выполняется неравенство 1<Akn<6, k,n=1,2,3,4. вывести его на экран в виде таблицы. Выполнить дополнительно задание своего вариант	Pascal ABC Поменять местами наибольший по модулю и первый компоненты файла https://www.cyberforum.ru/ pascalabc/ thread279771.html 1.Ввести файл F из 11 элементов. Определить в нём сумму элементов стоящих на позициях, чей номер больше записанного в них значения. 2. Ввести файл F . Каждый элемент, стоящий на нечетной позиции в файле заменить остатком от деления этого элемента на 7. Файл вывести до и после преобразования. 3. Ввести файл F действительных чисел и выдать его на печать. Поменять местами наибольший по модулю...
Pascal ABC как соединить две программы на паскале АБС посмотрите пожалуйста... 1) это просто мячик // Анимация без мерцания. Использование LockDrawing uses GraphABC; var i: integer; begin LockDrawing; for i:=1 to 500 do	Pascal ABC Разобрать несколько строк кода https://www.cyberforum.ru/ pascalabc/ thread279761.html Доброго времени суток,у меня возникла в вам пара вопросов. У меня есть готовая программа по паскалю,но меня интересуют некоторые названия,если не сложно подскажите: : uses Crt; const eps = 0.00001; type elptr = ^el; el = record
Pascal ABC Массив для жд билетов Помогите составить до конца программу. Вот задание: В поезде 18 вагонов, в каждом из которых 36 мест. Информация о проданных билетах хранится в двухмерном массиве, номера строк которых соответствуют номерам вагонов, а номера столбцов – номерам мест. Если билет на то или иное место продан, то соответствующий элемент массива имеет значение 1, в противном случае – 0. Определить номера вагонов, в... https://www.cyberforum.ru/ pascalabc/ thread279738.html	Pascal ABC Дана фраза. Определить, сколько в ней предложений дана фраза. определить сколько в ней предложений.
Pascal ABC Найти произведение только тех чисел, которые больше заданного числа https://www.cyberforum.ru/ pascalabc/ thread279719.html дана последовательность целых положительных чисел. найти произведение только тех чисел, которые больше заданного числа М. если таких нет, то выдать сообщение об этом.	Pascal ABC Подсчитать число счастливых билетов с различными номерами https://www.cyberforum.ru/ pascalabc/ thread279715.html автобусный билет считается счастливым, если в его шестизначном номере сумма первых трех цифр равна сумме трёх последних. подсчитать число счастливых билетов с различными номерами( от 000001 до 999999)
Pascal ABC Программка на строки (спасайте,кто может!) Здравствуйте! Помогите, пожалуйста, с программкой на строки. Задача: Дана строка, состоящая из нескольких слов. Найти номер слова 'then' за которым следует 'begin'. Слова могут разделяться одним или несколькими пробелами.	Pascal ABC Найти произведение элементов побочной диагонали матрицы задана целочисленная квадратная матрица размера 6х6. заполнить её случайными числами и найти произведение элементов побочной диагонали данной матрицы. https://www.cyberforum.ru/ pascalabc/ thread279710.html

MAZUR777

610 / 135 / 132

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

Сообщений: 554

20.04.2011, 09:50

Вывести квадраты и кубы 10 чисел следущей последовательности - Pascal ABC - Ответ 1569742

20.04.2011, 09:50. Показов 1554. Ответов 1

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

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

Решение

Pascal

const
   N = 10;
var
   i: integer;
   m: integer;
begin
   m:=1;
   for i:=1 to N do begin
      writeln(m:3, '=> ^2=', m*m, ', ^3=', m*m*m);
      m:=m+i;
   end;
   writeln;
end.

Вернуться к обсуждению:
Вывести квадраты и кубы 10 чисел следущей последовательности Pascal ABC

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

20.04.2011, 09:50

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

Вывести квадраты и кубы 10 чисел следующей последовательности
Здравствуйте, помогите пожалуйста) Вывести квадраты и кубы 10 чисел следующей...

Вывести квадраты и кубы дести чисел следующей последовательности
Составьте,пожалуйста ,задачу с циклом. Заранее спасибо! Вывести квадраты и кубы дести чисел...

Вывести квадраты и кубы чисел от a до b
Ввести a и b с клавиатуры и вывести квадраты и кубы чисел от a до b(нужно использовать цикл)

Вывести квадраты и кубы 10 чисел следущей последовательности
вывести квадраты и кубы 10 чисел следущей последовательности: 1, 2, 4, 7, 11, 16 …

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

20.04.2011, 09:50

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

Вывести в виде таблицы числа от 50 до 70, их квадраты и кубы с помощью команды while
Вывести в виде таблицы числа от 50 до 70, их квадраты и кубы с помощью команды while.

Вычислить квадраты и кубы от 10 до 20
вычислить квадраты и кубы от 10 до 20.Вывести на экран в три вертикальные столбца

Вывести на экран кубы чисел от А до В
5. Вывести на экран кубы чисел от А до В.

Цикл. Ввести с клавиатуры 5 чисел и вывести их кубы
Помогите решить пожалуйста! 3.Ввести с клавиатуры 5 чисел и вывести их кубы(цикл) 4.Среди 4 чисел...

Наверх