Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.92/91: Рейтинг темы: голосов - 91, средняя оценка - 4.92
9 / 9 / 0
Регистрация: 11.04.2013
Сообщений: 48
1

Пожалуйста,составьте программу, которая из слова "ПРОГРАММА" составляет слова: "ГРАММ","РОГА","ГОРА"

16.11.2013, 13:21. Показов 16846. Ответов 2
Метки нет (Все метки)

Составьте программу, которая из слова "ПРОГРАММА" составляет слова: "ГРАММ","РОГА","ГОРА".( с помощью Copy и т.д. тема символьные переменные).
1

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.11.2013, 13:21
Ответы с готовыми решениями:

Пожалуйста, составьте программу, которая из слов"СТРАХ","БЕЛКА","ЦЫПЛЁНОК" получает слово "СТОЛБЕЦ"
Пожалуйста, составьте программу, которая из слов"СТРАХ","БЕЛКА","ЦЫПЛЁНОК" получает слово "СТОЛБЕЦ".

Составьте программу, которая из слова "тематика" получает слово "математика" и "тема" и выводит эти слова на экран в столбик.
Составьте программу, которая из слова "тематика" получает слово "математика" и "тема" и выводит эти...

Из слова "клоун" путем "вырезок" и "склеек" его букв получить слова "уклон","кулон" и "колун"
Из слова "клоун" путем "вырезок" и "склеек" его букв получить слова "уклон","кулон" и...

Из слова "Программа" составить слова: грамм, рога, гора
Составить программу, которая из слова "Программа" составляет слова: грамм, рога, гора.

2
Модератор
64056 / 47472 / 32727
Регистрация: 18.05.2008
Сообщений: 115,185
16.11.2013, 13:31 2
Лучший ответ Сообщение было отмечено ЮЮллиияя как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
uses crt;
var s,s1:string;
begin
s:='ÏÐÎÃÐÀÌÌÀ';
s1:=copy(s,4,5);
writeln(s1);
s1:=copy(s,2,3)+s[6];
writeln(s1);
s1:=s[4]+s[3]+copy(s,5,2);
writeln(s1);
end.
1
723 / 475 / 130
Регистрация: 24.12.2008
Сообщений: 3,924
16.11.2013, 13:37 3
Ну как то так

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
StrSrc:="ПРОГРАММА";
Pos1:=4;
Len1:=5;
StrTmp1 := Copy(StrSrc, Pos1, Len1);
Pos1:=2;
Len1:=3;
StrTmp2 := Copy(StrSrc, Pos1, Len1);
Pos1:=6;
Len1:=1;
StrTmp2 :=StrTmp2 + Copy(StrSrc, Pos1, Len1);
Pos1:=4;
Len1:=1;
StrTmp3 := Copy(StrSrc, Pos1, Len1);
Pos1:=3;
Len1:=1;
StrTmp3 :=StrTmp3 + Copy(StrSrc, Pos1, Len1);
Pos1:=5;
Len1:=2;
StrTmp3 :=StrTmp3 + Copy(StrSrc, Pos1, Len1);
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.11.2013, 13:37

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

Из слова "Программа" путем "вырезок" и "склеек". (с процедурой)
Нужно из слова "программа" путем вырезок и склеек его букв получить слово "ром" и "рампа" (с...

Вывести текст файла, заменив цифры от 0 до 9 на слова "ноль", "один"..."девять", начиная каждое предложение с новой строки
Написать программу, которая считывает текст из файла и выводит его на экран, заменив цифры от 0 до...

Из слова "яблока" путем вырезок и склеек получить слово "блок" и "ока"
2.Из слов "вирус" получить слово "фокус"!!! 3.Из слова "яблока" путем вырезок и склеек получить...


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

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

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