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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 31.01.2013, 16:55   #1
Anka1101
Пользователь
 
Регистрация: 31.01.2013
Сообщений: 20
По умолчанию Сформировать последовательность заглавных букв

помогите ,люди добрые ,решить задания пожалуйста в паскаль ((((((((((1. Сформировать последовательность заглавных букв латинского алфавита и вывести их на экран в том же порядке, поставив после каждой из них ее порядковый номер: А1 Б2 В3 Г4 ... Я33.
2. Дано натуральное число N. Получить в порядке возрастания N первых натуральных чисел, которые не делятся ни на какие числа, кроме 2, 3, 5.
Anka1101 вне форума Ответить с цитированием
Старый 31.01.2013, 17:05   #2
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,430
По умолчанию

У Вас есть какие-либо идеи или наработки?
Кстати, АБВ...Я - не латинский алфавит.
Первое задание - написать 1 цикл.
Второе задание чуть посложнее (2 цикла - один вложен в другой).
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Старый 31.01.2013, 17:17   #3
Anka1101
Пользователь
 
Регистрация: 31.01.2013
Сообщений: 20
По умолчанию

Цитата:
Сообщение от BDA Посмотреть сообщение
У Вас есть какие-либо идеи или наработки?
Кстати, АБВ...Я - не латинский алфавит.
Первое задание - написать 1 цикл.
Второе задание чуть посложнее (2 цикла - один вложен в другой).
идей к сожалению нет,мне дали тему сказали сделать программы к этой теме ,но как .......?я не знаю,просто не понимаю....ну вместо АБВ -ABC
Anka1101 вне форума Ответить с цитированием
Старый 31.01.2013, 17:25   #4
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,430
По умолчанию

Хорошо, вот Вам кирпичики, соберите первую программу.
Выводит 100 букв А с порядковым номером:
Код:
var i: integer;
BEGIN
  for i := 1 to 100 do
    write('A', i, ' ');
  readln;
END.
Выводит i-ю букву алфавита:
Код:
var n, i: integer;
BEGIN
  n := ord('A') - 1;
  readln(i);
  writeln(chr(n + i));
  readln;
END.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Старый 31.01.2013, 17:29   #5
Anka1101
Пользователь
 
Регистрация: 31.01.2013
Сообщений: 20
По умолчанию

не поняла?там же алфавит нужен...причем здесь 100 букв А?
Anka1101 вне форума Ответить с цитированием
Старый 31.01.2013, 17:29   #6
Sciv
Старожил
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Сообщений: 3,211
По умолчанию

1.

Код:
var i: integer;
    c: char;
begin
  i:=1;
  for c:='A' to 'Z' do begin
    WriteLn(i,' - ',c);
    inc(i);
  end;
end.
2.

Код:

увидел свою ошибку, код неправильный :d

Че то я сегодня непозволительно добрый...
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...

Последний раз редактировалось Sciv; 31.01.2013 в 17:47.
Sciv вне форума Ответить с цитированием
Старый 31.01.2013, 17:47   #7
Anka1101
Пользователь
 
Регистрация: 31.01.2013
Сообщений: 20
По умолчанию

Цитата:
Сообщение от Sciv Посмотреть сообщение
1.

Код:
var i: integer;
    c: char;
begin
  i:=1;
  for c:='A' to 'Z' do begin
    WriteLn(i,' - ',c);
    inc(i);
  end;
end.
2.

Код:
var i,j,N: integer;
    IsDiv: boolean;

begin
  ReadLn(N);
  for i:=1 to N do begin
    for j:=2 to i-1 do IsDiv:=(i mod j=0) and ((j=2) or (j=3) or (j=5));
    if isDiv then WriteLn(i);
  end;
end.

Че то я сегодня непозволительно добрый...



спасибо.но можно вопрос ,как вывести результат?вот внизу ввод данных а что вводить та
Anka1101 вне форума Ответить с цитированием
Старый 31.01.2013, 18:00   #8
Sciv
Старожил
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Сообщений: 3,211
По умолчанию

значение i - номер буквы, которую хотите вывести.
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Sciv вне форума Ответить с цитированием
Старый 31.01.2013, 18:12   #9
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,430
По умолчанию

Цитата:
причем здесь 100 букв А?
Это пример цикла.

Пожалуй, вариант Scivа проще.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Старый 31.01.2013, 18:20   #10
Sciv
Старожил
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Сообщений: 3,211
По умолчанию

2 задача - рабочий вариант:

Код:
var i,j,N: integer;
    IsDiv: boolean;

begin
  ReadLn(N);
  for i:=1 to N do begin
    IsDiv:=(i mod 2=0) and (i mod 3=0) and (i mod 5=0);
    if IsDiv then
      for j:=2 to i-1 do
        If (j<>2) and (j<>3) and (j<>5) then IsDiv:=i mod j<>0;
    if isDiv then WriteLn(i);
  end;
  ReadLn;
end.
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Sciv вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск заглавных букв sergei64_89 SQL, базы данных 1 08.10.2011 09:25
Сформировать 2 множества,состоящих из заглавных букв латинского алфавита. Определить элементы,принадлежащ Aktor1992 Паскаль, Turbo Pascal, PascalABC.NET 0 12.04.2011 22:13
Сортировка заглавных и строчных букв Ronk Общие вопросы C/C++ 6 03.03.2010 19:44
перевод заглавных букв в строчные в вба peq Microsoft Office Excel 4 29.09.2009 23:31
Перебор заглавных букв в слове =LeonZone= Общие вопросы Delphi 8 02.11.2007 14:59