Вход
Регистрация
О проекте Как заработать?
35

Вопрос по Delphi 7 я делаю тестирующую программу

spositive 18 апреля 2023

Вопрос по Delphi 7 я делаю тестирующую программу. И хочу, чтобы по ее завершении выводилось сообщение с помощьюshowmessage том, сколько баллов я набрал. Делаю так:

категория: информатика
ответить
в избранное

37

Странно, однако работает: procedure TForm1.Button1Click (Sender: TObject); var b,v: integer; beginb: =10; v: =20; showMessage ('Вы набрали '+IntToStr (b)+' из '+IntToStr (v); end;

пользователи выбрали этот ответ лучшим
комментировать
в избранное ссылка отблагодарить

Знаете другой ответ?
Другие вопросы по информатике
lostsenss
18 апреля 2023
1
ответ
ПОМОГИТЕ. Ребят, очень нужно! Определите значение переменной c после выполнения следующего фрагмента программы Бейсик a=8 a=-5+(a+2) b=(-a-a)*ac=(b-a)*(2-a) (если что есть еще через программу паскаль и алгоритмический, но они не особо отличаются) ВАРИАНТЫ ОТВЕТОВ 10,12,15,-5
s1zeist
18 апреля 2023
1
ответ
Привет всем! Помогите пожалуйста, времени мало… дано целое число m>1. Получить наибольшее целое k, при котором 4^k (четыре в степени k)
kansean
18 апреля 2023
1
ответ
1) дан двумерный массив целых чисел размерностью 5 х 7. Найти и вывести на экран среднее арифметическое элементов этого массива
portamix
18 апреля 2023
1
ответ
Delphi 7. Возник вопрос. Я пишу программу, где возникает сразу несколько MessageDlg. Ну что-то типа вируса, но с благородными целями (не подумайтеплохо). Разумеется надо как-то выйти/закрыть программу. Я например делал onKeyDown на форме (if key=40 then close). Так же делал вместо close использовал halt. Не получалось т.к. messageDlg как будто берет управление на себя.
endilog
18 апреля 2023
1
ответ
В таблице Dat хранятся данные о количестве сделанных учениками заданий (Dat[1] – заданий сделал первыйученикDat[2] – второй ученик и т.д.). Определите, что будет напечатано врезультате работы следующей программы. Алгоритмическийязыкалгначцелтаб Dat[1:11]цел k, mDat[1]: =20; Dat[2]: =25Dat[3]: =19; Dat[4]: =25Dat[5]: =26; Dat[6]: =22Dat[7]: =24; Dat[8]: =28Dat[9]: =26; Dat[10]: =21Dat[11]: =27m: =30 нц для k от 1 до 11 если Dat[k] < m тоm: =Dat[k]всекцвывод mкон
virall
18 апреля 2023
1
ответ
Объясните как делать В таблице Dat хранятся данные о количестве сделанных учениками заданий (Dat[1] – заданий сделал первый ученик Dat[2] –второй ученик и т.д.). Определите, что будет напечатано в результате работы следующей программы.
larrytroy91
18 апреля 2023
1
ответ
Скорость передачи данных через ADSL-соединение равна 256000 бит/c. Передача файла через данное соединение заняла 16 секунд. Определитеразмер файла в Кбайт.
svetlana1981
18 апреля 2023
1
ответ
Когда турист проехал 0,35 всего пути ему осталось проехать к середине 7,5 км. Найти длину всегопути
ikiru
18 апреля 2023
1
ответ
Согласно рекомендации классного руководителя, Дамир должен был выполнить такой объем работы, что на сон времени вообще не остается. Поэтому работадолжна выполняться не вся. Если первая работа занимает 1 объем времени, вторая -2 объема, третья 4, четвертая 8 и т.д., то какие работы надо выбрать, что бы выполнить работу объемом N?
Задайте свой вопрос

ПОПУЛЯРНОЕ
lostsenss, 18 апреля 2023
ПОМОГИТЕ. Ребят, очень нужно!
s1zeist, 18 апреля 2023
Привет всем! Помогите пожалуйста, времени мало…
kansean, 18 апреля 2023
1) дан двумерный массив целых чисел размерностью…
portamix, 18 апреля 2023
Delphi 7. Возник вопрос. Я пишу программу, где возникает сразу несколько MessageDlg
endilog, 18 апреля 2023
В таблице Dat хранятся данные о количестве сделанных учениками заданий
virall, 18 апреля 2023
Объясните как делать В таблице Dat хранятся данные о количестве сделанных учениками заданий
larrytroy91, 18 апреля 2023
Скорость передачи данных через ADSL-соединение равна 256000 бит/c
svetlana1981, 18 апреля 2023
Когда турист проехал 0,35 всего пути ему осталось проехать к середине 7,5 км. Найти длину всегопути?
ikiru, 18 апреля 2023
Согласно рекомендации классного руководителя, Дамир должен был выполнить такой объем работы…
27400
Алгебра
14821
Английский язык
14216
Биология
7369
Другой
720
Экономика
18828
Физика
8304
География
15850
Геометрия
5255
Информатика
11818
История
23332
Химия
15992
Литература
73118
Математика
8152
Обществознание
465
Правоведение
46271
Русский язык
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...