11 / 11 / 4
Регистрация: 04.04.2010
Сообщений: 41
1

дороботать нада

15.06.2010, 18:45. Показов 335. Ответов 1
Метки нет (Все метки)

Дан текст, определить содержит ли он символы, отличные
от букв и пробела.

вот то што я сделал

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Program Laba3;
Uses Crt; 
Const
myset = ['A'..'z', 'А'..'п', 'р'..'я'];
Var
s: string;
i: byte; 
Begin
ClrScr;
Write ('vvedite stroku: ');
Readln (s);
for i := 1 to Length (s) do
if not (s [i] in myset + [' '])
then
begin
Writeln ('V vvedennoi stroke net bukvi ili probeli.');
Readln;
Exit;
end;
Writeln ('V vvedennoi stroke est bukv ili probelov.');
Readln;
End.
0

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

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.06.2010, 18:45
Ответы с готовыми решениями:

Блоксхемы оч оч нада!=((
Пожалуста ПОЖАЛУСТО! можете ктонить зделать блоксхемы на 2 этих программы 1 НОК двух чисел uses...

нада блок-схема
program Z1_2; uses crt; const A = True; B = True; C = False; x = 1.5; y = 2.5;...

нада блок-схема
uses crt,graph; type tpoint=record x,y:integer; end; var i,x0,y0,r,gd,gm:integer; p:array...

нада блок-схема
program Z7; type TSomeInts = 1..100; TIntSet = set of TSomeInts; function IsPrime(N:...

1
ЧакЭ одобряЭ
283 / 282 / 86
Регистрация: 27.12.2009
Сообщений: 1,767
15.06.2010, 19:04 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  s: string;
  i: integer;
 
begin
  readln(s);
  for i := 1 to length(s) do 
  begin
    if not (s[i]  in ['a'..'z', 'A'..'Z', 'а'..'я', 'А'..'Я']) and (s[i] <> ' ') then begin
      writeln('есть символы');
      break
    end;
  end;
end. {Если нет ничего не выведет}
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.06.2010, 19:04

нада блок-схема
program Z5; type Vector = array of Real; Matrix = array of Real; procedure ReadData(var...

Нада блок-схема
СТРОКИ (как одномерные массивы) Дано символьная строка. Заменить все символы '!' точками, кроме...

нада блок-схема
program Z9; type TArrayOfReal = array of real; PArrayOfReal = ^TArrayOfReal; var nA, nZ...

Найти площадь пятиугольника используя формулу Герона и растояние между двумя точками ! И при этом нада использовать процедуры и функции.
Всем привет.Помогите решить задачу. Заранее спасибо.... Найти площадь пятиугольника используя...


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

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

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