Вопрос по информатике:
Помогите, пожалуйста, в Паскале. Составить программу, по которой компьютер находит произведение нечетных чисел, начиная с единицы, и до тех пор, пока на вопрос, задаваемый после каждого шага вычислений: «Продолжить вычисления? (Д/Н)», отвечают ‘Д’.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок — бесплатно!
- bookmark_border
- 18.02.2017 12:28
- Информатика
- remove_red_eye 2272
- thumb_up 26
Ответы и объяснения 1
finredr217
Var a:longint; b:integer; s:string;
begin
readln(s);
a:=1; b:=1;
repeat
writeln(‘Продолжить вычисления? (Д/Н)’);
b:=b+2;
a:=a*b;
readln(s);
until (s’Д’);
write(a);
end.
- 19.02.2017 02:13
- thumb_up 47
Знаете ответ? Поделитесь им!
Как написать хороший ответ?
Чтобы добавить хороший ответ необходимо:
Домашнее задание. C++. Сумма, произведение, среднее арифметическое чисел.
- Отвечать достоверно на те вопросы, на которые знаете правильный ответ;
- Писать подробно, чтобы ответ был исчерпывающий и не побуждал на дополнительные вопросы к нему;
- Писать без грамматических, орфографических и пунктуационных ошибок.
Этого делать не стоит:
- Копировать ответы со сторонних ресурсов. Хорошо ценятся уникальные и личные объяснения;
- Отвечать не по сути: «Подумай сам(а)», «Легкотня», «Не знаю» и так далее;
- Использовать мат — это неуважительно по отношению к пользователям;
- Писать в ВЕРХНЕМ РЕГИСТРЕ.
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи — смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Источник: online-otvet.ru
Помогите, пожалуйста, в Паскале. Составить программу, по которой компьютер находит произведение нечетных чисел, начиная с единицы, и до тех пор, пока на вопрос, задаваемый после каждого шага вычислений: «Продолжить вычисления? (Д/Н)», отвечают ‘Д’.
Var a:longint; b:integer; s:string;
begin
readln(s);
a:=1; b:=1;
repeat
writeln(Продолжить вычисления? (Д/Н));
b:=b+2;
a:=a*b;
readln(s);
until (sД);
write(a);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
СУММА И КОЛИЧЕСТВО ЧЕТНЫХ И НЕЧЕТНЫХ ЧИСЕЛ В ДИАПАЗОНЕ | C# ДОМАШНИЕ ЗАДАНИЯ | #4
Источник: reshaika.com
Символьный и строковый типы данных в Паскале
презентация к уроку по информатике и икт (9 класс) по теме
Презентация предназначена для самостоятельного изучения, содержит массу примеров решения задач, задания для тренировки.
Скачать:
 simvolnyy_i_strokovyy_tipy_dannyh.pptx |
352.71 КБ |
Предварительный просмотр:
Подписи к слайдам:
Текстовый и символьный типы данных Паскаль Презентацию подготовила Учитель информатики Карева Татьяна Петровна МБОУ Гимназия №6 Г. Междуреченска Кемеровской области
Вычислительные машины имеют дело не только с числами. Едва ли не больше времени они бывают заняты обработкой текста. В Паскале для этого есть специальный тип данных, который называется CHAR (от слова character – символ). Тип CHAR (символьный или строковый или литерный). Его значениями являются отдельные символы: буквы, цифры, знаки.
Символьные константы заключаются в кавычки, например, ‘ A ’, ’ B ’, ’ C ’, ‘4’,‘7’, ‘ ‘(пробел). Символьные переменные описываются предложением Var имя переменной: char ;
Символьные значения можно вводить и выводить, присваивать, сравнивать. Ниже приведен пример, где выполняются все эти действия. Var x , y : char ; Begin Write(‘ Введите символ ‘); Readln (x); Y:=’A’; If x =, ,<>.
Стандартные символьные функции. В Паскале имеются стандартные символьные функции: CHR ( N ) – возвращает в программу символ с кодом N , ORD ( S ) – возвращает код символа S , PRED ( S ) –возвращает предыдущий символ SUCC ( S ) – возвращает следующий символ ПРИМЕРЫ: CHR (128) = Б ORD (‘:’) = 58 PRED(‘ Б ’) = А SUCC(‘ Г ’) = Д
Каждый символ имеет свой уникальный двоичный код. Коды всех символов сведены в таблицу. Первая половина таблицы стала международным стандартом, который называется ASCII – American Standard Code Information Interchange ( читается « аски код») в ней кроме прочего содержится латинский алфавит, вторая имеет разные варианты для разных языков. Кириллица (русский алфавит) имеет несколько стандартов. В Паскале используется стандарт КОИ-8.
ПРИМЕР использования переменной символьного типа. Составить программу, по которой компьютер многократно вычисляет сумму А+В при различных значениях А и В. в конце каждого этапа появляется запрос о продолжении или прекращении вычислений: «Завершить программу?(Д/Н)». Var A , B : real ; C : char; Begin repeat Write(‘ Введите два числа ‘); Readln ( a,b ); Writeln ( a + b :0:2); Writeln (‘Завершить программу?(Д/Н)’); Readln (с); Until с=’Д’; Readln End .
Тренировочные задания. 1 . Что вернет функция CHR ( ORD ( X ))? 2. Определить значения следующих функций: CHR(68) ORD(‘d’) PRED(1) SUCC(‘ Я ’) 3. Составить программу, по которой компьютер находит произведение нечетных чисел, начиная с единицы, и до тех пор, пока на вопрос, задаваемый после каждого шага вычислений: «Продолжить вычисления? (Д/Н)», отвечают ‘Д’.
Для обработки более крупных текстовых единиц — строк введен тип данных, который называется STRING (строка). Значениями этого типа являются строки любых символов длиной до 255. Переменные строки должны быть описаны предложением: VAR имя: STRING Строки можно присваивать, сравнивать, вводить, выводить и соединять. Соединение обозначается знаком «+». Вот примеры некоторых операций сравнения над строками: ‘стол’ length(b) then write(a) else write(b); readln end.
Пример 2. Даны два слова. Составить программу определяющую верно ли, что первое слово начинается на ту же букву, которой оканчивается второе слово. Var x,y:byte ; a,b:string ; begin readln (a); readln (b); x:=length(b); if a[1]=b[x] then write (‘верно’) else write (‘неверно’); readln end .
Тренировочные задания. 1. Дано название города. Определить, четно или не четно количество символов в нем. 2. Дано слово. Вывести на экран его третий символ и дважды его последний символ.
3. Дано слово. Верно ли, что оно начинается и оканчивается на одну и ту же букву? 4. Дано слово. Получить и вывести на экран буквосочетание, состоящее из его третьего и последнего символа. 5. Составить программу, которая запрашивает название футбольной команды и повторяет его на экране со словами: «Это чемпион!».
Для работы со строковыми переменными в Паскале существует набор стандартных процедур и функций. Их применение упрощает решение задач. Хочу напомнить что результат выполнения функции должен быть запомнен в переменной соответствующего типа, если конечно она, функция, не является элементом выражения. Функция копирования строки или ее части. S:=COPY( строка , позиция , N); Функция копирования называется также «вырезкой». Результатом выполнения функции будет часть строки начиная с указанной позиции длиной N.
Пример: Дано предложение. Определить порядковый номер первой встреченной буквы ‘к’. Если такой буквы нет, сообщить об этом. Var x: integer; a: string; begin write(‘ Введите предложение ‘); readln (a); x:=pos(‘ к ‘,a); if x=0 then writeln (‘ Такой буквы нет ‘) else writeln (x); readln end.
Процедура удаления части строки DELETE( строка , начальный номер , количество символов ) Удаляет из исходной строки указанное количество символов. Пример : Дано слово, состоящее из четного числа букв. Вывести на экран его первую половину. Var i,x:byte ; a,p:string ; begin repeat write (‘Введите слово из четного числа букв’); readln (a); x:=length(a); until (x mod 2 = 0); x:= x div 2; delete (a,x+1,x); write (а); readln end .
Процедура вставки подстроки в строку INSERT( строка1 , строка2 , позиция ); Строка1 вставляется в строку2 начиная с указанной позиции . Тренировочные задания. 1. Дано предложение. Определить число вхождений в него некоторого символа. 2. Дано предложение. Заменить в нем все вхождения буквосочетания «ах» на «ух».
3. Дано слово. Проверить, является ли оно «перевертышем», т.е. читается одинаково как с начала, так и с конца. 4. Дано слово: a. удалить из него первую из букв «о», если такая буква есть; b. удалить из него последнюю из букв «т», если такая буква есть. 5. Дано предложение. Удалить из него все буквы «с».
Источник: nsportal.ru