Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
katariada
0 / 0 / 0
Регистрация: 13.07.2011
Сообщений: 6
1

Определить пройдет ли кирпич через отверстие

13.07.2011, 13:13. Просмотров 643. Ответов 6
Метки нет (Все метки)

Пожалуйста,помогите написать 2 программы и объединить их....Плизззз,помогите...((Завтра уже нужно относить отчет(((

в основной программе должен быть оператор выбора задач,оформленные в виде подпрограмм,описание которых находятся в модуле.

Первая :заданы размеры А и В прямоугольного отверстия и размеры х,у,z кирпича. Определить пройдет ли кирпич через отверстие.
Вторая : из заданной символьной строки выбрать те символы,которые встречаются в ней только один раз,в том порядке,в котором они встречаются в тексте.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.07.2011, 13:13
Ответы с готовыми решениями:

Ветвление: Определить, пройдет ли кирпич через отверстие заданных размеров
заданы размеры А, В прямоугольного отверстия и размеры x, y, z кирпича. определить пройдет ли...

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

Определить, пройдет ли кирпич с ребрами a, b, c в прямоугольное отверстие
Вообщем нужно написать задачу в паскале: Определить, пройдет ли кирпич с ребрами a, b, c в...

Пройдет ли кирпич в прямоугольное отверстие
З'ясувати, чи пройде цегла з ребрами A, B, C в прямокутний отвір зі сторонами x і y.

Заданы размеры прямоугольного отверстия и размеры кирпича. Определить, пройдет ли кирпич в отверстие
Заданы размеры прямоугольного отверстия A,B и размеры кирпича X,Y,Z. Определить, пройдет ли кирпич...

6
Puporev
Модератор
57780 / 44025 / 30400
Регистрация: 18.05.2008
Сообщений: 105,259
13.07.2011, 14:16 2
Текст модуля.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
unit unit1;
interface
var a,b,x,y,z:real;
    s:string;
    i,k,w:integer;
procedure Kirpich ;
procedure Stroka;
implementation
procedure Kirpich ;
begin
writeln('Пройдет ли кирпич в прямоугольное отверстие?');
writeln;
writeln('Введите три числа - размеры кирпича:');
read(x,y,z);
writeln('Введите два числа - размеры прямоугольного отверстия:');
readln(a,b);
if ((x<=a)and(y<=b))
    or((x<=a)and(z<=b))
    or((y<=a)and(z<=b))
    or((x<=b)and(y<=a))
    or((x<=b)and(z<=a))
    or((y<=b)and(z<=a))
then write('Пройдет!')
else write('Не пройдет!');
readln
end;
procedure Stroka;
begin
writeln('Введите строку:');
read(s);
writeln('Символы встречаются 1 раз:');
k:=0;
for i:=1 to length(s) do
if(pos(s[i],copy(s,1,i-1))=0)and(pos(s[i],copy(s,i+1,length(s)-i))=0)then
 begin
  k:=k+1;
  write(s[i]);
 end;
if k=0 then write('Таких символов нет')
else
 begin
  writeln;
  write('Количество=',k);
 end;
readln
end;
end.
Текст программы.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt,unit1;
begin
repeat
clrscr;
writeln('Выберите действие:');
writeln('1-Кирпич');
writeln('2-Символы 1 раз');
writeln('3-Выход');
repeat
read(w);
until w in [1..3];
case w of
1:Kirpich;
2:Stroka;
3:exit;
end;
until w=3;
end.
1
katariada
0 / 0 / 0
Регистрация: 13.07.2011
Сообщений: 6
13.07.2011, 15:31  [ТС] 3
я как поняла,первая программа уже объединенная?
0
Puporev
Модератор
57780 / 44025 / 30400
Регистрация: 18.05.2008
Сообщений: 105,259
13.07.2011, 15:40 4
Какая первая программа? Здесь модуль и программа, все в одном экземпляре.

Добавлено через 54 секунды
Цитата Сообщение от katariada Посмотреть сообщение
Завтра уже нужно относить отчет(((
Какой Вам нафиг отчет, если в голове по нолям...
0
katariada
0 / 0 / 0
Регистрация: 13.07.2011
Сообщений: 6
13.07.2011, 23:12  [ТС] 5
спасибо,уже разобралась

Добавлено через 7 часов 28 минут
извините за вопрос,но как их объединить?(
0
Puporev
Модератор
57780 / 44025 / 30400
Регистрация: 18.05.2008
Сообщений: 105,259
14.07.2011, 08:03 6
Просто положить модуль и программу в одну папку и запускать программу.
0
katariada
0 / 0 / 0
Регистрация: 13.07.2011
Сообщений: 6
14.07.2011, 08:52  [ТС] 7
спасибо огромное. Все работает!
0
14.07.2011, 08:52
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.07.2011, 08:52

Выяснить пройдет ли кирпич с ребрами а,в,с в прямоугольное отверстие со сторонами х и y
Даны действительные положительные числа а,в,с,х,у. Выяснить пройдет ли кирпич с ребрами а,в,с в...

Пройдет ли брусок в прямоугольное отверстие
1 Есть прямоугольный брусок со сторонами а, b, с. Определить, пройдет ли он в прямоугольное...

Пройдет ли брусок в прямоугольное отверстие
1. Есть прямоугольный брусок со сторонами а, b, с Определить, пройдет ли он в прямоугольное...


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

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

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