Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 17.12.2014
Сообщений: 2

Знаю как делать в паскале . а как в С ?

17.12.2014, 01:24. Показов 1425. Ответов 12
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Для записи текста использованы большие и малые латинские буквы, цифры и разделители. Заменить каждую букву новым значением, циклически сдвинутым по алфавиту вправо на k позиций (k задавать с клавиатуры).
Например, при k = 5 буква 'a' будет заменена буквой 'f', а буква 'w' - буквой 'b'.

Добавлено через 1 минуту
Вот как в паскале

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Program alf;
Uses crt;
Var a: string; l,i: byte;
Begin
Clrscr;
a:='abwZZ';
Writeln('Исходная строка: ',a);
Write('Введите размер сдвига: ');
Readln(l);
For i:=1 to length(a) do
Case a[i] of
'a'..'z':
If ord(a[i])+l<=122 then
a[i]:=chr(ord(a[i])+l)
else a[i]:=chr(ord(a[i])+l-122+96);
'A'..'Z':
If ord(a[i])+l<=90 then
a[i]:=chr(ord(a[i])+l)
else a[i]:=chr(ord(a[i])+l-90+64);
end;
Writeln('Результат: ',a);
End.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
17.12.2014, 01:24
Ответы с готовыми решениями:

Как закончить прогу. Не знаю как. Начал делать и не получаеться никак
Вот условие: Составить программу, определяющую победителя конкурса продаж. В программу вводится количество товара, проданного каждым...

Не знаю как делать,подскажите
Как сделать что бы таблица stringgrid заполняла пустые,оставшиеся ячейки, там нулями или знаками,, к примеру раскидался текст по таблице ,и...

Пожалуйста, не знаю как делать бд Ж/Д Билет
помогите, пожалуйста, не хочет ставиться время в форме добавление поезд... что не так? а в форме билет не создаются новые...

12
3178 / 1937 / 312
Регистрация: 27.08.2010
Сообщений: 5,131
Записей в блоге: 1
17.12.2014, 02:22
Цитата Сообщение от Роман1233
а как в С
Лучший вариант - табличной заменой (XLAT). Таблица может генерироваться динамически. Остальное сводится к строчке:
C++
1
2
3
4
   for (int ii = 0; ii < iSize; ++ii)
   {
      pBuf[ii] = pXLAT[((unsigned char)pBuf[ii])];
   }
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7816 / 4635 / 2837
Регистрация: 22.11.2013
Сообщений: 13,159
Записей в блоге: 1
17.12.2014, 15:27
Лучший ответ Сообщение было отмечено Роман1233 как решение

Решение

Как-то так:
C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#include <stdio.h>
int
main(int argc, char **argv) {
  unsigned char s[]="abwZZ", *p;
  int l;
  printf("Source: %s\nShift: ",s);
  scanf("%d",&l);
  for (p=s; *p; p++)
    if (*p>='a' && *p<='z') {
      if (*p+l<='z') *p+=l;
      else *p+=l-'z'+'a'-1;
    } else if (*p>='A' && *p<='Z') {
      if (*p+l<='A') *p+=l;
      else *p+=l-'Z'+'A'-1;
    }
  printf("Result: %s\n",s);
  return 0;
}
0
0 / 0 / 0
Регистрация: 17.12.2014
Сообщений: 14
17.12.2014, 15:37
gazlan, ПОМОГИ ПРОШУ
http://ru.static.z-dn.net/file... 9b3199.jpg
http://ru.static.z-dn.net/file... eb566a.jpg
http://ru.static.z-dn.net/file... 172ba6.jpg
http://ru.static.z-dn.net/file... 6ba171.jpg
ВСТАВЬТЕ В АДРЕСНУЮ.ТУТ НА ФОТО ЗАДАНИЯ.ПРОШУ ПОМОГИТЕ УМОЛЯЮ
0
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
 Аватар для magirus
28049 / 15785 / 983
Регистрация: 15.09.2009
Сообщений: 67,752
Записей в блоге: 78
17.12.2014, 15:59
ссылки кривые.
и вообще не плодите темы по форуму.
0
0 / 0 / 0
Регистрация: 17.12.2014
Сообщений: 14
17.12.2014, 16:02
вот ссылка http://znanija.com/task/9427299 тут тема с фото
0
3178 / 1937 / 312
Регистрация: 27.08.2010
Сообщений: 5,131
Записей в блоге: 1
17.12.2014, 16:07
апаппааппа
1. Ссылки, действительно, "кривые" - ни одна не открывается.
2. На Pascal не пишу. (C/C++)
0
0 / 0 / 0
Регистрация: 17.12.2014
Сообщений: 14
17.12.2014, 16:08
это задания из егэ

Добавлено через 18 секунд
вот тема вот тема с фото http://znanija.com/task/9427299
0
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
 Аватар для magirus
28049 / 15785 / 983
Регистрация: 15.09.2009
Сообщений: 67,752
Записей в блоге: 78
17.12.2014, 16:12
Цитата Сообщение от апаппааппа Посмотреть сообщение
это задания из егэ
да хоть с луны.
перепечатайте каждое задание в отдельной теме, а не давайте какие то невнятные ссылки
0
0 / 0 / 0
Регистрация: 17.12.2014
Сообщений: 14
17.12.2014, 16:13
хорошо
0
3178 / 1937 / 312
Регистрация: 27.08.2010
Сообщений: 5,131
Записей в блоге: 1
17.12.2014, 16:16
Цитата Сообщение от апаппааппа Посмотреть сообщение
тема с фото
Ну, так перепечатайте текстом на форум, как требуют правила.
0
0 / 0 / 0
Регистрация: 17.12.2014
Сообщений: 14
17.12.2014, 16:17
вот тема на форуме Определите, что будет напечатано в результате работы следующего фрагмента программы
0
0 / 0 / 0
Регистрация: 17.12.2014
Сообщений: 2
18.12.2014, 02:51  [ТС]
та 2 ввода в паскале
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
18.12.2014, 02:51
Помогаю со студенческими работами здесь

Html и Css не знаю как делать
Ребята такая проблема не знаю как это сделать. Помогите составить

Поможете,я просто не знаю как это делать.
Задание: составить блок-схему алгоритма и написать програму,выполняющая следующие действия. исходные данные задать самостоятельно. ...

завтра экзамен а я не знаю как делать ... срочно
1. С клавиатуры вводится последовательность из n целых чисел ( n вводится с клавиатуры ) .найти максимальный нечетный элемент данной...

Подредактировать программу на паскале. Выдаёт ошибку, а как исправить не знаю.
uses crt; const n=10; label M1,M2,M3; var a:array of integer; x,k,j,buf,max_numer,max_index:integer; p:byte; procedure...

Не могу разобраться с одной задачей. Как тут вообще что делать? Знаю, что нужно использовать массив, но как?
Вывести последовательность dk, dk–1, …, d0 десятичных цифр числа 5^100, т.е. такую целочисленную последовательность, в которой каждый член...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
13
Ответ Создать тему
Новые блоги и статьи
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru