Вопросы новичка. Я раньеш писал на VB, сейчас перехожу на паскаль. -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [216.73.216.37]

Компиляторы Паскаля , FAQ Паскаля (содержание)

В этом разделе можно создавать темы, которые относятся к поколению 32-битных компиляторов.
Здесь решаются вопросы портирования кода из старого доброго Турбо Паскаля в FPC, TMT, VP, GPC компиляторы, а также особенностей программирования на них для Windows/Linux и других ОС.
Указывайте тип компилятора, его версию, а также платформу (Windows/Linux/..) компиляции, другими словами, Target.

Модераторы: volvo877

Новое голосование

Вопросы новичка. Я раньеш писал на VB, сейчас перехожу на паскаль. , Возникает много вопроссов.., не предлагайте мне читать учебники по так

simsergey

Сообщ. #1 , 29.08.07, 18:02

Unregistered

Вопросы новичка. Я раньеш писал на VB, сейчас перехожу на паскаль.
Возникает много вопросов.., не предлагайте мне читать учебники по таким вопросам, учебники у меня некоторые есть и сначала я гляну там, прежде чем задавать их.

Встретился с простейшими проблемами, в VB не приходилось с ними сталкиваться. :wall:

Начну с первого, дальше буду продолжать.

Задача такова:
нужно одно число разделить на другое

Пытался я это в лазарусе сделать

unit deng;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls, Buttons, Menus, ActnList;

. . . . . . . . .

var

MForm: TMForm;

inf: Text;

outf: Text;

u, v, w : string;//ansistring;

p, m: string;

code1, code2: integer;

uu, vv, ww: integer;

pp, mm : integer;

vr: integer;

implementation

{ TMForm }

. . . . . . . . .

procedure TMForm.Button3Click(Sender: TObject);

begin

u := Edit1.text;

w := Edit3.text;

Val(u, uu, code1 );

Val(w, ww, code2 );

vv := uu / ww;

Str(vv, v);

Edit2.text := v;

end;

. . . . . . . . .

initialization

{$I deng.lrs}

end.

Происходит ошибка.
Мотивипует он это так:

deng.pas(111,14) Hint: use DIV instead to get an integer result
deng.pas(111,18) Hint: Type size mismatch, possible loss of data / range check error
deng.pas(111,14) Error: Incompatible types: got "Extended" expected "LongInt"
deng.pas(189) Fatal: There were 1 errors compiling module, stopping

DIV - не подходит, т. к. необходимо расчитать с сотыми (до сотых)

Добавлено 29.08.07, 18:03

Цитата simsergey @ 29.08.07, 18:02

Мотивипует

Я имел ввиду мативирует

e-moe	Сообщ. #2 , 29.08.07, 18:15
Profi Профиль · PM Поощрения: 18 Dgm Рейтинг (т): 71	В результате деления получается дробное число. Используй переменную приемник вещественного типа: real, double, extended... и не забывай про деление на 0. Сообщение отредактировано: e-moe - 29.08.07, 18:16

simsergey	Сообщ. #3 , 29.08.07, 19:36
Unregistered	Програмка простенькая (пока ее пишу для себя) Сказать пользователю программы вот это нельзя Баланс: 200 рублей Кол-во дней: 30 дней В день: 6.666666666666667E+000 рублей Надо хотяб округлить до копеек... Например: 6.67 рублей

ZenIA	Сообщ. #4 , 30.08.07, 04:27
Senior Member Профиль · PM Рейтинг (т): 12	Говорили же — Паскаль сначала изучите … Str(X:Width:Decimals; var S:String)

simsergey	Сообщ. #5 , 30.08.07, 09:00
Unregistered	Цитата ZenIA @ 30.08.07, 04:27 Str(X:Width:Decimals; var S:String) Приведи пример пожалуйста...

e-moe	Сообщ. #6 , 30.08.07, 10:51
Profi Профиль · PM Поощрения: 18 Dgm Рейтинг (т): 71	Цитата simsergey @ 29.08.07, 18:02 не предлагайте мне читать учебники по таким вопросам, учебники у меня некоторые есть и сначала я гляну там, прежде чем задавать их. Добавлено 30.08.07, 10:51 намек ясен?

simsergey

Сообщ. #7 , 30.08.07, 12:30

Unregistered

Значит, так...

Цитата e-moe @ 30.08.07, 10:51

намек ясен?

Ясен...

Не нашел я этого в учебниках.

Цитата ZenIA @ 30.08.07, 04:27

Str(X:Width:Decimals; var S:String)

Я догадался, о чем речь...
В моем случаи это наверно выглядит так

u := Edit1.text;

w := Edit3.text;

Val(u, uu, code1 );

Val(w, ww, code2 );

vv := uu / ww;

Str(vv:1:2, v);

Edit2.text := v;

Переменные vv, uu, ww - double.
Да, так все работает нормально...

Сообщение отредактировано: simsergey - 30.08.07, 12:31

volvo877	Сообщ. #8 , 30.08.07, 12:52
Moderator Профиль · PM Поощрения: 7 Dgm Рейтинг (т): 878	Цитата simsergey @ 30.08.07, 12:30 Не нашел я этого в учебниках. Значит, читай другие учебники + Руководство по языку

simsergey

Сообщ. #9 , 30.08.07, 13:23

Unregistered

Цитата volvo877 @ 30.08.07, 12:52

Значит, читай другие учебники + Руководство по языку

Спасибо, гляну

А как выполнить действие при выходе из проги?

Добавлено 30.08.07, 13:28

Цитата volvo877 @ 30.08.07, 12:52

Чтобы получить ответ, нужно задать правильный вопрос. Но чтобы правильно задать вопрос, нужно знать большую часть ответа...

Но если знаешь ответ, зачем задавать вопросс?

ZenIA

Сообщ. #10 , 30.08.07, 13:38

Senior Member

Профиль · PM

Рейтинг (т): 12

???
Аварийно процедурой Halt, а корректно путем завершения главной процедуры (код между устанвками begin и end. — она в тексте стоит последняя) или выхода из нее командой Exit.

Перед этим при необходимости освободить динамическую память, контексты дисплея, уничтожить объекты Виндовс, прервать сеанс связи и т.д.

u := Edit1.text;
w := Edit3.text;
Val(u, uu, code1 );
Val(w, ww, code2 );
vv := uu / ww;
Str(vv:1:2, v);
Edit2.text := v;
А для рубликов циферок не маловато ли???

Ps. А хелпов у Вас что нету?

Сообщение отредактировано: ZenIA - 30.08.07, 13:51

simsergey

Сообщ. #11 , 30.08.07, 13:56

Unregistered

Цитата ZenIA @ 30.08.07, 13:38

А для рубликов циферок не маловато ли???

На самом деле я про гривни...

Цитата ZenIA @ 30.08.07, 13:38

у Вас

Пожалуйста, давайте перейдем на ТЫ, а то мне не по себе как-то...

Добавлено 30.08.07, 14:20

Цитата ZenIA @ 30.08.07, 13:38

Аварийно процедурой Halt, а корректно путем завершения главной процедуры (код между устанвками begin и end. — она в тексте стоит последняя) или выхода из нее командой Exit.

При нажатии на красный крестик (справо вверху) необходим выполнить пару действи, перед закрытием программы

volvo877	Сообщ. #12 , 30.08.07, 14:33
Moderator Профиль · PM Поощрения: 7 Dgm Рейтинг (т): 878	Лазарусом не пользуюсь, но по аналогии с Дельфи должно быть нечто вроде OnCloseQuery формы?

ZenIA

Сообщ. #13 , 31.08.07, 10:45

Senior Member

Профиль · PM

Рейтинг (т): 12

Или, на пример, если не поддерживаются события, перехватив сообщение wm_close главного окна

type

TForm1 = class(TForm)

procedure wmClose(var I);message wm_close;{Обработчик сообщения wm_close}

end;

procedure TForm1.wmClose(var I);

begin

{Щас чего-то натворю !!!!!}

MessageBox(Handle,'Программа закрывается!','До свидания',0);

Close;

end;

end.

Завершение программы зависит от объектной и операционной систем…
Ну поскольку, похоже, работаете с объектной системой Дельфи под Винду (говорил же, берите сразу Дельфу) — значит надо разрывать главный цикл программы ОДНИМ ИЗ ПРИВЕДЕННЫХ СПОСОБОВ:
1. Закрыть приложение Application.Terminate;
2. Разрушить главное окно DestroyWindow(Handle) или Close
3. Послать всем окнам сообщение wm_close путем вызова PostQuitMessage(0)

или, что менее принято, закрыв процесс функциями ExitProcess или TerminateProcess.

Цитата

Пожалуйста, давайте перейдем на ТЫ, а то мне не по себе как-то...

Обращайтесь ко мне как хотите, а у меня вежливая форма обращения — это профессиональная привычка.

Сообщение отредактировано: ZenIA - 01.09.07, 04:22

simsergey	Сообщ. #14 , 31.08.07, 15:23
Unregistered	Ладно, будем подумать... Добавлено 31.08.07, 15:54 Цитата ZenIA @ 31.08.07, 10:45 MessageBox(Handle,'Программа закрывается!','До свидания',0); А как MessageBox будет в лазарусе...

simsergey	Сообщ. #15 , 31.08.07, 16:56
Unregistered	Наверное, пока вопрос закрыт. Буду искать другой компилятор и учить другой язык. Спасибо за ВАШИ ответы... Добавлено 31.08.07, 16:58 Цитата ZenIA @ 31.08.07, 10:45 говорил же, берите сразу Дельфу Надо будет поискать!