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

Строки

19.02.2010, 19:33. Просмотров 305. Ответов 3
Метки нет (Все метки)

Помогите найти ошибку: Определить запрашиваемое имя и фамилию. вывести в одну строку, определить длинну строки, посчитать кол-во букв "Y" в полученой строке.
У меня выполняются все условия кроме последнего, неполучаетя посчитать кол-во букв Y все время выводит 0

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var name,surname, symma:string;
s1,s2,s3,i,n:integer;
begin
Write('name');
readln(name);
Writ('surname');
readln('surname');
symma:= name+surname;
writeln(' You name and surname: ');
s1:=length(symma);
Writeln('Длинна фамилии и имени=',s1'символов');
s3:=0
for i:=1 to n do
if symma[i]='Y or y' then s3=s3+1
writeln(s3);
end.

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

0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.02.2010, 19:33
Ответы с готовыми решениями:

Слить две строки, вставив символы одной строки между символами другой строки
Строка a из n символов лексикографически меньше строки b из n символов, если...

Строки. Если в конце строки точка отсутствует, то найти слово, заканчивающееся точкой и перенести его в конец строки.
Дана строка, состоящая из слов и содержащая одну точку в конце одного из слов....

Из строки сформировать новую строку, содержащую символы цифр исходной строки
Из введенной символьной строки выбрать все цифры и сформировать другую строку...

Вырезать два первых символа символьной строки и поместить их в конец строки
Помоги те пожалуйста, решите сколько сможете. Задачи на строки. 2. Вырежьте...

Упорядочить строки матрицы по неубыванию сумм цифр элементов этой строки
Пусть дана матрица А(п х т). Упорядочьте строки по неубыванию сумм цифр...

3
yanyk1n
4333 / 1465 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
19.02.2010, 19:34 2
14:
Pascal
1
if (symm[i]='y')  or (symm[i]='Y') then s3:=s3+1;
0
XG9
0 / 0 / 0
Регистрация: 21.08.2009
Сообщений: 23
19.02.2010, 22:13  [ТС] 3
Цитата Сообщение от k1ry4 Посмотреть сообщение
14:
Pascal
1
if (symm[i]='y')  or (symm[i]='Y') then s3:=s3+1;
Все ровно не считает, пишет что 0 таких символов
0
][акер
#define книжный_червь Я
183 / 94 / 21
Регистрация: 30.01.2010
Сообщений: 780
19.02.2010, 22:46 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  a,b: string;
  c,d: byte;
begin
  write('Ima: ');
  readln(a);
  write('Familia: ');
  readln(b);
  a := a + ' ' + b;
  writeln(a);
  writeln('Dlina - ',length(a));
  for c := 1 to length(a) do
    if UpCase(a[c]) = 'Y' then inc(d);
  write('Kol-vo bukvy y ili Y: ',d);
  readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.02.2010, 22:46

Отсортировать строки матрицы по возрастанию сумм положительных элементов каждой строки
Дана прямоугольная матрица размером n x m, содержащая вещественные числа....

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

Указать номер строки, максимально удалённой от первой строки матрицы
Расстояние между каждой k-ой и l-ой строками матрицы А = ║aij║ определяется как...


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

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

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