Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
popenyuk
0 / 0 / 0
Регистрация: 18.10.2016
Сообщений: 26
Завершенные тесты: 1
#1

Проверить деталь на брак - Pascal ABC

14.11.2016, 22:26. Просмотров 162. Ответов 1
Метки нет (Все метки)

Написать программу, которая проверяет деталь на брак. Бракованной считается деталь, размер которой отличается от эталонного значения на величину . Задать эталон и размер 4-х деталей
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.11.2016, 22:26
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Проверить деталь на брак (Pascal ABC):

Определение подходящих кандидатур для вступления в брак - Pascal
Всем Привет :) Помогите Составить программу для определения подходящих кандидатур для вступления в брак, используя следующие...

Определение подходящего возраста кандидатуры для вступления в брак - Pascal ABC
Составить программу для определения подходящего возраста кандидатуры для вступления в брак, использующее следующее соображение: возраст...

Определение подходящего возраста кандидатуры для вступления в брак - Pascal ABC
помогите пожалуйста с решением двух задач V.Операторы выбора 23. Составить программу для определения подходящего возраста кандидатуры...

Нарисовать деталь - Pascal ABC
Помогите, пожалуйста, нарисовать деталь в Паскаль АВС. Очень нужно, а у самих не получается. Деталь сложная, описать словами ее не...

Нужно нарисовать деталь - Pascal ABC
Помогите, а то я не понимаю как это делать!!!!!!! Нужно составить программу, которая рисует деталь в виде кольца внешним радиусом150 и...

Нариовать деталь с отверстиями равными n. - Pascal ABC
Составте программу, которая рисует деталь в виде кольца с внешним радиусом 150 и внутренним радиусом 50, в котором вырезанны отверстия...

1
popenyuk
0 / 0 / 0
Регистрация: 18.10.2016
Сообщений: 26
Завершенные тесты: 1
21.11.2016, 20:09  [ТС] #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program m;
var   A_1,A_2,A_3,A_4,r,e:integer;
begin    ;
  writeln('Ââåäèòå Г°Г*çìåðû ГЅГІГ*ëîГ*Г*îé äåòГ*ëè');
  readln(e);
  writeln('Ââåäèòå Г¬Г*ГЄГ±ГЁГ¬Г*ëüГ*ûþ ïîãðåøГ*îñòü');
  readln(r);
  writeln('Ââåäèòå Г°Г*çìåðû ÷åòûðåõ äåòГ*ëåé');
  readln(A_1,A_2,A_3,A_4);
  if (e-A_1>r) or (A_1-e>r) then writeln('A_1-ГЎГ°Г*êîâГ*Г*')
  else if (e-A_1<r) or (A_1-e<r) then writeln('A_1-Г*ГҐ ГЎГ°Г*êîâГ*Г*');
  if (e-A_2>r) or (A_2-e>r) then writeln('A_2-ГЎГ°Г*êîâГ*Г*')
  else if (e-A_2<r) or (A_2-e<r) then writeln('A_2-Г*ГҐ ГЎГ°Г*êîâГ*Г*');
  if (e-A_3>r) or (A_3-e>r) then writeln('A_3-ГЎГ°Г*êîâГ*Г*')
  else if (e-A_3<r) or (A_3-e<r) then writeln('A_3-Г*ГҐ ГЎГ°Г*êîâГ*Г*');
  if (e-A_4>r) or (A_4-e>r) then writeln('A_4-ГЎГ°Г*êîâГ*Г*')
  else if (e-A_1<r) or (A_4-e<r) then writeln('A_4-Г*ГҐ ГЎГ°Г*êîâГ*Г*');
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.11.2016, 20:09
Привет! Вот еще темы с ответами:

Можно ли из полосы получить призматическую деталь с размерами x*y*z? - Pascal
Полоса стального прокта имеет сечение А*В. Можно ли из этой полосы получить призматическую деталь с размерами x*y*z?. Какова должна быть...

На контроль взята одна деталь. Какова вероятность, что она имеет брак? - Теория вероятностей
1)На трех станках различной марки изготавливается определенная деталь. Производительность 1-го станка за смену составляет 38 деталей, 2-го...

Деталь «A» вентиля неподвижна, деталь «B» движется поступательно справа налево - MathCAD
1. Используя компьютерные программы, построить график зависимости проходного сечения вентиля от перемещения детали «B»; 2. Создать...

брак - Теория вероятностей
на некотором предприятии доля брака составляет в среднем 0,2%. Какова вероятность того, что в партии состоящей из 500 изделий этого...


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

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

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