+ Ответить в теме
Показано с 1 по 9 из 9

Тема: Помогите с Паскалем.

  1. #1
    Ветеран denuful Разбег по полосе denuful Разбег по полосе denuful Разбег по полосе denuful Разбег по полосе denuful Разбег по полосе denuful Разбег по полосе denuful Разбег по полосе denuful Разбег по полосе denuful Разбег по полосе denuful Разбег по полосе denuful Разбег по полосе Аватар для denuful
    Регистрация
    12.05.2010
    Адрес
    Братск
    Возраст
    29
    Сообщений
    1,378
    Поблагодарил(а)
    844
    Получено благодарностей: 428 (сообщений: 245).

    По умолчанию Помогите с Паскалем.

    Нужно из текста "ЦСКА МОСКВА" удалить все буквы А. Заранее спасибо!






    ЦСКА ВСЕГДА БУДЕТ ПЕРВЫМ!!!
    I зимние Юношеские Олимпийские игры










  2. #2
    Джедай Castor Взлетаю Castor Взлетаю Castor Взлетаю Castor Взлетаю Castor Взлетаю Castor Взлетаю Castor Взлетаю Castor Взлетаю Castor Взлетаю Castor Взлетаю Castor Взлетаю Аватар для Castor
    Регистрация
    17.06.2007
    Адрес
    Тикси
    Сообщений
    3,744
    Поблагодарил(а)
    897
    Получено благодарностей: 1,349 (сообщений: 867).

    По умолчанию

    Цитата Сообщение от denuful Посмотреть сообщение
    Нужно из текста "ЦСКА МОСКВА" удалить все буквы А. Заранее спасибо!
    Код:
    #!/bin/bash
    echo "ЦСКА МОСКВА" | sed -e 's/А//g'
    На Паскале будет стоить пакет сока.
    Это призыв к насилию, разжиганию межнациональной розни и другим аморальным действиям.

  3. 1 пользователь сказал cпасибо Castor за это полезное сообщение:

    nons (15.01.2012)

  4. #3
    Джедай rr3 Разбег по полосе rr3 Разбег по полосе rr3 Разбег по полосе rr3 Разбег по полосе rr3 Разбег по полосе rr3 Разбег по полосе rr3 Разбег по полосе rr3 Разбег по полосе rr3 Разбег по полосе rr3 Разбег по полосе rr3 Разбег по полосе Аватар для rr3
    Регистрация
    24.11.2006
    Адрес
    Новосибирск
    Возраст
    30
    Сообщений
    3,661
    Поблагодарил(а)
    6,771
    Получено благодарностей: 1,142 (сообщений: 675).

    По умолчанию

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

  5. #4
    Юзер v_b кто это?
    Регистрация
    15.02.2007
    Сообщений
    185
    Поблагодарил(а)
    134
    Получено благодарностей: 51 (сообщений: 37).

    По умолчанию

    ну братюнь ты же шаришь )

    Оффтопик

  6. 1 пользователь сказал cпасибо v_b за это полезное сообщение:

    rr3 (20.12.2011)

  7. #5
    Наш Чел Afee кто это? Аватар для Afee
    Регистрация
    27.02.2009
    Сообщений
    300
    Поблагодарил(а)
    27
    Получено благодарностей: 20 (сообщений: 20).

    По умолчанию

    Ребят, помогите разобраться
    Задача: Ввести текст X$ из нескольких слов (не менее 10). Из текста удалить все согласные. распечатать полученный текст.
    Мой код:

    задача 1

    Проблема в том, что в тексте удаляются не все буквы, находящиеся в "sogl". В чем причина?

    и еще, помогите решить
    1)Вывести на экран прописыне и строчные буквы русского алфавита, располагая их в одной стрке. В каждой последующей строке выводится на один симсов меньше. Коливчество строк определяется количеством букв в алфавите.
    Дано натуральное чисто n. Выяснеить, можно ли представить чисто n! в виде произведления трех последовательных числе.
    2)Пусть дан список вещественныхчисле. Проверьте образуют ли числа, хранящиеся всписке, арифметическую или геометрическую прогрессию
    3) Создать файл, содержащий сведения о багаже пассажиров. Структура записи: количество вещей (переменная целого типа), вес в килограммах.
    Последний раз редактировалось Afee; 14.01.2012 в 23:20.

  8. #6
    Наш Чел Dron247 кто это? Аватар для Dron247
    Регистрация
    18.07.2007
    Адрес
    Братск
    Возраст
    35
    Сообщений
    298
    Поблагодарил(а)
    29
    Получено благодарностей: 37 (сообщений: 32).

    По умолчанию

    А в паскале точно массивы с единицы идут не с нуля?(давно с ним не связывался) А обязательно именно удалять буквы? Не достаточно их просто не выводить? Сделать два цикла один внутри другого, в первом флаг наличия буквы сбрасывается а во вложенном проверяется совпадает ли текущая буква с одной из фильтра, если да, то флаг устанавливается, при возвращении управление во внешний цикл проверять стоит-ли флаг, если нет, то выводить букву в результат.

  9. #7
    Юзер a7161 кто это?
    Регистрация
    16.11.2011
    Сообщений
    195
    Поблагодарил(а)
    57
    Получено благодарностей: 18 (сообщений: 15).

    По умолчанию

    Цитата Сообщение от Dron247 Посмотреть сообщение
    А в паскале точно массивы с единицы идут не с нуля?(давно с ним не связывался)
    Как определишь, так и будет. Можно хоть с -1 и т.д.
    ----------
    Для остальных: либо выкладываете код С ФОРМАТИРОВАНИЕМ, либо gtfo.
    И спрашивать нужно именно проблемные моменты, а не выкладывать текст задачи.

  10. #8
    Новичок Жанек кто это?
    Регистрация
    14.10.2012
    Возраст
    29
    Сообщений
    4
    Поблагодарил(а)
    0
    Получено благодарностей: 0 (сообщений: 0).

    По умолчанию

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

    1. составить блок-схему и написать программу вычисления смешанного арифметического выражения для данных в форматах real (переменные a,b), integer(остальные переменные)
    (-2*c+d*82)/tg(a/4-1)
    <br>


    2. дано вещественное число A и целое число N(>0) вывести А в степени N: АN = А*А*...*А (числа А перемножаются N раз)

    3.одномерные массивы.дан целочисленный массив А размера 10. вывести номер первого из тех его элементов &nbsp; &nbsp; А[i], которые удовлетворяют двойному неравенству : A[1]&lt;A[i]&lt;A[10]. если таких элементов нет, то вывести 0.


    4.двумерные массивы///дана матрица размера 5х10. найти минимальное значение в каждом столбце.

    помогите пожалуйста, нужно сдать завтра, буду очень благодарна, заранее спасибо вам)

    Добавлено через 2 часа 59 минут
    приветик всем)) помогите пожалуйста с решеними задач связанных с паскалем,очень нуждаюсь ввашей помощи... вот задачи при решении которых возникли проблемы...

    1. составить блок-схему и написать программу вычисления смешанного арифметического выражения для данных в форматах real (переменные a,b), integer(остальные переменные)
    (-2*c+d*82)/tg(a/4-1)
    <br>


    2. дано вещественное число A и целое число N(>0) вывести А в степени N: АN = А*А*...*А (числа А перемножаются N раз)

    3.одномерные массивы.дан целочисленный массив А размера 10. вывести номер первого из тех его элементов &nbsp; &nbsp; А[i], которые удовлетворяют двойному неравенству : A[1]<A[i]<A[10]. если таких элементов нет, то вывести 0.


    4.двумерные массивы///дана матрица размера 5х10. найти минимальное значение в каждом столбце.

    помогите пожалуйста, нужно сдать завтра, буду очень благодарна, заранее спасибо вам)
    Последний раз редактировалось Жанек; 14.10.2012 в 19:32. Причина: Добавлено сообщение

  11. #9
    недоУмник Klaud кто это? Аватар для Klaud
    Регистрация
    02.05.2009
    Адрес
    Lifestream
    Возраст
    34
    Сообщений
    784
    Поблагодарил(а)
    61
    Получено благодарностей: 57 (сообщений: 45).

    По умолчанию

    1.
    program z1;
    uses crt;
    var
    a,b: real;
    c,d: integer;
    otvet: real;
    begin
    clrscr;
    write('Vvedite a: ');
    readln(a);
    write('Vvedite b: ');
    readln(b);
    write('Vvedite c: ');
    readln(c);
    write('Vvedite d: ');
    readln(d);
    otvet := ((-2)*c+d*82)/(sin(a/4-1)/cos(a/4-1));
    writeln('Otvet: ', otvet3);
    readln;
    end.

    Добавлено через 23 минуты
    program z2;
    uses crt;
    var
    A,N, i: integer;
    otvet: integer;
    begin
    clrscr;
    write('Vvedite A: ');
    readln(A);
    write('Vvedite N: ');
    readln(N);
    otvet := A;
    for i := 1 to N - 1 do
    begin
    if N <= 0 then
    begin
    writeln('Oshibka!');
    break;
    end;
    otvet := otvet*A;
    end;
    write('Otvet: ', otvet);
    readln;
    end.
    Последний раз редактировалось Klaud; 16.10.2012 в 11:04. Причина: Добавлено сообщение

+ Ответить в теме

Информация о теме

Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

     

Похожие темы

  1. Ответов: 5
    Последнее сообщение: 03.11.2010, 03:26
  2. Помогите срочно
    от shaggiekeN в разделе Обсуждение вопросов "Образования и Работы"
    Ответов: 13
    Последнее сообщение: 06.12.2007, 11:24
  3. Помогите плз!!
    от I am VISOR в разделе Сеть
    Ответов: 3
    Последнее сообщение: 11.10.2007, 18:53
  4. ПОМОГИТЕ......
    от MAGNUS в разделе Городские сайты .Bratsk.org
    Ответов: 4
    Последнее сообщение: 05.02.2007, 18:56

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
Рейтинг@Mail.ru
Администрация сайта не выражает согласия
с высказыванием участников форума и не несет
ответственности за их содержание.

Копирование любого материала возможно только
при наличии ссылки на сайт.