Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/11: Рейтинг темы: голосов - 11, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 10.05.2011
Сообщений: 5
1

Написать функцию function Test(word:string): boolean принимающую значение True, если строка является словом.

10.05.2011, 10:54. Показов 2240. Ответов 2
Метки нет (Все метки)

Помогите пожалуйста решить задачки,срочно надо

1)Написать функцию function Test(word:string): boolean принимающую значение True, если
строка является словом.
2)type name = (Mary, Jane, Kim, Bob, Jan, Pit, Tom, Sara, Bill, Pol);

data = record
male : boolean; {пол: true - мужской, false - женский}
height:140..200; {рост}
cost : word; {зарплата}
end;
group = array[name] of data;
Описать функцию CountCost(G), определяющую количество человек, чья зарплата выше общей средней зарплаты группы G.
3)type myfile = file of char;
Опишите процедуру add(f,c), добавляющую литеру с в начало файла f.
4)type ref = ^integer;
vector = array[1..17] of ref;
Описать функцию neg1(x), значением которой является первый из элементов вектора x, ссылающихся на отрицательные числа, или nil, если таких элементов нет
5)Пусть L - односвязный список с заглавным звеном
Написать процедуры добавления и удаления:
- в конец списка L новый элемент E;
- из непустого списка последний элемент

Заранее спасибо
0

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

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.05.2011, 10:54
Ответы с готовыми решениями:

Написать функцию function Test(word:string): boolean принимающую значение True, если
Написать функцию function Test(word:string): boolean принимающую значение True, если последнее...

Написать функцию function Test(word:string): boolean
Написать функцию function Test(word:string): boolean принимающую значение True, если Количество...

Напишите логическую функцию TEST (A, k), принимающую значение True, если k-я строка массива совпадает с k+1
Помогите пожалуйста. Напишите логическую функцию TEST(A, k), принимающую значение True, если k-я...

Написать функцию принимающую значение true
Если строка является перевертышем(палиандромом), то функция примет значение true

2
298 / 298 / 150
Регистрация: 07.05.2011
Сообщений: 592
10.05.2011, 12:37 2
Лучший ответ Сообщение было отмечено Lavi как решение

Решение

Добрый день!
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
function Test(aWord:string): boolean;
// Написать функцию function Test(word:string): boolean принимающую значение True,
// если строка является словом.
// Используем буквы английского алфавита
// lamed, 05.2011
var
  i: integer;
  len: integer;
begin
  len := length(aWord);
  Test:= true;
  i:= 1;
  while (i<=length(aWord)) and (aWord[i] in ['a'..'z']+['A'..'Z']) do
    i:= i+1;
  Test := i>len;
end;
 
var
  s: string;
begin
  readln(s);
  writeln(Test(s));
end.
1
0 / 0 / 0
Регистрация: 10.05.2011
Сообщений: 5
10.05.2011, 16:57  [ТС] 3
lamed,спасибо тебе
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.05.2011, 16:57

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

Массив: Получить массив В(15) типа boolean, присвоив k-му элементу значение true, если k-я строка симметрична
Задана целочисленная матрица А(15х20).Получить массив В(15) типа boolean, присвоив k-му элементу...

Составить логическую функцию, принимающую значение True, если точка D находится внутри ABC
Заданы треугольник ABC и точка D своими координатами (Xa,Ya), (Xb, Yb), (Xc,Yc) и (Xd,Yd)....

Составьте функцию, принимающую значение True, если все элементы вектора упорядочены по убыванию
Составьте функцию, принимающую значение True, если все элементы вектора упорядочены по убыванию, и...

Написать функцию которая возвращает значение true, если целое число n является чётным в противном случае false
Ребят напишите функцию в паскале...


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

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

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