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

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

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

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





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

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


1)4. Ввести два числа. Если первое число больше второго, ввести еще одно число. Выдать на печать сумму всех чисел, если они больше 150.
2). Вычислить значение функции
Изображение
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #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 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Знаток
****

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

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


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 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

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

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


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


Знаток
****

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

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


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


Новичок
*

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

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


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

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

 





- Текстовая версия 23.12.2024 19:34
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name