|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.04.2008, 22:45 | #1 |
Регистрация: 24.04.2008
Сообщений: 3
|
количество фамилий в списке
Помогите, пожалуйста, составить программу.
Определить сколько фамилий в списке имеют окончание - ов. |
25.04.2008, 10:00 | #2 |
Форумчанин
Регистрация: 04.04.2007
Сообщений: 131
|
Объясни конкретней, что за список, от куда. Выложи то что у тебя уже есть.
|
25.04.2008, 11:23 | #3 |
Пользователь
Регистрация: 04.02.2008
Сообщений: 35
|
Хоть кому-то я могу помоч!!!
Переписывай! Program G; uses crt; var Fam:array[1..50]of string; F:text; i,p,kol:integer; Put:string; begin clrscr; Writeln('Vvedite puti k faylu'); readln(Put); Assign(F,Put); reset(F); i:=1; While Not EOF(F) do begin readln(F,Fam[i]); p:=length(Fam[i]); if copy(Fam[i],p-1,2)='ov' then kol:=kol+1; i:=i+1; end; Writeln(kol); readkey; end. Можешь немного подредактировать! |
27.04.2008, 19:05 | #4 |
Регистрация: 24.04.2008
Сообщений: 3
|
Большое спасибо.
Что значит Error 14: invalid filename.? Где ошибка? Последний раз редактировалось Гуля; 27.04.2008 в 22:15. |
27.04.2008, 23:18 | #5 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Это значит, что неправильное имя файлаю Покажите, что Вы написали в этом фрагменте:
Writeln('Vvedite puti k faylu'); readln(Put); Assign(F,Put); |
28.04.2008, 21:57 | #6 |
Регистрация: 24.04.2008
Сообщений: 3
|
Я не понимаю. Программу ввела, запустила. Запрашивает
Vvedite puti k faylu Что ввести? Где находится файл с фамилиями? С:\Dokuments and settings\ А как дальше, незнаю.(на рабочем столе) |
28.04.2008, 22:21 | #7 |
Форумчанин
Регистрация: 30.03.2008
Сообщений: 392
|
? ЧТо вы делаете? вставьте ваш файл в Паскаль, затем напишите при вводе данных myfile.txt вот
Программирование - это великое искусство... Такое же как например и живопись!
|
28.04.2008, 23:11 | #8 |
Пользователь
Регистрация: 03.08.2007
Сообщений: 26
|
Код:
|
29.04.2008, 13:01 | #9 | |
Пользователь
Регистрация: 04.02.2008
Сообщений: 35
|
Цитата:
C:\Documents and Settings\.....(учтеная запись)\Рабочий стол\...(Имя файла).txt Список должен состоять из фамилий на латинском алфавите. Фамилии должны быть записаны в столбец. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
поиск IP в списке | TaTT DoGG | PHP | 6 | 13.08.2008 18:53 |
Пустые строки в выпадающим списке в ячейке | Shavminator | Microsoft Office Excel | 4 | 12.08.2008 18:36 |
отсортировать таблицу сначала в алфавитном порядке фамилий продавцов, затем в порядке возростания получен | Lora | Microsoft Office Excel | 1 | 31.05.2008 17:22 |
Пусто в выпадающем списке? | ZORRO2005 | Microsoft Office Excel | 6 | 10.01.2008 11:59 |