0 / 0 / 0
Регистрация: 07.12.2012
Сообщений: 5
1

Получить слово ИНФОРМАТИКА из слов инициатива, кинематика, фортуна

07.12.2012, 19:33. Показов 1727. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Задача 1

Составить программу для решения задачи: получить слово ИНФОРМАТИКА из слов инициатива, кинематика, фортуна, используя процедуры и функции для работы со строками.

Задача 2

С клавиатуры вводят строку.
а) Проверить, является ли она предложением (заканчивается ли она точкой, восклицательным знаком или вопросительным знаком);
б) Сделать строку предложением (добавить один из этих знаков).

Буду благодарен за любую помощь.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.12.2012, 19:33
Ответы с готовыми решениями:

Составить программу ,которая из слов 'ИНФОРМАТИКА' и 'ТЕМА' выдает слово 'МАТЕМАТИКА'
составить программу ,которая из слов 'ИНФОРМАТИКА' и 'ТЕМА' выдает слово 'МАТЕМАТИКА'

Дано слово «информатика». Путем склеивания и вырезания получить слова «форма» и «мак»
Дано слово «информатика». Путем склеивания и вырезания получить слова «форма» и «мак».

Используя delete, получить из слова "информатика" слово "математика"
Program Primer6; Uses crt; var a: string; Begin clrscr; a:='Инка'; writeln(a); ...

Из, слов молоко сад, роща получить слово рамка
А)Из,слов молоко сад, роща получает слово рамка В) ИЗ слова фотокопирование составляет слово...

4
261 / 236 / 161
Регистрация: 10.12.2011
Сообщений: 513
07.12.2012, 20:29 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

1)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Uses crt;
var
 s, s1, s2, s3: string;
begin
clrscr;
s1:='unucuatuva';
s2:='kunematuka';
s3:='fortyna';
 
s:=s+copy(s1,1,2)+copy(s3,1,3)+copy(s2,5,length(s2));
writeln(s);
readln;
end.
Сейчас допишу вторую ...
0
0 / 0 / 0
Регистрация: 07.12.2012
Сообщений: 5
07.12.2012, 20:30  [ТС] 3
Спасибо
0
261 / 236 / 161
Регистрация: 10.12.2011
Сообщений: 513
07.12.2012, 20:44 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Можете спасибо не говорить. Для этого есть кнопка

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Uses crt;
var
 s: string;
ch: char;
begin
clrscr;
write('Enter string:');readln(s);
if ( s[length(s) = '.' ) or ( s[length(s)] = '!' ) or ( s[length(s)] = '?' ) then writeln('This is a statement') else begin
   writeln('This is not a statement, Press Enter to Proceed ... ');
   readln;
   clrscr;
   write('What kind of symbol woud you like to add("." "!" "?"):');readln(ch);
   s:=s+ch;
   writeln(s);
end;
readln;
end.
0
0 / 0 / 0
Регистрация: 07.12.2012
Сообщений: 5
07.12.2012, 20:46  [ТС] 5
Отблагодарил
0
07.12.2012, 20:46
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.12.2012, 20:46
Помогаю со студенческими работами здесь

Из слов ВЕЛИЧИНА, ОСА, ДЕПО получить слово ВЕЛОСИПЕД
Составить программу, которая из слов ВЕЛИЧИНА, ОСА, ДЕПО получает слово ВЕЛОСИПЕД

получить из слова "информатика" слово "тик"
получить из слова "информатика" слово "тик"

Замена слов: получить новый файл, в котором все вхождения первого слова заменены на второе слово
Помогите, пожалуйста, с программой. Дан текстовый файл и два слова. Переносов слов нет....

Составить не менее трех слов из слова информатика
Составить не менее трех слов из слова информатика


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru