Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.62/13: Рейтинг темы: голосов - 13, средняя оценка - 4.62
yKp0n4uk
1

Оператор безусловного перехода и оператор варинта.

19.04.2010, 18:32. Показов 2332. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
1.Даны три вещественных числа x,y,z.Найти максимальное из них.(решить с помощью оператора безусловного перехода или с помощью оператора варианта)
2.Написать программу решения квадратного уравнения.Программы должны проверяться правильностью исходных данных и в случаи,когда коэффициент при второй степени неизвестного равен нулю,выводит соответсвующее сообщение.Ниже представленный рекомендуемый вид во время работы программы(данные введеные пользователем,выделены полужирным шрифтом).
Решение квадратного уравнения.
Введите в данной строке значения коэффициента и нажмите (Enter)
->12 27 -10
Корни уравнения :
x1=-25.551;
x2=-28.449.

Очень прошу попробуйте решить хоть одну)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.04.2010, 18:32
Ответы с готовыми решениями:

Оператор выбора, оператор перехода.
Единицы массы пронумерованы следующим образом:1-килограмм,2-миллиграм,3-грамм,4-тона,5-центнер.Дан...

Контрольная по вводу/выводу , оператор условного перехода
Помогите сложить блок-схему и написать программу к к двум заданиям 1)Операторы ввода/вывода...

Условный оператор и оператор множественного выбора
Много заданий написал, но я уверен, что решить их не составит вам труда (не то что мне), хоть...

нужно поменять оператор if на оператор выбора...
uses crt; var f,n:integer; a,b,w:real; i:longint; begin clrscr; writeln('0'); ...

3
11 / 11 / 4
Регистрация: 04.04.2010
Сообщений: 41
19.04.2010, 19:01 2
//
//
Pascal
1
2
3
4
5
6
7
8
9
writeln('vvesti 3 chisla'); 
readln(x,y,z) 
if x>y and x> z then begin 
a:=x; goto 1; end 
else 
if y>x and y> z then begin 
a:=y; goto 1; end 
else a:= z; 
1: writeln ('max= ',a);
//
//

Добавлено через 16 секунд
ет первая....
1
yKp0n4uk
19.04.2010, 20:46 3
Напиши плз понятней без //
11 / 11 / 4
Регистрация: 04.04.2010
Сообщений: 41
19.04.2010, 21:13 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var x,y,z,a:byte;
label 1;
begin
writeln('vvedite 3 chisla');
readln(x,y,x);
if (x>y) and (x>z) then begin a:=x; goto 1; end
else begin
if (y>x) and (y>z) then begin a:=y; goto 1; end
else begin a:=z; goto 1; end; end;
1:writeln('max= ',a);
readln;
end.
0
19.04.2010, 21:13
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.04.2010, 21:13
Помогаю со студенческими работами здесь

Условный оператор. Оператор выбора
Помогите пожалуйста с задачей, то я в поскале чайник)! Определить , пересекает ли парабола y=ax +...

Оператор if и оператор сase
дана система уровнение 1)a*x^2+b/c при x<1 и с<>0 2)x-a/(x-c)^2 при x 1.5 и с=0 3) x^2/c^2 надо...

оператор FOR
Составит программу ,используя оператор FOR. Написать программу ,которая вводит с клавиатуры...

оператор for
1.Напишите программу которая вычисляет сумму целых чисел от 1 до N. значение N вводится с...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru