Помогите разобраться с задачей:
Арифметические действия над числами пронумерованы следующим образом:
1-сложение,2-вычитание,3-умножение,4-деление.Дан номер действия и два числа
А и В (В не равно нулю). Выполнить над числами указанное действие и вывести результат.

Код

Program Begin67; var A,B,y:Real; x:Integer; stop:Boolean; begin stop:=false; repeat WriteLn; Write('Введите А,B:'); ReadLn(A,B); Write('Введите номер операции:'); ReadLn(x); case x of 1:y:=A+B; 2:y:=A-B; 3:y:=A*B; 4:y:=A/B; else stop:=true; WriteLn('ошибка!!!'); end; if not stop then WriteLn('Результат операции:',y); until stop end.

я никак не пойму куда ставить (if (B<>0) then....) чтоб после ввода нуля программа выдавала сообщение об ошибке и заканчивала работать, куда я только не пытался ставить If c Then-ом, нифига не получается.

Можно так:

Код

..... readln(A,B); if B=0 then halt; ......

Цитата(Fedor @ 11.5.2005, 19:21)

Можно так:

а можно и так:

Код

..... readln(A,B); if B=0 then    Begin     WriteLn('B=0! незя!');     Exit;   End; ......

а можно так

Код

repeat  readln(a,b); until b<>0;

Это сообщение отредактировал(а) Штык - 11.5.2005, 20:20

Спасибо, помогли !!!

kent, в следующий раз:
Название темы должно отражать ее суть!
Правила форума: http://forum.vingrad.ru/index.php?s=&act=SR&f=27

Да, действительно!

Вот задача: Даны две вещественные матрицы А(N*M), В(N*M). Получить матрицу С(N*M), каждый элемент которой равен сумме элементов i-строки матрицы А, которые отсутствуют в j-м столбце матрицы В. Использовать подпрограммы проверки наличия числа в j-м столбце матрицы В, вычисления суммы, формирования новой матрицы.
Очень на Вас надеюсь! Можно без подпрограмм, там я сама разберусь.
Вот пример с матрицами, если непонятно условие:

A=
1 2 3
4 5 1


B=
1 2 5
2 3 1

C=
c11 c12 c13
... ... ...

Т. е. с11=3 (т.к 1 есть в j-м столбце матрицы В); с12=1+3 (т.к. 2 есть есть в j-м столбце матрицы В) и т. д
Добавлено @ 23:56
Вот задача: Даны две вещественные матрицы А(N*M), В(N*M). Получить матрицу С(N*M), каждый элемент которой равен сумме элементов i-строки матрицы А, которые отсутствуют в j-м столбце матрицы В. Использовать подпрограммы проверки наличия числа в j-м столбце матрицы В, вычисления суммы, формирования новой матрицы.
Очень на Вас надеюсь! Можно без подпрограмм, там я сама разберусь.
Вот пример с матрицами, если непонятно условие:

A=
1 2 3
4 5 1


B=
1 2 5
2 6 1

C=
c11 c12 c13
... ... ...

Т. е. с11=3 (т.к 1 и 2 есть в j-м столбце матрицы В); с12=1+3 (т.к. 2 есть есть в j-м столбце матрицы В) и т. д

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

Ну хоть кто-нибудь! Пожалуйста!

anad, вот тебе основной блок программы (пока матрицы A, B заданы константами):

Спасибо, но мне нужно чисто на Паскале программу.

А я тебе что, на С++ написал? Ты ее ХОТЯ БЫ соизволила запустить, прежде чем что-то ответить? Не нравится - пиши сама!

Не идет что-то. И непонятна вот эта строчка:
if not exists_in_col(B, j, A[i, k])

Помогите решить задачу в Паскале

Это сообщение отредактировал(а) Nikk - 2.4.2006, 12:43

Присоединённый файл ( Кол-во скачиваний: 7 )
 ____8.doc 17,00 Kb