Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.01.2021, 19:57   #1
Bell000
 
Регистрация: 16.01.2021
Сообщений: 5
По умолчанию Дорогие друзья,помогите пожалуйста перевести программу с Паскаля в Лазарус?

Дорогие друзья,помогите пожалуйста перевести программу с Паскаля в Лазарус?

var
x,y,p,xn: real;
begin
write('Введите значение p: ');
readln(p);
x:=2; xn:=15;
while x<xn do
begin
writeln('При x = ',x:0:1,'y = ',sin(3*x+p/5):0:3);
x:=x+3;
end;
readln;
end.
Bell000 вне форума Ответить с цитированием
Старый 16.01.2021, 20:50   #2
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,538
По умолчанию

Цитата:
Сообщение от Bell000 Посмотреть сообщение
перевести программу с Паскаля в Лазарус?
Это типа помогите добраться из России в Москву.
type_Oleg вне форума Ответить с цитированием
Старый 17.01.2021, 10:23   #3
ichi
Форумчанин
 
Регистрация: 14.03.2012
Сообщений: 138
По умолчанию

Цитата:
Сообщение от Bell000 Посмотреть сообщение
с Паскаля в Лазарус
Код и так должен работать в Lazarus без изменения. Запускай Lazarus и проверяй.
ichi вне форума Ответить с цитированием
Старый 17.01.2021, 10:59   #4
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

Но Паскаль - консольный, Лазарь - оконный. Накидать форму с двумя Edit'ами... В Delphi есть консольный режим, за Лазавра не скажу, мало с ним общался. Не понравился.

Последний раз редактировалось digitalis; 17.01.2021 в 11:01.
digitalis вне форума Ответить с цитированием
Старый 17.01.2021, 13:09   #5
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,538
По умолчанию

Цитата:
Сообщение от digitalis Посмотреть сообщение
за Лазавра не скажу,
Есть, но там оно какое-то навороченное, не как в Дельфы.
Там можно файл-создать-простая программа.
Все нормально, код от ТС скомпилировался. Написала только, что переменная y не используется.
Изображения
Тип файла: png LazSmp.png (20.4 Кб, 19 просмотров)
type_Oleg вне форума Ответить с цитированием
Старый 17.01.2021, 13:56   #6
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

Цитата:
Сообщение от type_Oleg Посмотреть сообщение
Написала только, что переменная y не используется.
Она как бы и используется, но через опу неявно Кому бы помешало, если:

Код:
y := sin(3*x+p/5);
writeln('При x = ',x:8:3,'  y = ',y:8:3);
Да и формат вывода у автора - кривой.
---------------------------
Проверил - работает. Только вывод крякозябрами. Нужно бы как-то локализацию включить. Или писа'ть, как все нормальные люди, на English. И форматировать текст исходника отступами, а не как у деда Щукаря. И пользоваться тэгами CODE, чтоб читать противно не было.
За режим ПРОСТАЯ ПРОГРАММА - сенька_ю, не знал.

Последний раз редактировалось digitalis; 17.01.2021 в 14:49.
digitalis вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите,пожалуйста,перевести с Паскаля на Си++ tanya_tozhoeva Помощь студентам 1 24.09.2018 17:59
Помогите пожалуйста перевести из Паскаля в си!!! serjik1121 Помощь студентам 1 26.01.2015 20:22
Помогите пожалуйста! написать программу на Лазарус Chainik2 Помощь студентам 0 23.04.2014 16:44
Помогите пожалуйста перевести программу с Паскаля на С++ Taras_rom Общие вопросы C/C++ 0 18.03.2014 21:53
Помогите пожалуйста перевести программу с Паскаля на С++ Taras_rom Visual C++ 1 16.03.2014 21:39