Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
frans1
0 / 0 / 0
Регистрация: 07.12.2010
Сообщений: 4
1

Переделать программу

25.12.2010, 18:02. Просмотров 236. Ответов 0
Метки нет (Все метки)

Доброго времени суток!
Очень нужна помошь!
Есть задача : Дана послідовність символів. Потрібно побудувати і надрукувати множину, елементами якої є символи: Букви від F до M і знаки арифметичних операцій.

Дана последовательность символов. Нужно построить и напечатать множество, элементами которой будут символы, а именно буквы от F до M и знаки арифметических операций!

Вот мой набросок:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
PROGRAM lab13;
  CONST N=10;
  TYPE STROKA=ARRAY[1..N] OF CHAR;
  VAR S:STROKA; C:CHAR;
      I,K:INTEGER;
BEGIN
  WRITELN('vvedite simvoli');
  FOR I:=1 TO N DO READ(S[I]);
  K:=0;
  FOR I:=1 TO N DO
    IF S[I] IN ['F'..'M','+','-','*','/'] THEN
    begin
      c:=s[i];
    k:=k+1;
    s[k]:=c;
    end;
      WRITELN('posledovatelnost=');
    for i:=1 to k do
    WRITE(s[i]);
END.
Но он не соответствует условию ,так как выводится не множество. Исправте пожалуйста!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.12.2010, 18:02
Ответы с готовыми решениями:

Переделать программу.
Помогите переделать программу. Задание: Нужно записать двухмерный массив...

Переделать программу
Написать программу: 15 декабря всемирный день чаепития по введенному году...

как переделать программу
Помогите переделать программу используя цикл repeat Начав тренировки,...

Переделать программу в функцию
Программа переводит из 10 сс в любую сс Не могу переделать в функцию: ...

Необходимо переделать программу
Есть задание и готовая программа к этому заданию, но у меня другой вариант, но...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.12.2010, 18:02

Нужно переделать программу
Нужно переделать. Условие задачи : Сделайте, какой можете 1-С массивами ...

переделать программу, используя счетчик for
program Lab_6; const h=0.2; var x,f:real; begin writeln(' X | ...

Переделать программу под модуль
сделайте под эту прогу модуль, пожалуйста. var i,j,k:integer; a:array of...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru