|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.09.2007, 18:00 | #1 |
Пользователь
Регистрация: 29.09.2007
Сообщений: 11
|
помогите с контрольной Delphi
1. Использование текстовых файлов для ввода/вывода.
Написать программу , которая считает английский текст из файла и выводит его на экран, заменив каждую первую букву слов, начинающихся с гласной буквы, на прописную. 2. Структура TRAYN содержит следующие поля: - название пункта назначения; - номер поезда; - время отправления; Выполнить следующие действия: - вывод на экран информации о поездах, отправляющихся после введённого с клавиатуры времени; - если таких поездов нет, выдать на дисплей соответствующее сообщение. |
29.09.2007, 23:49 | #3 |
Александр
Администратор
Регистрация: 28.10.2006
Сообщений: 17,501
|
Переместил в раздел для студентов.
|
30.09.2007, 12:10 | #4 |
Дельфист
Форумчанин
Регистрация: 14.08.2007
Сообщений: 317
|
но вот первую задачу решил
var Form1: TForm1; small:array[0..5]of char=('a','e','i','o','y','u'); big:array[0..5]of char=('A','E','I','O','Y','U'); implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var s:string; i,j:integer; p:boolean; begin memo1.lines.loadfromfile(имя файла); p:=true; for i:=0 to memo1.Lines.Count-1 do s:=s+memo1.Lines[i]; for i:=1 to length(s) do begin if p then begin for j:=0 to high(small)do if s[i]=small[j] then begin s[i]:=big[j]; break; end; end; if s[i]=' ' then p:=true; if s[i]<>' ' then p:=false; end; memo1.Text:=s; end;
ICQ-465033557
WINDOWS CE THE BEST |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
сижу на контрольной помогите. | __k1ll3r__ | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 07.03.2008 15:20 |
Помогите с контрольной | karinskih | Помощь студентам | 3 | 10.12.2007 18:03 |
Помогите с контрольной | НиколаМГВРК | Помощь студентам | 4 | 02.10.2007 15:23 |