Free Pascal

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

Войти

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

Другие темы раздела
Free Pascal Реализовать метод исключения в конструкции if-else Дорогие товарищи, прошу помочь. Цель просьбы такова. Хочу реализовать метод исключения в конструкции if-else. Допустим есть две переменные x и y, чтобы они проверялись в условиях и выводили соответствующие сообщения. То есть если x < y, одно сообщение, если x > y, то другое, а если оба не соответствуют то x = y. program logik; uses crt; https://www.cyberforum.ru/ free-pascal/ thread1064930.html	Народ задачка на рекурсию Free Pascal Всех с Рождеством Христовым!У меня тут задачка.с рекурсией очень плохо,помогите пожалуйста!! Условие: Написать рекурсивную подпрограмму, которая переводит целое число из десятичной системы счисления в систему счисления с основанием p (2 <= p). С помощью данной подпрограммы перевести все числа от 1 до n в систему счисления с основанием p. Формат входных данных В первой строке входного файла...
Free Pascal Найти произведение элементов массива, расположенных между максимальным и минимальным элементами Дан одномерный массив, состоящий из N вещественных элементов. Найти произведение элементов массива, расположенных между максимальным и минимальным элементами. Помогите пожалуйста. https://www.cyberforum.ru/ free-pascal/ thread1064432.html	Free Pascal Программирование с использованием массивов и подпрограмм Дана целая прямоугольная матрица размерности NxM. Найти наименьший элемент в каждой строке и упорядочить строки по возрастанию этих элементов. (При сортировке использовать метод прямого выбора). https://www.cyberforum.ru/ free-pascal/ thread1064160.html
Где можно найти пример применения массивного цикла Free Pascal Подскажите, где можно найти пример применения массивного цикла Массивный цикл (for <переменная> in <массив> do <операторы>) Почему не работает этот код? var a: array of integer; i, x : integer;	Free Pascal Выбор варианта загрузки вагона, обеспечивающего размещение не более M ящиков с общей максимальной стоимостью груза https://www.cyberforum.ru/ free-pascal/ thread1063909.html В вагон,грузоподъемность которого известна ,необходимо погрузить ящики трех типов.Осуществить выбор варианта загрузки вагона,обеспечивающего размещение не более M ящиков с общей максимальной стоимостью груза,если стоимость и вес ящиков каждого типа известны. Добавлено через 1 час 40 минут помогите плиз Добавлено через 3 часа 38 минут помогите решить пожалуйста
Free Pascal Оцените блок-схему и укажите на ошибки https://www.cyberforum.ru/ free-pascal/ thread1063711.html Привет,всем тем кто находиться на этом форуме!)С новым годом всех!)Хочу попросить оценить мою блок схему кому не сложно и указать на ошибки которые в ней есть,вот код программы: program lab62; uses crt; var a: array of integer; i, j, n, m,smena,it: integer; min: real; begin clrscr; writeln('Введите количество строк: ');	Free Pascal Дана действительная матрица размерности (n × n) 1. Если максимальные элементы строк находятся на главной диагонали, то ко всем эле- ментам, расположенным над главной диагональю, добавить среднее арифметическое элементов стоящих под главной диагональю. В противном случае матрицу оставить без изменения. 2. Найти номер первого из столбцов, содержащих элементы из диапазона . 3. Найти среднее арифметическое элементов, расположенных ниже главной...
Free Pascal Читает в текстовом файле число, которого там нет Уважаемые, прошу помощи: Вот код var Fout,Fin:text; i:integer; begin i:=1; Assign(Fout,'police'); Assign(Fin,'police1'); Reset(Fout); https://www.cyberforum.ru/ free-pascal/ thread1063318.html	Free Pascal Составить программу, моделирующую абсолютно упругий центральный удар двух шаров с массами m1 и m2 движущихся со скоростями v1 и v2. https://www.cyberforum.ru/ free-pascal/ thread1063145.html 1. Составить программу, моделирующую абсолютно упругий центральный удар двух шаров с массами m1 и m2 движущихся со скоростями v1 и v2. e) m1 = 2m2 , v1 = 2v2 , один шар догоняет другой
Составить программу, моделирующую эксперимент по определению скорости пули с помощью баллистического маятника. Free Pascal 2. Составить программу, моделирующую эксперимент по определению скорости пули с помощью баллистического маятника.	Free Pascal задание на тему: Управление видеостраницами. Графические окна. Вывод текста 1. Создайте на экране четыре окна. В двух окнах поместите простые графические рисунки (например, ряд концентрических окружностей разного цвета) с использованием различных режимов отсечения. В два других окна поместите тексты, иллюстрирующие возможность использования шрифтов разного типа, размера и расположения. 2. Подобным образом заполните пассивную страницу. Организуйте переключение между... https://www.cyberforum.ru/ free-pascal/ thread1063110.html

volvo

Супер-модератор

32835 / 21172 / 8148

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

Сообщений: 36,431

Записей в блоге: 8

07.01.2014, 17:01

Перевести код с С++ - Free Pascal - Ответ 5604976

07.01.2014, 17:01. Показов 1003. Ответов 1

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

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

Решение

Pascal

var
  x, y : integer;
 
begin
  x := -10;
  writeln('X':6, 'Y':6);
  repeat
    y := x*sqr(x) - 2*x - 4;
    writeln(x:6, y:6);
    inc(x, 2);
  until x > 10;
  readLn;
end.

Вернуться к обсуждению:
Перевести код с С++ Free Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

07.01.2014, 17:01

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

Перевести код с C++
Помогите перевести код с C++ в Pascal, с C++ вообще не знаком, не могу разобраться в коде( ...

Перевести код с C++
У меня есть код программы на C++, помогите написать такой же на паскале пожалуйста) P.S...

Перевести код с PascalABC.NET
Помогите перевести код в Паскаль. var str1: array of string; str2: array of string :=...

Перевести код с C#
using System; using System.Collections.Generic; using System.Text; namespace...

	07.01.2014, 17:01

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

07.01.2014, 17:01

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

Перевести код на С++
Помогите с переводом на С++, пожалуйста. type TGOST_Block = array of LongWord; TGOST_Key =...

Перевести код с C++
int main() { int a; int n, i = 0; std::cout << "Vvedite n: "; std::cin >> n; ...

Перевести код с C++
нужен перевод кода на Pascal, помогите #include <iostream.h> #include <math.h> float...

Перевести код с С++
void Rhomb::TurnCent(int cx, int cy) { int r; Hide();...

Наверх