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

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

spositive 06 сентября 2022

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

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

37

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

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

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

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