|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Cтроки (желательно не консольные приложения)
1. Дана строка, состоящая из слов, разделенных одним пробелом. Вывести строку, состоящую из этих же слов, записанных в обратном порядке. Например, "Я изучаю программирование" => "программирование изучаю Я".
2. Дан текст (массив строк) в котором каждая строка содержит до 255 цифр. Составить программу, которая вычисляет сумму цифр в каждой строке. |
#2
|
||||
|
||||
для второй программы я еще название не придумал
Код:
var LStrings: TStrings; S: String; begin LStrings:=TStringList.Create; try LStrings.Delimiter:=' '; LStrings.DelimitedText:=Edit1.Text; S:=''; while LStrings.Count>0 do begin S:=S+' '+LStrings[LStrings.Count-1]; LStrings.Delete(LStrings.Count-1); end; Edit2.Text:=Trim(S); finally LStrings.Free; end; end; Пишу программы за еду. __________________ |
#3
|
||||
|
||||
Код:
var sl: TStrings; i, j, b: integer; begin sl:= TStringList.Create; sl.Assign(Memo1.Lines); for i := 0 to sl.Count-1 do begin b:= 0; for j := 1 to Length(sl[i]) do Inc(b, StrToInt(sl[i][j])); sl[i]:= sl[i] + ' = ' + IntToStr(b); end; Memo1.Lines.Assign(sl); sl.Free; end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#4
|
|||
|
|||
C трояном первая задача
|
#5
|
||||
|
||||
Цитата:
|
#6
|
|||
|
|||
Бывает.
Варианты: 1. Вставить несколько ненужных комманд. 2. понизить уровень эвристики 3. Убрать рабочую папку из путей проверки. Я сделал 3е у себя. |
#7
|
||||
|
||||
4. Индюк.
Скопировал этот код и скомпилировал в D7, на VT только 3 вердикта: Antiy-AVL, Cyren и F-Prot. Причем два из них - по всей видимости, вендоры с общим движком. Может у меня делфа не такая, не знаю. Кастомная сборка какая-то завалялась. jmp $ ; Happy End! The Cake Is A Lie. Последний раз редактировалось Bargest, 29.12.2015 в 20:15. |
#8
|
|||
|
|||
Мож и кастомная сборка, может просто версия другая, а может уже антивирь обученный попался...
Опять же, на VT ты же не знаешь, какой уровень эвристики установлен... А индюк, вроде, уже свое отходил... навряд ли он опять всплывет... |