Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
SerTyk
0 / 0 / 1
Регистрация: 17.01.2018
Сообщений: 7
1

Подскажите, пишет неожиданный символ в строке write

18.01.2018, 19:45. Просмотров 158. Ответов 2
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
Program Lab2;
Const b=2.4; c=1.7; 
Var x, a, y: real;
Begin
write (‘Введите значение x=); 
readln (x);
a:=3.5*b/(b+exp(3*ln(c)));
if x < 1 then y:=sqrt(abc(a+b/x)); 
else if x > 1 then y:=sqr(a*x+b*x); 
writeln (‘y=, y); 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.01.2018, 19:45
Ответы с готовыми решениями:

Заменить каждый символ «точка» в строке на символ «вопросительный знак»
Общая инструкция. В программе необходимо определить динамическую длину строки...

Выводить строку, сокращая каждый раз на 1 символ, пока в строке не останется 1 символ
Составьте программу для обработки строки текста, введенной с клавиатуры. ...

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

В строке удвоить каждый символ, принадлежащий второй строке
Составьте программу , в результате выполнения которой в первой заданной строке...

В строке, состоящей из цифр заменить все цифры цифрами на единицу меньшими. Результат выводить на экран одним оператором write.
что то написал но ноль меняется на символ(а надо на -1 помогите))

2
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26149 / 17526 / 6950
Регистрация: 22.10.2011
Сообщений: 30,864
Записей в блоге: 6
18.01.2018, 19:58 2
Неправильный апостроф. Нужен прямой, который на той же кнопке, что и кавычки.
0
SerTyk
0 / 0 / 1
Регистрация: 17.01.2018
Сообщений: 7
18.01.2018, 20:16  [ТС] 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
Program Lab2;
Const b=2.4; c=1.7; 
Var x, a, y: real;
Begin
write ('Введите значение x=’); 
readln (x);
a:=3.5*b/(b+exp(3*ln(c)));
if x < 1 then y:=sqrt(abc(a+b/x)); 
else if x > 1 then y:=sqr(a*x+b*x); 
writeln (‘y=’, y); 
end.
Сделал пишет тоже самое

Добавлено через 15 минут
всё сделал программу, спасибо большое, за подсказку, изменил всё что не подходило!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.01.2018, 20:16

В чём различие write() и write(' ')
В чём различие?: write(); write(' ');

Выбрать в каждой строке матрицы из символов символ с наименьшим кодом и поставить его первым в строке матрицы.
Помогите написать программую Дана матрица размером M x N, состоящая из...

Заменить символ С в строке S на строку S1
Даны строки S и S1 а также C. Заменить символ С в строке S на S1


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

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

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