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

Оператор цикла с параметром for

06.11.2009, 14:48. Показов 3536. Ответов 13
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Ребят!
Помогите пожалуйста.
В Паскале я пока что чайник, поэтому до меня просто не доходит, как можно решить данную задачу:

Нужно вывести на экран с помощью оператора цикла с параметром for символы английского алфавита от a до z и номера этих символов

Заранее благодарю)))
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
06.11.2009, 14:48
Ответы с готовыми решениями:

Оператор цикла с параметром
Помогите решить задачи пожалуйста

помощь.оператор цикла с параметром.
даны целые а1,.....,а50. получить сумму тех членов а(i) данной последовательности которые удовлетворяют условию |а(i)| < i2(в квадрате).

Используя оператор цикла с параметром, вычислить значения выражений при заданном n.
Используя оператор цикла с параметром, вычислить значения выражений при заданном n. 1*(1-2)*(1-2+4)*(1-2+4 -7)*(1-2+4 –7+11)...(n...

13
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
06.11.2009, 15:01
Pascal
1
2
3
4
5
6
7
8
9
10
11
var
  i:char;
  count:integer;
begin
  count:=1;
  for i:='a' to 'z' do
  begin
    writeln(i,' - ',count);
    inc(count)
  end
end.
0
Реальность Нереальна!
 Аватар для PAZITIV
352 / 128 / 7
Регистрация: 02.08.2009
Сообщений: 3,216
Записей в блоге: 1
06.11.2009, 15:04
nastya553,
Pascal
1
2
3
4
5
6
7
uses crt;
var i:char;
begin  clrscr;
for i:='a' to 'z' do write(i);
for i:='a' to 'z' do write(ord(i));
readln
end.
1
 Аватар для STGE
773 / 578 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
06.11.2009, 15:20
Inadequate, а почему ваша программа выдает только 24 символа из 26 возможных?
0
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
06.11.2009, 15:21
nastya553, чуть подправил вариант PAZITIV'a у вас двоякий вопрос (номер по порядку или номер символа? непонятно немного...) но в любом случае у вас теперь два ответа:
Pascal
1
2
3
4
5
6
7
8
9
var
  i:char;
begin
  for i:='a' to 'z' do
  begin
    write(i,' - ');
    writeln(ord(i));
  end
end.
1
 Аватар для STGE
773 / 578 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
06.11.2009, 15:23
А ваша, PAZITIV, сначала выводит 26 букв, а затем и цифры с 97 по 122.
Inadequate, скорее всего nastya553 имела ввиду указать порядок, а не положение в кодов. табл.
0
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
06.11.2009, 15:25
Цитата Сообщение от STGE Посмотреть сообщение
Inadequate, а почему ваша программа выдает только 24 символа из 26 возможных?
STGE, немного не понял вопроса... просто я вывел номер по порядку то есть a это 1 буква, а с это 3 буква, а PAZITIV вывел номера символов. Так что тут она сама выберет что ей нужно

Добавлено через 1 минуту
STGE, я поправил же у PAZITIV'a это просто невнимательность... с каждым такое бывает...
0
 Аватар для STGE
773 / 578 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
06.11.2009, 15:31
На счёт невнимательности соглашусь. Действительно,
с каждым такое бывает...
Inadequate, я понял, что
a это 1 буква, а с это 3 буква
, но почему не выводятся a и b и соответственно их порядковые номера?
0
1 / 1 / 0
Регистрация: 06.11.2009
Сообщений: 10
06.11.2009, 15:32  [ТС]
Спасибо большое за помощь)))
по идее . . . ответ должен выглядеть как-то так:
a b c d e f . . . z
97 98 99 100 101 102 . . . 122
0
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
06.11.2009, 15:38
nastya553, значит вариант PAZITIV'a а я не так понял задание
STGE, смотри внимательнее все выводится от а до z. По крайней мере у меня...
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
06.11.2009, 15:39
nastya553, Так и нужно писать коды символов, а не номера.
0
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
06.11.2009, 15:47
Puporev, я же написал я неправильно понял задание...

Добавлено через 1 минуту
Puporev, еще и неправильно прочитал твое сообщение...

Добавлено через 41 секунду
Чо та я сегодня на тупняке
0
 Аватар для STGE
773 / 578 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
06.11.2009, 16:29
Inadequate, всё равно не выводит a и b.
0
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
06.11.2009, 16:48
STGE, значит это второй за сегодня парадокс... почитай эту тему Перевод из одной системы счисления в другую
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
06.11.2009, 16:48
Помогаю со студенческими работами здесь

Операторы цикла (с параметром)
Условие задачи: 1\x - 1\x3 + 1\x5 - 1\x7 + 1\x9 - 1\x11 x=2 6 слагаемых

Программирование цикла с параметром
Определить значение суммы по заданному n n=10 S=1+2\cdot \frac{x}{2}+...+\frac{n^2+1}{n!}\cdot \left( \frac{x}{2}\right)^n ...

Операторы цикла с параметром
Ввести n чисел определить сколько, среди них превосходит первое число.Результат отправить в переменную k.Завтра отчёт сдавать срочно надо

Создание программы с использованием операторов цикла с параметром
вычислить значения: \sin x+\sin ^{2}x^{2}+..+\sin ^{n}x^{n}

оператор цикла For
Составить программу, выводящую на экран заглавные буквы латинского алфавита (в строчку). Для решения задачи нужно ознакомиться с типом char.


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

Или воспользуйтесь поиском по форуму:
14
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru