Помогите! плииииз...

natafka

Дата: Четверг, 13.03.2008, 21:10 | Сообщение # 1

Новичок

Группа: Пользователи

Сообщений: 1

Репутация: 0

Замечания: 0%

Статус: Offline

Народ, помогите пожалуйста, я в информатике полный ноль, а тройку уж очень не хочется.
Задачи для умных людей наверное несложные..вот:

1. В каталоге содержаться сведения о каждой из книг: фамилия автора, название, издательство и год издания.
a. Найти названия книг данного автора, изданных с 1985 г.;
b. Определить, имеется ли книга в названии которой есть слово "информатика". Если да, то сообщить фамилию автора и год издания. Если таких книг несколько, то сообщить имеющиеся сведения обо всех этих книгах;
c. Вывести книги указанного издательства за введенный год издания.

* к программе меню вывести кейс
1. показать все
2. a
3. b
4. c
5. выход

2. В заданном тексте удалить часть текста , заключенную в скобки (вместе со скобками)

3. Задан текст, содержащий не более 255 символов. Определить, сколько раз в тексте встречаются различные буквы латинского алфавита

etc

Дата: Суббота, 15.03.2008, 21:25 | Сообщение # 2

Новичок

Группа: Пользователи

Сообщений: 9

Репутация: 1

Замечания: 0%

Статус: Offline

Ну, третье - это просто:
program latin_repeats;
const chars:set of char=['A'..'Z','a'..'z'];
var s:string; a:array [char] of byte;
i,k:byte; c:char;
Begin
writeln('Введите текст'); readln(s);
k:=0;
for i:=1 to length(s) do
if s[i] in chars then inc(a[s[i]]) else inc(k);
if k=length(s) then writeln ('Букв латинского алфавита не обнаружено')
else for c:='A' to 'z' do
if a[c]<>0 then writeln (c,' - ',a[c]);
end.

		Четверг, 09.01.2025
	Pascal 4 All