IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Паскаль, Помогите решить..
Kleopatra
сообщение 9.12.2014 19:45
Сообщение #1





Группа: Пользователи
Сообщений: 2
Пол: Женский
Реальное имя: gulnaz

Репутация: -  0  +


1)4. Ввести два числа. Если первое число больше второго, ввести еще одно число. Выдать на печать сумму всех чисел, если они больше 150.
2). Вычислить значение функции
Изображение
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
alex 10
сообщение 9.12.2014 20:31
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 22
Пол: Мужской
Реальное имя: Алексей

Репутация: -  0  +


Исходный код

uses crt;
var s,ch1,ch2,ch3,ch4,ch,k5:real;
d:boolean;
begin
d:=true;
while d=true do
begin
write('введите число');
readln(ch1);
write('введите 2-е число');
readln(ch2);
if ch1>ch2 then
writeln('введите число');
readln(ch1);
write('введите 2-е число');
readln(ch2);
if ch2<=ch1 then
begin
write(' программа закончена');
d:=false;
end;
if ch1>105 then
s:=s+ch1;
if ch2>105 then
s:=s+ch2;
writeln(s);
end;
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Федосеев Павел
сообщение 9.12.2014 21:28
Сообщение #3


Бывалый
***

Группа: Пользователи
Сообщений: 298
Пол: Мужской
Реальное имя: Федосеев Павел

Репутация: -  8  +


alex 10, sorry

Раз уж ты помогаешь, то и сам учись.
Я бы посоветовал тебе воспользоваться форматтером исходного кода, а конкретно JCF (JEDI Code Format) - что и где взять, посмотри здесь, и здесь. По-русски требования к оформлению кода.
В своё время я выработал иной стиль оформления и строго его придерживался, но лень вкупе с автоматическими форматтерами победили - теперь придерживаюсь стиля Borland.
Вот смотри, как твоя программа стала выглядеть после JCF:
program tak;

uses
crt;

var
s, ch1, ch2, ch3, ch4, ch, k5: real;
d: boolean;
begin
d := True;
while d = True do
begin
Write('введите число');
readln(ch1);
Write('введите 2-е число');
readln(ch2);
if ch1 > ch2 then
writeln('введите число');
readln(ch1);
Write('введите 2-е число');
readln(ch2);
if ch2 <= ch1 then
begin
Write(' программа закончена');
d := False;
end;
if ch1 > 105 then
s := s + ch1;
if ch2 > 105 then
s := s + ch2;
writeln(s);
end;
end.

И сразу бросается в глаза цикл while, цель которого в рамках ТЗ (тех. задания) непонятна - согласно заданию всё должно быть иначе:
1. Ввод 1-го числа - ch1
2. Ввод 2-го числа - ch2
3. Если ch1>ch2, то ввести ch3
4. Если все введённые числа больше 150, то вычислить сумму введённых чисел - s и вывести её на экран.

То есть ты решил несколько иную задачу...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
alex 10
сообщение 11.12.2014 21:24
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 22
Пол: Мужской
Реальное имя: Алексей

Репутация: -  0  +


Программу писал в спешке...Вот и вышла работающая,но неаккуратная программа.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Федосеев Павел
сообщение 11.12.2014 23:16
Сообщение #5


Бывалый
***

Группа: Пользователи
Сообщений: 298
Пол: Мужской
Реальное имя: Федосеев Павел

Репутация: -  8  +


smile.gif
Ну не торопись...
Ведь помогаешь ты менее знающему и, вдобавок, тренируешься для себя.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
alex 10
сообщение 12.12.2014 18:55
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 22
Пол: Мужской
Реальное имя: Алексей

Репутация: -  0  +


да, я уже понял, что торопиться не надо !
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 29.03.2024 15:15
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"