Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
0 / 0 / 0
Регистрация: 14.02.2017
Сообщений: 33
1

Используя str и конкатенацию, получить фразу "2000 лет".

28.02.2017, 20:40. Просмотров 1814. Ответов 4
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
Program Primer; Uses crt;
 var a: string;
  r,x,y: integer;
 Begin
  clrscr;
 a:='100 лет';
  val(a,x,r);
  y:=5*x;
  write('Y=',y);
  readkey;
End.
Задание:
Исполнить пример , затем используя str и конкатенацию, получить фразу "2000 лет".
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.02.2017, 20:40
Ответы с готовыми решениями:

Из фразы "Сашеньке вчера исполняется 120 лет" получить фразу "Саше завтра исполняется 12 лет"
Из фразы "Сашеньке вчера исполняется 120 лет" получить фразу "Саше завтра исполняется 12 лет",...

Для целого числа N от 20 до 25 напечатать фразу "Мне N лет"
Для целого числа N от 20 до 25 напечатать фразу "Мне N лет", учитывая при этом, что при некоторых...

Получить фразу "Цена 10000 руб."
Program Primer7; Uses crt; var a,b: string; c: integer; Begin clrscr; c:=100; a:='Цена...

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

4
1740 / 1333 / 1407
Регистрация: 28.10.2016
Сообщений: 4,267
28.02.2017, 22:54 2
Задание не совсем понятно, т.к. в примере y=0 (как я понимаю должно быть 100) и не совсем ясно, что он демонстрирует
0
138 / 6 / 5
Регистрация: 16.02.2016
Сообщений: 35
01.03.2017, 08:50 3
Как бы понятно все. Пример допилить надо, для начала. Собственно, вот он - допиленный пример:
Program Primer;
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Uses crt;
var a,b: string;
r,x,y: integer;
Begin
clrscr;
a:='100 лет';
b:=copy(a,1,3);
val(b,x,r);
y:=5*x;
writeln('Y=',y);
readkey;
End.
0
1740 / 1333 / 1407
Регистрация: 28.10.2016
Сообщений: 4,267
01.03.2017, 09:42 4
Pascal
1
2
3
4
5
6
7
Begin
var a:='100 лет';
var b:=copy(a,1,3);
var y:=20*StrToInt(b);
var str:=IntToStr(y)+' лет';
writeln(str);
End.
0
Модератор
8325 / 4098 / 2846
Регистрация: 17.08.2012
Сообщений: 13,091
03.03.2017, 23:38 5
Все приведённые решения не вполне соответствуют заданию. Указано:
Цитата Сообщение от irina100 Посмотреть сообщение
используя str и конкатенацию
Поэтому программа должна выглядеть, например, так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
var a, b: string;
    x: integer;
begin
  a := '100 лет';
  val(copy(a, 1, pos(' ', a) - 1), x);
  delete(a, 1, pos(' ', a) - 1);
  x := 20 * x;
  str(x, b);
  a := concat(b, a);
  write(a)
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.03.2017, 23:38

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

Написать программу проверки правильности написания сочетаний "жи", "ши", "ча", "ща", "чу", "щу". Исправить ошибки
дан текст.написать программу проверки правильности написания сочетаний "жи", "ши", "ча", "ща",...

Решение заданий типа "Array","Matrix","String","File","Text"""
большая просьба помочь решить где-то около 35-40 (из 100) задач (мне не понятных) типа массив и...

Выведет на экран фразу "всем привет" 80 раз в таблице из 20 строк по 4 столбца
Написать(в редакторе Паскаля) программу.которая выведет на экран фразу " всем привет" 80 раз в...

Для натурального числа К напечатать фразу "Мы нашли К грибов в лесу",согласовав окнчание слова гриб с числом К
написать программу Pascal : Для натурального числа К напечатать фразу "Мы нашли К грибов в...


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

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

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