Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.51/47: Рейтинг темы: голосов - 47, средняя оценка - 4.51
0 / 0 / 0
Регистрация: 06.04.2009
Сообщений: 30
1

Даны два действительных числа х и у. Вычислить их сумму, разность, произведение и частное.

06.11.2009, 17:39. Показов 9208. Ответов 3
Метки нет (Все метки)

Здраствуйте)порошу решить мне следующую задачу, пожалуйста=)
Тема: Создание собственного модуля. Компиляция модулей. Вызов модуля из основной программы.
1)Даны два действительных числа х и у. Вычислить их сумму, разность, произведение и частное.
2)Ввести строку символов, состоящую из N слов, разделённых пробелом и определить, сколько слов введено, кроме того, вывести все слова отдельно «столбцом».

заранее благодарю
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.11.2009, 17:39
Ответы с готовыми решениями:

Даны два действительных числа x и y. Вычислить их сумму, разность, произведение и частное
а)F=x^2(x^2+1) б)Даны два действительных числа x и y. Вычислить их сумму, разность, произведение и...

1. Даны два действительных числа х и у. Вычислить их сумму, разность, произведение и частное
Даны два действительных числа х и у. Вычислить их сумму, разность, произведение и частное.

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

Даны два действительных положительных числа х и у. Вычислить их сумму, разность, произведение и частное
ПОМОГИИИТЕЕЕ

3
Программист 1С
859 / 647 / 187
Регистрация: 03.03.2009
Сообщений: 1,154
06.11.2009, 17:41 2
crazybober, т.е тут три отдельных модуля и основная программа для ввода чисел...правильно?
0
0 / 0 / 0
Регистрация: 06.04.2009
Сообщений: 30
06.11.2009, 17:43  [ТС] 3
вроде так)
0
Программист 1С
859 / 647 / 187
Регистрация: 03.03.2009
Сообщений: 1,154
06.11.2009, 18:10 4
crazybober, Смотрите первое -- проверяйте так надо было сделать?
Вот модуль!
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Unit modul;
interface
procedure deist (a,b:integer);
implementation
Procedure deist (a,b:integer);
Var sum,proiz:integer;
    raz,chastnoe:real;
begin
sum:=a+b;
raz:=a-b;
Proiz:=a*b;
Chastnoe:=a/b;
Writeln ('Summa = ',sum);
Writeln ('Raznost = ',raz:4:2);
Writeln ('Proizvedenie = ',proiz);
Writeln ('Chastnoe = ',chastnoe:4:2);
end;
begin
end.
Вот основная программа!
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Program chisla;
Uses crt,modul;
Var a,b:integer;
    sum,proiz:integer;
    raz,chastnoe:real;
begin
clrscr;
Write ('a=');
Readln (a);
Write ('b=');
Readln (b);
writeln;
deist(a,b);
Readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.11.2009, 18:10

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

Даны два ненулевых числа. Найти их сумму, разность, произведение и частное
1. Даны два ненулевых числа. Найти их сумму, разность, произведение и частное.

Даны два действительных числа А и В. Получить их сумму, разность и произведение
Даны два действительных числа А и В. Получить их сумму, разность и произведение

Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей.
Составить программу для решения задачи: даны два ненулевых числа. Найти сумму, разность,...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru