Две задачи в одной

@CzarK · Регистрация: 01.05.2013

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

Доброго времени суток.
Начну сразу с вопроса и самих задач с предисловием:
Нет, я не вспомнил об это за день до сдачи; я уже пытался сдать работу, но у меня не получается добиться желаемого.
Собственно, условия задач и моё решение (не верное):
1. Пользуясь операторами присваивания ввода, вывода решить задачу: треугольник задан величинами своих углов и радиусом описанной окружности. Найти стороны треугольника.
2. Определить число, полученное выписыванием в обратном порядке цифр трёхзначного числа.
Да, вы можете подумать, мол, дурак - не посмотрел соседние темы. Вот и нет. Посмотрел. Решил (частично не верные были ответы) и списал=дописал большую часть, но на паре узнал, что задачи надо было совместить одну.
Прямо там же начал импровизировать, так сказать и искать выход из ситуации. Не много не доделал, сказал препод (у меня сначала вылазило сообщение, что это является правдой или ложью, позже оказалось, что надо, чтобы значения сами вписывались).

Я приложу Фотографии своей переписанной работы в тетрадь (я, честно, не знаю, как воспользоваться редактором для ввода моего решения=задачи).

ЗЫ: химик, 2 курс.
ЗЗЫ: также имею желание почитать о программировании в Pascal. Если есть небольшое пособие - дайте, пожалуйста, почитать. Но, вот работу надо мне по скорее сдать, дабы хвостов не появилось.

@CzarK · 08.11.2013, 16:34 **[ТС]**

Собственно, сразу добавляю:
Помимо .pas надо создать файл .inf, где в столбик вводятся значения.
Судя по ещё одному расширению .txt понимаю, что надо ещё и такой создать?

Вообщем, я не понял, в какой последовательности чего надо создавать, а также не могу найти свои ошибки.

@Puporev · 08.11.2013, 16:35

Сообщение от CzarK

Я приложу Фотографии своей переписанной работы

Ну и любуйся ими... Между делом полистай форум, посмотри как пишут задания и выкладывают коды программ.
Почитай также это
https://www.cyberforum.ru/abou... 03521.html

@CzarK · 08.11.2013, 16:38 **[ТС]**

Сообщение от Puporev

Ну и любуйся ими

Не грубите

@Puporev · 08.11.2013, 16:40

Не по теме:

У какие мы нежные, хоть и с протянутой рукой...

@CzarK · 08.11.2013, 17:00 **[ТС]**

Сообщение от Puporev

Не по теме:

У какие мы нежные, хоть и с протянутой рукой...

Когда являешься модератором ничего не боишься, да?

Я считаю, что найдутся люди, которые поймут, что делал как никак сам (я про совмещение 2-х задач) и помогут мне. Так что хватит сорить лишними сообщениями. Только в глазах скрежет от этого. По теме бы лучше писали.

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

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
Program DOM2;
var A, B, C, alfa, beta, gamma, r: real;
i, j: integer;
inf, outf: text;
begin
assign (inf, 'inf.dat');
assign(outf,'outf.txt');
reset(inf);
rewrite(outf);
 
{*Первая задача*}
writeln('*Первая задача*');
writeln(outf,'*Первая задача*');
 
read(inf, alfa, beta, gamma, r);
 
write('alpha=' ??
write(beta=' ??
write('gamma' ??
write('R=' ??
 
A:=2*r*sin(alfa*pi/180);
B:=2*r*sin(beta*pi/180);
C:=2*r*sin(gamma*pi/180);
 
write('A=',A:5:2, 'B=', B:5:2, 'C=', C:5:2);
 
{*Вторая задача*}
writeln('*Вторая задача*');
writeln(outf,'*Вторая задача*');
 
readln(inf,i);
 
writeln('i='  ??
writeln(outf, 'i='  ??
 
j=((i mod 10)*100+((i div 10 mod 10)*10+i div 100));
 
writeln('Получилось число:', j);
writeln(outf,'Получилось число:', j);
 
close(inf);
close(outf);
 
end.

Вот, ввёл. Мне не трудно. Просто как это в редакторе формул сделать не имею понятия по-прежнему.

@Soniyagfto · 08.11.2013, 17:29

Хочу купить название твой программы, продашь?

@CzarK · 10.11.2013, 20:49 **[ТС]**

Условия задач:

Первая задача: Треугольник задан величинами своих углов и радиусом описанной окружности. Найти стороны треугольника.

Вторая задача: Определить число, полученное выписыванием в обратном порядке цифр трёхзначного числа.

ЗЫ: у меня есть решения этих задач по отдельности (частично сам решал и всё лично проверил - работает).

Добавлено через 11 минут
Тьфу, ты блин. Условия были -_-. Я пересматривая тему не заметил и думал, что помощи ж не будет однозначно, если не от чего отталкиваться. LOL.
Продолжаю ломать голову и рунет переворачивать.

@Puporev · 10.11.2013, 21:09

Cоздаешь текстовый файл inf.txt в папке с программой примерно такого содержания

25.5 55.6 98.9 15
523

Программа

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
Program DOM2;
var A, B, C, alfa, beta, gamma, r: real;
    i, j: integer;
   inf, outf: text;
begin
assign (inf, 'inf.txt');
assign(outf,'outf.txt');
reset(inf);
rewrite(outf);
{*Первая задача*}
writeln('*Первая задача*');
writeln(outf,'*Первая задача*');
read(inf, alfa, beta, gamma, r);
writeln('alpha=',alfa:0:2);
writeln('beta=',beta:0:2);
writeln('gamma=',gamma:0:2);
writeln(outf,'alpha=',alfa:0:2);
writeln(outf,'beta=',beta:0:2);
writeln(outf,'gamma=',gamma:0:2);
writeln('R=',r:0:2);
A:=2*r*sin(alfa*pi/180);
B:=2*r*sin(beta*pi/180);
C:=2*r*sin(gamma*pi/180);
writeln('A=',A:5:2,'  B=',B:5:2,'  C=', C:5:2);
writeln(outf,'A=',A:5:2,'  B=',B:5:2,'  C=', C:5:2);
{*Вторая задача*}
writeln('*Вторая задача*');
writeln(outf,'*Вторая задача*');
read(inf,i);
writeln('i=',i);
writeln(outf, 'i=',i);
j:=((i mod 10)*100+((i div 10 mod 10)*10+i div 100));
writeln('Получилось число:', j);
writeln(outf,'Получилось число:',j);
close(inf);
close(outf);
end.

Получишь вывод на экран и в выходной файл outf.txt

*Первая задача*
alpha=25.50
beta=55.60
gamma=98.90
A=12.92 B=24.75 C=29.64
*Вторая задача*
i=523
Получилось число:325

@CzarK · 11.11.2013, 10:39 **[ТС]**

Сообщение от Puporev

Cоздаешь текстовый файл inf.txt в папке с программой примерно такого содержания

Программа

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
Program DOM2;
var A, B, C, alfa, beta, gamma, r: real;
    i, j: integer;
   inf, outf: text;
begin
assign (inf, 'inf.txt');
assign(outf,'outf.txt');
reset(inf);
rewrite(outf);
{*Первая задача*}
writeln('*Первая задача*');
writeln(outf,'*Первая задача*');
read(inf, alfa, beta, gamma, r);
writeln('alpha=',alfa:0:2);
writeln('beta=',beta:0:2);
writeln('gamma=',gamma:0:2);
writeln(outf,'alpha=',alfa:0:2);
writeln(outf,'beta=',beta:0:2);
writeln(outf,'gamma=',gamma:0:2);
writeln('R=',r:0:2);
A:=2*r*sin(alfa*pi/180);
B:=2*r*sin(beta*pi/180);
C:=2*r*sin(gamma*pi/180);
writeln('A=',A:5:2,'  B=',B:5:2,'  C=', C:5:2);
writeln(outf,'A=',A:5:2,'  B=',B:5:2,'  C=', C:5:2);
{*Вторая задача*}
writeln('*Вторая задача*');
writeln(outf,'*Вторая задача*');
read(inf,i);
writeln('i=',i);
writeln(outf, 'i=',i);
j:=((i mod 10)*100+((i div 10 mod 10)*10+i div 100));
writeln('Получилось число:', j);
writeln(outf,'Получилось число:',j);
close(inf);
close(outf);
end.

Получишь вывод на экран и в выходной файл outf.txt

Спасибо. У меня скачана программа с вашего же форума ^^, с кот. мы работает в универе - сегодня же всё пропишу и завтрашним утром отпишусь. Спасибо.

Вот, возник ещё вопрос: Что означает это соотношение, к примеру, тут (1) и тут (2):
(1)... 'A=',A:5:2,' B=',B:5:2,' C=', C:5:2 ...(я не понимаю, что нам это дает, писал и пишу, но..."what?")
или (2)...gamma:0:2

@Puporev · 11.11.2013, 10:46

Пишешь и пиши, здесь можно :0:2

@CzarK · 11.11.2013, 15:57 **[ТС]**

Сообщение от Puporev

Пишешь и пиши, здесь можно :0:2

Жаль, что в грубой форме ответили без объяснения. Тем не менее всё равно спасибо.

ЗЫ: Тему можно закрывать.

@Puporev · 11.11.2013, 16:02

Так прочитай про форматированный вывод вещественных чисел
write(x:5:2);
здесь 5 число позиций в строке по все число, включая знак минус и запятую, а 2 число знаков после запятой.
Захочешь ласки, это на другой ресурс..

@CzarK · 12.11.2013, 08:04 **[ТС]**

Проверил работоспособность. Спасибо ещё раз.

НЕ ласки надо, а объяснения в спокойной теме, а то лишь бы погрубить. Да, вы больше знаете, но это особых приоритетов не даёт.

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

@CzarK 0 / 0 / 0 Регистрация: 01.05.2013 Сообщений: 32

	Две задачи в одной 08.11.2013, 16:30. Показов 1488. Ответов 13 Метки нет (Все метки) Доброго времени суток. Начну сразу с вопроса и самих задач с предисловием: Нет, я не вспомнил об это за день до сдачи; я уже пытался сдать работу, но у меня не получается добиться желаемого. Собственно, условия задач и моё решение (не верное): 1. Пользуясь операторами присваивания ввода, вывода решить задачу: треугольник задан величинами своих углов и радиусом описанной окружности. Найти стороны треугольника. 2. Определить число, полученное выписыванием в обратном порядке цифр трёхзначного числа. Да, вы можете подумать, мол, дурак - не посмотрел соседние темы. Вот и нет. Посмотрел. Решил (частично не верные были ответы) и списал=дописал большую часть, но на паре узнал, что задачи надо было совместить одну. Прямо там же начал импровизировать, так сказать и искать выход из ситуации. Не много не доделал, сказал препод (у меня сначала вылазило сообщение, что это является правдой или ложью, позже оказалось, что надо, чтобы значения сами вписывались). Я приложу Фотографии своей переписанной работы в тетрадь (я, честно, не знаю, как воспользоваться редактором для ввода моего решения=задачи). ЗЫ: химик, 2 курс. ЗЗЫ: также имею желание почитать о программировании в Pascal. Если есть небольшое пособие - дайте, пожалуйста, почитать. Но, вот работу надо мне по скорее сдать, дабы хвостов не появилось. Миниатюры 0

@CzarK 0 / 0 / 0 Регистрация: 01.05.2013 Сообщений: 32
	08.11.2013, 16:34 [ТС]
	Собственно, сразу добавляю: Помимо .pas надо создать файл .inf, где в столбик вводятся значения. Судя по ещё одному расширению .txt понимаю, что надо ещё и такой создать? Вообщем, я не понял, в какой последовательности чего надо создавать, а также не могу найти свои ошибки. 0

@Puporev
	08.11.2013, 16:40
	Не по теме: У какие мы нежные, хоть и с протянутой рукой... 0

@Soniyagfto 60 / 67 / 37 Регистрация: 29.01.2013 Сообщений: 374 Записей в блоге: 1
	08.11.2013, 17:29
	Хочу купить название твой программы, продашь? 0

@CzarK 0 / 0 / 0 Регистрация: 01.05.2013 Сообщений: 32
	10.11.2013, 20:49 [ТС]
	Условия задач: Первая задача: Треугольник задан величинами своих углов и радиусом описанной окружности. Найти стороны треугольника. Вторая задача: Определить число, полученное выписыванием в обратном порядке цифр трёхзначного числа. ЗЫ: у меня есть решения этих задач по отдельности (частично сам решал и всё лично проверил - работает). Добавлено через 11 минут Тьфу, ты блин. Условия были -_-. Я пересматривая тему не заметил и думал, что помощи ж не будет однозначно, если не от чего отталкиваться. LOL. Продолжаю ломать голову и рунет переворачивать. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	11.11.2013, 10:46
	Пишешь и пиши, здесь можно :0:2 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	11.11.2013, 16:02
	Так прочитай про форматированный вывод вещественных чисел write(x:5:2); здесь 5 число позиций в строке по все число, включая знак минус и запятую, а 2 число знаков после запятой. Захочешь ласки, это на другой ресурс.. 0

@CzarK 0 / 0 / 0 Регистрация: 01.05.2013 Сообщений: 32
	12.11.2013, 08:04 [ТС]
	Проверил работоспособность. Спасибо ещё раз. НЕ ласки надо, а объяснения в спокойной теме, а то лишь бы погрубить. Да, вы больше знаете, но это особых приоритетов не даёт. 0