"Простая" программа в паскале

@Диана93 · Регистрация: 18.09.2010

Студворк — интернет-сервис помощи студентам

Вобщем помогите написать программу в паскале. В школе таких делов не проходили, поступила в университет и тут на тебе...на 2ое занятие лабораторная работа...
Вот самое задание 4 примера.

Комментарий модератора

На изображении

В начале знаю, надо писать:

Pascal
1
2
3
4
5
6
7
8
Program Lab1;
uses crt;
var x,y,z,r1,r2,r3:real;
begin
clrscr
writeln('Enter x,y');
readln(x,y);
r1:= ..........

а вот дальше не знаю. С самим переводом на язык паскаль проблемы=(
Знающие люди, помогите пожалуйста.
Знаю, что в конце при нажатии ctrl F9 появляется черный экран и просят ввести значения х и у, а потом выдает результат r1 и тд...Надеюсь на вашу помощь...

@Jaguar · 18.09.2010, 22:14

3

Pascal
1
2
3
4
5
6
7
8
9
10
uses crt;
var x,y,t,gr,many,m,m1:real;
begin
Writeln('Введите X:');
readln(x);
Writeln('Введите T:');
readln(t);
many:=(cos(x)*cos(x)*x+sin(x)*Sqr(x)/35*x*t);
Writeln(Sqrt(many));
end.

Добавлено через 3 минуты
1
не помню точно,как делать

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
var x,y,t,gr,many,m,m1,e:real;
begin
Writeln('Введите X:');
readln(x);
Writeln('Введите Y:');
readln(y);
Writeln('Введите E:');
readln(e);
many:=Sqr(5*x*y)-x*x*x*x*x*x-e*(-x)*(-x);
Writeln(many);
end.

Добавлено через 5 минут
4
не проверял

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var x,y,many,many1,many2,e:real;
begin
Writeln('Введите X:');
readln(x);
Writeln('Введите Y:');
readln(y);
Writeln('Введите E:');
readln(e);
many1:=abs(x)+1/3*2;
many2:=(-e*-e*-e*x)-(0.4)/(5+7*y);
many:=many1+many2;
Writeln(many);
end.

Добавлено через 2 минуты
2,еще не проходил

@Demon-red · 18.09.2010, 22:33

2

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
const
    x = 2; y = 2;
var
    s, t : real;
begin
 clrscr;
 s := Exp(1/3 * Ln(x + 4));
 t :=  Exp(2 * Ln(cos(x*y / (3*y + 1)) / sin(x*y / (3*y+1))));
 s := s - t;
 writeln('s = ',s:4:4);
 readln;
end.

Добавлено через 3 минуты
1

Pascal
1
2
3
4
5
6
7
8
9
10
uses crt;
const x = 0.3;
      y = 1;
var s : real;
begin
 clrscr;
 s := Exp(2*y*x *Ln(5)) - Exp(5*x*Ln(5)) - Exp(-sqr(x));
 writeln('s = ',s:3:3);
 readln;
end.

@Диана93 · 19.09.2010, 21:03 **[ТС]**

Спасибо большое за помощь, сегодня проверю...)

Добавлено через 5 часов 13 минут
Ребят, проверьте пожалуйста...насчет 3тьего примера терзают сомнения. И еще почему-то при запуске программы когда меня просят ввести значения х и у, программа считает сразу r1 r2 r3 и r4, а мне какбы нужно чтобы сначала посчитался ответ r1, потом просят ввести опять новые значение х и у и считается r2 и тд... Вобщем вот что у меня получилось...

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Program Lab1;
uses crt;
var x,y,z,r1,r2,r3,r4,t:real;
begin
clrscr;
Writeln('Enter x,y');
readln(x,y);
r1:= Exp(2*y*x *Ln(5)) - Exp(5*x*Ln(x)) - Exp(-sqr(x));
writeln('r1=',r1:7:2);
writeln('Enter x,y');
r2:= Exp(1/3 * Ln(x + 4))-Exp(2 * Ln(cos(x*y / (3*y + 1)) / sin(x*y / (3*y+1))));
writeln ('r2=',r2:7:2);
writeln ('Enter x,t');
r3:=(cos(x)*cos(x)*x+sin(x)*Sqr(x)/35*x*t);
writeln('r3=',r3:7:2);
writeln('Enter x,y');
r4:=((abs(x)+1)/6) + ((exp(-3*x)-0.4)/(5+7*y));
writeln('r4=',r4:7:2);
readln;
end.

Заранее благодарю за помощь...

Добавлено через 4 часа 42 минуты
ап...

@Jaguar · 19.09.2010, 21:56

вот по правильней

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
uses crt;
var x,y,z,r1,r2,r3,r4,t:real;
begin
repeat
Writeln('Enter x,y');
readln(x,y);
r1:= Exp(2)*y*x*Ln(5) - Exp(5*x*Ln(x)) - Exp(-sqr(x));
writeln('r1=',r1);
 
writeln('Enter x,y');
readln(x,y);
r2:= Exp(1/3 * Ln(x + 4))-Exp(2) * Ln(cos(x*y / (3*y + 1)) / sin(x*y / (3*y+1)));
writeln ('r2=',r2);
 
writeln ('Enter x,t');
readln(x,t);
r3:=(cos(x)*cos(x)*x+sin(x)*Sqr(x)/35*x*t);
writeln('r3=',r3);
writeln('Enter x,y');
readln(x,y);
 
r4:=((abs(x)+1)/6) + ((exp(-3)*x)-0.4)/(5+7*y);
writeln('r4=',r4);
until (x>20)or(y>20);
end.

Добавлено через 13 минут

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
uses crt;
var x,y,z,r1,r2,r3,r4,t:real;
procedure a;
begin
Writeln('Enter x,y');
readln(x,y);
r1:= Exp(2)*y*x*Ln(5) - Exp(5*x*Ln(x)) - Exp(-sqr(x));
writeln('r1=',r1);
end;
procedure b;
begin
writeln('Enter x,y');
readln(x,y);
r2:= Exp(1/3 * Ln(x + 4))-Exp(2) * Ln(cos(x*y / (3*y + 1)) / sin(x*y / (3*y+1)));
writeln ('r2=',r2);
end;
procedure c;
begin
writeln ('Enter x,t');
readln(x,t);
r3:=(cos(x)*cos(x)*x+sin(x)*Sqr(x)/35*x*t);
writeln('r3=',r3);
end;
procedure d;
begin
writeln('Enter x,y');
readln(x,y);
r4:=((abs(x)+1)/6) + ((exp(-3)*x)-0.4)/(5+7*y);
writeln('r4=',r4);
end;
var otvet:String;
 
BEGIN
repeat
Writeln('Какую будем выводить формулу (1,2,3,40?');
readln(otvet);
if otvet ='1' then clrScr; a;
if otvet ='2' then clrScr; b;
if otvet ='3' then clrScr; c;
if otvet ='4' then clrScr; d;
 
END.

Добавлено через 20 минут
вот

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
uses crt;
var x,y,z,r1,r2,r3,r4,t:real;
procedure a;
begin
Writeln('Enter x,y');
readln(x,y);
r1:= Exp(2)*y*x*Ln(5) - Exp(5*x*Ln(x)) - Exp(-sqr(x));
writeln('r1=',r1);
end;
procedure b;
begin
writeln('Enter x,y');
readln(x,y);
r2:= Exp(1/3 * Ln(x + 4))-Exp(2) * Ln(cos(x*y / (3*y + 1)) / sin(x*y / (3*y+1)));
writeln ('r2=',r2);
end;
procedure c;
begin
writeln ('Enter x,t');
readln(x,t);
r3:=(cos(x)*cos(x)*x+sin(x)*Sqr(x)/35*x*t);
writeln('r3=',r3);
end;
procedure d;
begin
writeln('Enter x,y');
readln(x,y);
r4:=((abs(x)+1)/6) + ((exp(-3)*x)-0.4)/(5+7*y);
writeln('r4=',r4);
end;
var otvet:String;
 v:boolean;
BEGIN
v:=true;
repeat
Writeln('Какую будем выводить формулу (1,2,3,40]?');
readln(otvet);
Writeln;
if otvet ='1' then begin clrScr; a;  end;
if otvet ='2' then begin clrScr; b;     end;
if otvet ='3' then begin clrScr; c;   end;
if otvet ='4' then begin clrScr; d;       end;
until v=false;
END.

Добавлено через 4 минуты
вот окончательное решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
uses crt;
var x,y,z,r1,r2,r3,r4,t:real;
procedure a;
begin
Writeln('Enter x,y');
readln(x,y);
r1:= Exp(2)*y*x*Ln(5) - Exp(5*x*Ln(x)) - Exp(-sqr(x));
writeln('r1=',r1);
end;
procedure b;
begin
writeln('Enter x,y');
readln(x,y);
r2:= Exp(1/3 * Ln(x + 4))-Exp(2) * Ln(cos(x*y / (3*y + 1)) / sin(x*y / (3*y+1)));
writeln ('r2=',r2);
end;
procedure c;
begin
writeln ('Enter x,t');
readln(x,t);
r3:=(cos(x)*cos(x)*x+sin(x)*Sqr(x)/35*x*t);
writeln('r3=',r3);
end;
procedure d;
begin
writeln('Enter x,y');
readln(x,y);
r4:=((abs(x)+1)/6) + ((exp(-3)*x)-0.4)/(5+7*y);
writeln('r4=',r4);
end;
var otvet:String;
 v:boolean;
BEGIN
v:=true;
Writeln;
repeat
Writeln;
Writeln('Какую будем выводить формулу (1,2,3,4)?');
readln(otvet);
Writeln;
if otvet ='1' then begin clrScr; a;  end;
if otvet ='2' then begin clrScr; b;     end;
if otvet ='3' then begin clrScr; c;   end;
if otvet ='4' then begin clrScr; d;       end;
until v=false;
Writeln;
END.

@GreeNPk · 28.11.2011, 20:44

№2) Проверить, являются ли данные три числа взаимно простыми(x,y,z).
№3) Определить, равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа.
№4) Написать программу решения уравнения ax^3+bx=0 для произвольных a,b.
№5) Составить программу для проверки утверждения: Результатами вычислений по формуле x^2+x+17 при 0≤x≤15 являются простые числа.
Все результаты вывести на экран.
№6) Даны действительное число a, натуральное число n. Вычислить:
S= 1\a+1\a^2+1\a^4+...+1\a^(2n-2)
Помогите пожалуйста, не могу написать сам, стоит win7 64x((((

@say_yes · 30.11.2011, 19:12

о великие умы, помогите пожалуйста с массивами!!
1.Даны координаты n точек на плоскости: (X1, Y1), ..., (Xn, Yn) (n<=30). Найти номера пары точек, расстояние между которыми наибольшее (считать, что такая пара единственная). Использовать функцию или процедуру. не использовать extended.

2.Задана квадратная матрица. Переставить строку с максимальным элементом на главной диагонали со строкой с заданным номером m.Использовать функцию или процедуру.
сделайте пожалуйста чтобы через функцию или процедуру было:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
var A:array [1..10,1..10] of integer;
n,i,j,t,b,m:integer;
begin
writeln('введите размерность ');
readln(n);
writeln('введите массив ');
for i:=1 to n do
for j:=1 to n do
readln(A[i,j]);
writeln('введите номер строки ');
readln(m);
b:=1;
for i:=2 to n do
if A[i,i]>A[b,b] then
b:=i; 
for i:=1 to n do
begin
for j:=1 to n do
write(A[i,j]:4);
writeln;
end;
for j:=1 to n do
begin
t:=a[b,j];
A[b,j]:=A[m,j];
A[m,j]:=t;
end;
writeln;
for i:=1 to n do
begin
for j:=1 to n do
write(A[i,j]:4);
writeln;
end;
end.

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@GreeNPk 0 / 0 / 0 Регистрация: 28.11.2011 Сообщений: 5
	28.11.2011, 20:44
	№2) Проверить, являются ли данные три числа взаимно простыми(x,y,z). №3) Определить, равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа. №4) Написать программу решения уравнения ax^3+bx=0 для произвольных a,b. №5) Составить программу для проверки утверждения: Результатами вычислений по формуле x^2+x+17 при 0≤x≤15 являются простые числа. Все результаты вывести на экран. №6) Даны действительное число a, натуральное число n. Вычислить: S= 1\a+1\a^2+1\a^4+...+1\a^(2n-2) Помогите пожалуйста, не могу написать сам, стоит win7 64x(((( 0