Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Алексндр Волков
0 / 0 / 1
Регистрация: 04.04.2017
Сообщений: 23
1

Вывести на печать заданную фразу

04.04.2017, 15:55. Просмотров 1035. Ответов 7
Метки нет (Все метки)

Помогите пожалуйста написать программу.
Целочисленные переменные i,j,k содержат информацию о длинах сторон треугольника. Напечатать фразу "Рассмотрим треугольник со сторонами ... см, ... см, ... см", где вместо многоточий указаны соответствующие значения. Заранее спасибо.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.04.2017, 15:55
Ответы с готовыми решениями:

Вывести фразу внутри кольца
Здравствуйте! Помогите пожалуйста вывести фразу "Hi World!" строго по центру экрана, внутри кольца...

Вывести на экран каждую фразу с новой строки
1) Дана строка, состоящая из трех фраз. Каждая фраза заканчивается точкой. Вывести на экран каждую...

Вывести на экран каждую фразу с новой строки.
Дан ряд, который сложен с трёх фраз. Каждая фраза оканчивается точкой. Вывести на экран каждую...

Составить алгоритм вывода на печать всех цифр, входящих в заданную строку, и отдельно - остальные символы
Всем привет! Помогите пожалуйста решить задачки на досуге. Заранее спасибо 2. Составить алгоритм...

Вывести на печать список слов, имеющих заданную приставку
Вывести на печать список слов, имеющих приставку (несколько букв), задаваемую с терминала.

7
VladimirD
80 / 80 / 78
Регистрация: 30.12.2015
Сообщений: 256
04.04.2017, 16:00 2
Наверное такой код
Pascal
1
writeln ('Рассмотрим треугольник со сторонами ',i,'см, ',j,'см, ',k,'см.');
0
Алексндр Волков
0 / 0 / 1
Регистрация: 04.04.2017
Сообщений: 23
04.04.2017, 16:05  [ТС] 3
Это задание из темы Строки,поэтому я не уверен в правильности ответа. Или можно полную программу пожалуйста.
0
VladimirD
80 / 80 / 78
Регистрация: 30.12.2015
Сообщений: 256
04.04.2017, 16:11 4
Pascal
1
2
3
4
5
6
7
8
program ijk;
var i,j,k:integer;
begin
i:=3;
j:=4;
k:=5;
writeln ('Рассмотрим треугольник со сторонами ',i,'см, ',j,'см, ',k,'см.');
end.
0
Алексндр Волков
0 / 0 / 1
Регистрация: 04.04.2017
Сообщений: 23
04.04.2017, 16:20  [ТС] 5
Спасибо.Но программа слишком легко выглядит.
0
VladimirD
80 / 80 / 78
Регистрация: 30.12.2015
Сообщений: 256
04.04.2017, 16:22 6
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program ijk;
 
var i,j,k:integer;
begin
write ('Введите, i :');
readln (i);
write ('Введите, j :');
readln (j);
write ('Введите, k :');
readln (k);
writeln ('Рассмотрим треугольник со сторонами ',i,'см, ',j,'см, ',k,'см.');
end.
0
Cyborg Drone
Модератор
7066 / 3695 / 2653
Регистрация: 17.08.2012
Сообщений: 11,792
04.04.2017, 19:38 7
Лучший ответ Сообщение было отмечено Алексндр Волков как решение

Решение

Строки здесь нужны как зайцу стоп-сигнал. Ну, раз очень хочется, то можно.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var a, b, c: real;
    s, sa, sb, sc: string;
begin
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  write('c = ');
  readln(c);
  str(a:0:2, sa);
  str(b:0:2, sb);
  str(c:0:2, sc);
  s := 'Рассмотрим треугольник со сторонами ' + sa + ' см, ' + sb + ' см, ' + sc + ' см. ';
  writeln(s);
  readln
end.
1
Алексндр Волков
0 / 0 / 1
Регистрация: 04.04.2017
Сообщений: 23
04.04.2017, 21:12  [ТС] 8
Спасибо всем большое!)
0
04.04.2017, 21:12
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.04.2017, 21:12

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

Переписать заданную фразу в обратном порядке
ВЫ ГЕНИЙ..АА)) "переписать заданную фразу в обратном порядке." можно еще одну?)

В текстовом файле заменить одну заданную фразу на другую (файловый ввод/вывод)
Помогите, пожалуйста, написать 2 программы на С++ (отдельно). В файле input.txt записаны строки,...

Выводить на печать данные, не содержащие определенную фразу
Добрый день, Нужна помощь в написании макроса для кнопки. Суть. Есть документ. На одном листе. В...


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

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

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