Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.01.2011, 22:14   #1
Кристина_
 
Регистрация: 24.01.2011
Сообщений: 4
По умолчанию Задачи на паскале

Пожалуйста решите какую нибудь
1. Дан текстовый файл. Создать другой текстовый файл, в котором все слова исходного файла выписаны «задом наперед».
2. Реализуйте модуль, подключение которого позволяет производить арифметические операции в системе счисления с основанием k. В модуле должен быть описан свой тип данных. Параметрами функций служат два числа и основание системы счисления
3. Распечатать список студентов, фамилии которых начинаются с буквы А, и их оценки за время обучения.
4. Программа вводит строку ( текста) а затем – выводит ее строкой ниже в преобразованном виде: слова, начинающиеся с буквы б пишет на синем фоне, с буквы в – на сером фоне ( цвет 7 ) с буквы д – не фоне цвета 3, остальные – на черном фоне. Использовать Case.
5. Найти минимальную среди сумм элементов диагоналей, перпендикулярных главной диагонали для квадратной матрицы порядка N. ( то есть диагонали, параллельные направлению – из левого нижнего угла в правый верхний угол матрицы )
Кристина_ вне форума Ответить с цитированием
Старый 25.01.2011, 22:54   #2
rubius2008
Форумчанин
 
Регистрация: 19.03.2010
Сообщений: 409
По умолчанию

1.
Код:
assign(f,'text.txt'); reset(f);
while not eof(f) do begin
   readln(f,s);
   s1:='';
   for i:=1 to length(s) do 
      if s[i] in ['a'..'z','A'..'Z'] then s1:=s1+s[i]
      else begin
         if s1<>'' then for j:=length(s) downto 1 do write(s1[j]);
         write(s[i]);
         s1:='';  
      end;
    writeln(f);
end;
close(f);
тут правда для слов текста в файле, которые латиницей записаны
Если нужны все программки не за бесплатно пиши в асю.
Есть вопросы, пишите в ЛС.
rubius2008 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
задачи в паскале WWW-777 Помощь студентам 3 02.07.2010 21:14
ЗАДАЧИ В ПАСКАЛЕ hohol90 Помощь студентам 1 30.11.2009 15:56
Задачи на Паскале SVYAT Помощь студентам 13 17.10.2009 19:16
привет всем! помогите пожалуйста решить две задачи на паскале. я в паскале полный ноль. Пищенок Саша Паскаль, Turbo Pascal, PascalABC.NET 5 20.01.2009 13:46