Нужна помощь - строки в pascal

@Светлана_a · Регистрация: 24.06.2009

Author24 — интернет-сервис помощи студентам

Помогите, пожалуйста бедной девушке-студенки, которая чудом попала на факультет информатики

Вот задания.... экзамен через 1,5 дня уже - в пятницу... :'(

Задания:
1. Напечатать, введенную строку вразрядку.
2. Проверить, является ли строка палиндромом. (А роза упала на лапу Азора.)
3. Ваше "машинное" имя. Вводится строка символов. Требуется вывести на экран последовательность из ASCII-кодов ее символов в десятичной системе счисления. Поинтересуйтесь, как будет выглядеть кодировка Вашего имени.
Пример
Входные данные: ДОМ
Вывод на экран: 132 142 140
4. Дан текст. Напишите программу, определяющую процентное отношение строчных и прописных букв к общему числу символов в нем.
5. Введите текст. Распечатайте его разными цветами по следующему правилу: русские малые буквы цветом 4; русские заглавные цветом 1; малые латинские цветом 15; заглавные латинские цветом 14; остальные символы цветом 13.
Примечание: Установить цвет текста можно с помощью процедуры TextColor(цвет) из модуля Crt.

ЗАРАНЕЕ СПАСИБО!!! Жду с нетерпением рыцарской помощи

@Jazon_deenAlt · 24.06.2009, 18:50

Не по теме:

Сообщение от Светлана_a

Коварные, но благодарные

ето не доказано) как говорил один мой знакомый "мясные и алкогольные инвистицыи вложеные в женщину не окупаютса..."

24.06.2009, 21:49

2)

Pascal

program asd;
uses crt;
var
i,n:integer;
s,s1:string;
begin
writeln('vvedite frazy');
readln(s);
s1:=s;
for i:=length(s1) to 1 down to begin
if s1.[i]=s[i] then
writeln ('',s);end;
end.

P.S. не тестил, если че бодправите.

Добавлено через 1 минуту 18 секунд
Кстати, ивистицЫи с букво "и"

пишеться.

Комментарий модератора

Теги кода добавлены модератором. По правилам форума, код должен быть оформлен соответствующими тегами. Для оформления кода Pascal следует выделить этот код и на панели редактирования сообщения нажать кнопку: "PASCAL".

@AkiTe · 24.06.2009, 22:03

Ругается на down
for i:=length(s1) to 1 down to begin

P.S.Хм... мож мне тож девушкой подписаться?=) Помогите в темке 2 задачи спс! Сорь за офф топ=)

@Puporev · 24.06.2009, 22:37

down to

просто это слитно надо писать downto. Чаловек случайно пробел нажал, а Вы похоже и букаф таких никогда не видели.

@inter · 24.06.2009, 22:39

AkiTe, ну оффтопом вы даже подписавшись девушкой добьётесь скорее всего прямопротивополжного результата, например полного молчания

@AkiTe · 24.06.2009, 23:14

Puporev, угу, сорь=)

@inter 9715 / 2470 / 52 Регистрация: 06.03.2009 Сообщений: 8,500
	24.06.2009, 22:39	25
	AkiTe, ну оффтопом вы даже подписавшись девушкой добьётесь скорее всего прямопротивополжного результата, например полного молчания 1

@AkiTe 0 / 0 / 0 Регистрация: 24.06.2009 Сообщений: 14
	24.06.2009, 23:14	26
	Puporev, угу, сорь=) 0

@Светлана_a 0 / 0 / 0 Регистрация: 24.06.2009 Сообщений: 27
		1
	Нужна помощь - строки в pascal 24.06.2009, 15:19. Показов 3196. Ответов 25 Метки нет (Все метки) Помогите, пожалуйста бедной девушке-студенки, которая чудом попала на факультет информатики Вот задания.... экзамен через 1,5 дня уже - в пятницу... :'( Задания: 1. Напечатать, введенную строку вразрядку. 2. Проверить, является ли строка палиндромом. (А роза упала на лапу Азора.) 3. Ваше "машинное" имя. Вводится строка символов. Требуется вывести на экран последовательность из ASCII-кодов ее символов в десятичной системе счисления. Поинтересуйтесь, как будет выглядеть кодировка Вашего имени. Пример Входные данные: ДОМ Вывод на экран: 132 142 140 4. Дан текст. Напишите программу, определяющую процентное отношение строчных и прописных букв к общему числу символов в нем. 5. Введите текст. Распечатайте его разными цветами по следующему правилу: русские малые буквы цветом 4; русские заглавные цветом 1; малые латинские цветом 15; заглавные латинские цветом 14; остальные символы цветом 13. Примечание: Установить цвет текста можно с помощью процедуры TextColor(цвет) из модуля Crt. ЗАРАНЕЕ СПАСИБО!!! Жду с нетерпением рыцарской помощи 0

@Jazon_deenAlt
	24.06.2009, 18:50 Нужна помощь - строки в pascal #21
	Не по теме: Сообщение от Светлана_a Коварные, но благодарные ето не доказано) как говорил один мой знакомый "мясные и алкогольные инвистицыи вложеные в женщину не окупаютса..." 0

@AkiTe 0 / 0 / 0 Регистрация: 24.06.2009 Сообщений: 14
	24.06.2009, 22:03	23
	Ругается на down for i:=length(s1) to 1 *down* to begin P.S.Хм... мож мне тож девушкой подписаться?=) Помогите в темке 2 задачи спс! Сорь за офф топ=) 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	24.06.2009, 22:37	24
	down to просто это слитно надо писать downto. Чаловек случайно пробел нажал, а Вы похоже и букаф таких никогда не видели. 0

Опции темы