Забава
1

условный оператор! очень нужно "добить" их!!!!

09.01.2011, 01:10. Показов 9483. Ответов 1
Метки нет (Все метки)

1. Решить в целых числах уравнение ( ax + b ) : ( cx + d ) = 0. Вводятся 4 числа: a, b, c и d; c и d не равны нулю одновременно. Необходимо вывести все решения, если их число конечно, “NO” (без кавычек), если решений нет, и “INF” (без кавычек), если решений бесконечно много.
Примеры
Входные данные Выходные данные

1 -1
1
3
2

1 NO
1
1
1
Pascal
1
2
3
4
5
6
7
8
9
program n5;
uses crt;
var a,b,c,d,x:integer;
begin
read (a,b,c,d);
if (b=0) and (a<>0)then write('бесконечное число решений');
if (b<>0) and (a=0)then write('нет реш');
if (b<>0) and (a<>0) and (b mod a=0) then write (-b div a);
end.
(здесь по первому примеру выполняется, получается минус 1, но со вторым никак)

2. Даны действительные числа a, b, c. Найдите все решения квадратного уравнения ax2 + bx + c = 0.
Формат входных данных
Даны три действительных числа, a не равно 0.
Формат выходных данных
Выведите два действительных числа, если уравнение имеет два корня, одно действительное число – при наличии одного корня. При отсутствии действительных корней ничего выводить не нужно.

Pascal
1
2
3
4
5
6
7
8
9
program n6;
uses crt;
var a,b,c,d:real;
begin
read (a,b,c);
d:=b*b-4*a*c;
if d>0then write (-b-sqrt(d))/(2*a),'  ',(-b+sqrt(d))/(2*a) else
if d=0 then write(-b/(2*a));
end.
3. Бизнесмен Василий после прочтения известной книги решил открыть новый бизнес – отгружать апельсины бочками. Партнерам важно знать сколько именно бочек апельсинов отгружается каждый день.
Мобильный телефон Василия поддерживает только транслит, поэтому он передает сообщения вида "N bochek" . Например, "3 bochki" или "1 bochka" .
Напишите программу, которая выбирает правильное слово (из "bochka" , "bochek" , "bochki" ) в зависимости от N.
Формат входного файла
Одно число N (0 ≤ N ≤ 1000).
Формат выходного файла
Фраза на транслите
Ввод Вывод
1 1 bochka

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program n7;
uses crt;
var N,o:integer;
begin
read (N);
if N>=100 then o:=N mod 100 else
if (N>=5) and (N<=20) then write('бочек')else
begin o:=N mod 10;
if N>=100 then o:=N mod 100;
case o of
1: write ('бочка');
2,3,4: write ('бочки');
end;
end;
end.

куда тут записать условие, что если число бочек больше 100, то будет мод 100! не работает
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.01.2011, 01:10
Ответы с готовыми решениями:

Из слова "клоун" путем "вырезок" и "склеек" его букв получить слова "уклон","кулон" и "колун"
Из слова &quot;клоун&quot; путем &quot;вырезок&quot; и &quot;склеек&quot; его букв получить слова &quot;уклон&quot;,&quot;кулон&quot; и...

Задан текст, нужно узнать, стоят между ,буквами "a" и "z" цифры
Вот полное задание, помогите пожалуйста написать текст программы: Задан текст, состоящий из цифр...

Решение заданий типа "Array","Matrix","String","File","Text"""
большая просьба помочь решить где-то около 35-40 (из 100) задач (мне не понятных) типа массив и...

Написать программу проверки правильности написания сочетаний "жи", "ши", "ча", "ща", "чу", "щу". Исправить ошибки
дан текст.написать программу проверки правильности написания сочетаний &quot;жи&quot;, &quot;ши&quot;, &quot;ча&quot;, &quot;ща&quot;,...

1
Почетный модератор
64072 / 47483 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
09.01.2011, 14:23 2
3.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var n:integer;
begin
clrscr;
repeat
write('Введите число от 1 до 999 N = ');
read(n);
until (n>0)and(n<=999);
case n mod 100 of
11..14:write(n,' bochek');
else case n mod 10 of
     1:write(n,' bochka');
     2..4:write(n,' bochki');
     0,5..9:write(n,' bochek');
    end;
end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.01.2011, 14:23

"Программа линейной структуры" и "Оператор выбора"
1) Написать программу пересчета величины временного интервала,заданного в минутах,в...

Число прописью
помогите написать прогу которая б переводила любое число записаное так &quot;1&quot;....&quot;14&quot;...&quot;147&quot; в етоже...

Даны текстовый файл "F" и строка "S". Получить все строки файла "F", содержащие в качестве фрагмента строку "S".
Плиз помогите написать прогу: Даны текстовый файл &quot;F&quot; и строка &quot;S&quot;. Получить все строки файла &quot;F&quot;,...

После каждого символа "О" вставлять пробел и подсчитывать количество букв "А" стоящих между буквами "К" и "Л"
После каждого символа &quot;О&quot; вставлять пробел и подсчитывать количество букв &quot;А&quot; стоящих между буквами...


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

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

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