ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
21.05.2009, 18:40
|
|
Участник форума
Регистрация: 11.05.2008
Сообщений: 202
Провел на форуме:
420713
Репутация:
104
|
|
Код:
program case_ ;
uses crt;
type Coms=(hi,go);
var a:Coms;
b:byte;
BEGIN
clrscr;
readln(); { Как ввести строку на проверку }
{
readln(b);
case b of
1: writeln('Welcome');
2: writeln('Look out');
3: writeln('he-he');
4: writeln('Bye');
else
writeln('Not here');
end;
}
case a of
hi: writeln('Welcome');
go: writeln('Look out');
else
writeln('Error');
end;
readln;
END.
Числом вводить все понятно
как сделать чтоб оператор case выдавал варианты из введеного слово ? |
|
|
21.05.2009, 19:40
|
|
Познающий
Регистрация: 12.05.2009
Сообщений: 45
Провел на форуме:
255342
Репутация:
28
|
|
Сообщение от DTW
как сделать чтоб оператор case выдавал варианты из введеного слово ?
Case со словами не работает, if-ками решай )
можно поизвращаццо с array [0..N] of string, в цикле for искать значение = введенному и передавать ИД case-у , но это реально изврат )
|
|
|
|
21.05.2009, 21:29
|
|
Постоянный
Регистрация: 31.01.2008
Сообщений: 643
Провел на форуме:
6128108
Репутация:
445
|
|
Если в цикле прописать "exit;" (без ковычек) то цикл будет начинаться заного после этой команды?
|
|
|
|
21.05.2009, 22:22
|
|
Постоянный
Регистрация: 29.04.2007
Сообщений: 496
Провел на форуме:
2715445
Репутация:
588
|
|
diznt
нет, можно написать continue и тогда цикл пойдёт дальше.
|
|
|
|
22.05.2009, 12:45
|
|
Познающий
Регистрация: 08.12.2008
Сообщений: 58
Провел на форуме:
153361
Репутация:
10
|
|
народ помогите решить 3 задачи на паскале, писал в соседнем топике но там никто не отвечает уже 3 дня, готов даже заплатить (просто срочно нужно до завтра), вот задачи:
1. Дан текстовый файл с расширением inp, в котором каждая строка содержит последовательность действительных чисел. Выяснить, будут ли последовательности возрастающие. Результат анализа (Да или Нет) записать в выходной файл с расширением out (построчно).
2. В данной действительной квадратной матрице порядка n отсортировать строку, в которой расположен элемент с наименьшим значением. Предполагается, что такой элемент единственен. Во входном файле с расширением mas, в первой строке дан размер матрицы n, а в следующих n строках и n столбцах записаны элементы матрицы. Результат выполнения программы вывести на экран.
3. Создать типизированный файл Task5.txt с возможностью добавления, содержащий сведения о веществах: название вещества (текст(10), его удельный вес (действительное) и проводимость (проводник, полупроводник, изолятор) (текст[13]). Необходимо создать отчет (использовать подпрограммы):
a) выписать удельные веса и названия всех полупроводников и вывести на экран с заголовком "Полупроводники";
b) выбрать данные о проводниках с удельным весом не более 10 и вывести на экран после информации о полупроводниках, вставив заголовок "Проводники";
c) вывести все содержимое типизированного файла в текстовый файл Task5.sol.
Пример входного файла Task5.txt:
Фарфор 2.3 изолятор
Железо 7.9 проводник
Золото 19.3 проводник
Кремний 2.3 полупроводник
Железо 7.9 проводник
Стекло 2.5 изолятор
|
|
|
|
22.05.2009, 14:27
|
|
Участник форума
Регистрация: 01.02.2005
Сообщений: 233
Провел на форуме:
748321
Репутация:
112
|
|
подскажите...
допустим есть файл (c:\temp\12312.tmp)
который занят моей программой...
и как нить можно узнать если какой либо другой процес попытается его
открыть, изменить, удалить ???
|
|
|
|
22.05.2009, 16:46
|
|
Познающий
Регистрация: 12.05.2009
Сообщений: 45
Провел на форуме:
255342
Репутация:
28
|
|
Сообщение от AHTOLLlKA
подскажите...
допустим есть файл (c:\temp\12312.tmp)
который занят моей программой...
и как нить можно узнать если какой либо другой процес попытается его
открыть, изменить, удалить ???
Было..
http://forum.antichat.ru/showthread.php?p=1238884-%F4%E0%E9%EB+%E7%E0%ED%FF%F2#post1238884
|
|
|
|
24.05.2009, 19:55
|
|
Участник форума
Регистрация: 01.02.2005
Сообщений: 233
Провел на форуме:
748321
Репутация:
112
|
|
Сообщение от МongBa†
Было..
http://forum.antichat.ru/showthread.php?p=1238884-%F4%E0%E9%EB+%E7%E0%ED%FF%F2#post1238884
читай вопрос внимательней, ты дал совершенно не то..
допустим есть файл (c:\temp\12312.tmp)
который занят моей программой...
и как нить можно узнать если какой либо другой процес попытается его открыть, изменить, удалить ???
|
|
|
|
22.05.2009, 21:32
|
|
Участник форума
Регистрация: 06.03.2007
Сообщений: 283
Провел на форуме:
1547094
Репутация:
120
|
|
Delphi
Подскажите что прописать в "procedure TForm1.FormCreate" что бы программа копировала саму себя(именно сам EXE файл), ну допустим в диск C:\ ???
|
|
|
|
22.05.2009, 22:50
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Сообщение от xaker-boss
Подскажите что прописать в "procedure TForm1.FormCreate" что бы программа копировала саму себя(именно сам EXE файл), ну допустим в диск C:\ ???
CopyFileTo(Application.ExeName, 'C:\virus.exe');
Но перед этим в uses впиши: IdGlobal
Последний раз редактировалось Nightmarе; 22.05.2009 в 22:54..
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид