| ← Октябрь 2019 → | ||||||
|
1
|
2
|
3
|
4
|
5
|
||
|---|---|---|---|---|---|---|
|
8
|
9
|
10
|
11
|
12
|
||
|
16
|
17
|
18
|
19
|
|||
|
23
|
24
|
25
|
26
|
27
|
||
|
31
|
||||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Консультация # 196634: Уважаемые эксперты! Помогите пожалуйста! [img]https://b.radikal.ru/b25/1910/71/6d02f43fdfce.jpg[/img]... Консультация # 196627: Здравствуйте! У меня возникли сложности с таким вопросом: Нужно вывести на экран 1 или 0 в зависимости от того, равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр.  ...Конс ультация # 196628: Здравствуйте! У меня возникли сложности с таким вопросом: Дано цело число k от 1 до 180. Нужно определить, какая цифра находится в k-й позиции последовательности 10111213...9899, в которой выписаны подряд все двузначные числа. Спасибо... Здравствуйте, уважаемые эксперты!
Дата отправки: 10.10.2019, 10:52 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, Satana666! Код (Pascal) :: выделить код uses vcl;
//$VCLDESIGN+
var
Form1: Form;
TextLabel1: TextLabel;
TextLabel2: TextLabel;
TextLabel3: TextLabel;
TextLabel4: TextLabel;
Edit1: Edit;
Edit2: Edit;
Edit3: Edit;
Button1: Button;
//$VCLDESIGN-
procedure CalcForm;
var
t,x,y,z:real;
begin
Button1.visible:=false;
x:=StrToFloat(Edit1.Text);
y:=StrToFloat(Edit2.Text);
z:=StrToFloat(Edit3.Text);
TextLabel4.Caption:='T:= '+FloatToStr((2*cos(x-pi/6)*(1+z*z/(3-z*z/5)))/(0.5+sin(y)*sin(y)));
end;
procedure InitControls;
begin
Form1:= Form.Create(0,0,200,181);
Form1.InitControl(True,False,alNone,crDefault,clBtnFace,'Enter value','');
TextLabel1:= TextLabel.Create(Form1,10,15,150,30);
TextLabel1.InitControl(True,True,alNone,crDefault,clBtnFace,'X:=','');
TextLabel2:= TextLabel.Create(Form1,10,45,150,30);
TextLabel2.InitControl(True,True,alNone,crDefault,clBtnFace,'Y:=','');
TextLabel3:= TextLabel.Create(Form1,10,75,150,30);
TextLabel3.InitControl(True,True,alNone,crDefault,clBtnFace,'Z:=','');
TextLabel4:= TextLabel.Create(Form1,10,105,150,30);
TextLabel4.InitControl(True,True,alNone,crDefault,clBtnFace,'T:=','');
Edit1:= Edit.Create(Form1,30,10,150,30);
Edit1.InitControl(True,True,alNone,crDefault,clWindow,'','');
Edit2:= Edit.Create(Form1,30,40,150,30);
Edit2.InitControl(True,True,alNone,crDefault,clWindow,'','');
Edit3:= Edit.Create(Form1,30,70,150,30);
Edit3.InitControl(True,True,alNone,crDefault,clWindow,'','');
Button1:= Button.Create(Form1,30,100,150,30);
Button1.InitControl(True,True,alNone,crDefault,0,'Calc?','');
Button1.OnClick:=CalcForm;
Form1.Position:= poScreenCenter;
Form1.Show;
end;
begin
InitControls;
end.Получается так:  Но это не совпадает с: © Цитата: Satana666 Нужно чтобы в ответе получилось t=0.564849 Удачи!
Уважаемые эксперты!
Дата отправки: 10.10.2019, 10:57 Консультирует puporev (Профессионал): Здравствуйте, Satana666! Код (Pascal) :: выделить код var x,y,f,a:real;
k:integer;
begin
write('Введите x,y');
readln(x,y);
repeat
writeln('Выберите функцию 1: x^2 2: sh(x) 3: e^x');
readln(k);
until k in [1..3];
case k of
1:f:=x*x;
2:f:=(exp(x)-exp(-x))/2;
3:f:=exp(x);
end;
if x*y>0 then a:=sqr(f+y)-sqrt(f*y)
else if x*y>0 then a:=sqr(f+y)+sqrt(abs(f*y))
else a:=sqr(f+y)+1;
write('a=',a:0:3)
end.
Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 10.10.2019, 10:04 Консультирует zdwork (6-й класс): Здравствуйте, dkhrebtovich! Код (Pascal) :: выделить код { Вывести на экран 1 или 0 в зависимости от того, равна сумма двух первых цифр
заданного четырехзначного числа сумме двух его последних цифр.}
Program Sum_cifr;
var
i:integer;
begin
readln(i);
writeln(ord((i div 1000)+(i mod 1000 div 100)=((i mod 100) div 10)+(i mod 10)));
end.
Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 10.10.2019, 10:08 Консультирует zdwork (6-й класс): Здравствуйте, dkhrebtovich! Код (Pascal) :: выделить код { Дано цело число k от 1 до 180. Нужно определить, какая цифра находится в k-й позиции
последовательности 10111213...9899, в которой выписаны подряд все двузначные числа.}
Program Cifra_v_k;
var
k, i: integer;
s, x: string; // string - строка;
begin
for i := 10 to 99 do s := s + IntToStr(i); // IntToStr - преобразование целого числа в строку
writeln(s);
write('Введите число k: ');
readln(k);
x := s[k]; // k - рассматривается как элемент массива
writeln(k, '-я цифра: ', x)
end.2 - ой вариант... Код (Pascal) :: выделить код { Дано цело число k от 1 до 180. Нужно определить, какая цифра находится в k-й позиции
последовательности 10111213...9899, в которой выписаны подряд все двузначные числа.}
program Cifra_v_k;
var
k, x: integer;
begin
write('Введите число k: ');
readln(k);
x := ((k - 1) div 2) + 10;
if (k mod 2 <> 0) then
x := x div 10
else x := x mod 10;
writeln(k, '-я цифра: ', x)
end.Выбирай...
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
