Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Паскаль (http://www.tehnari.ru/f41/t96181/)

yanna 06.05.2014 20:36

Паскаль
 
Вложений: 4
Помогите пожалуйста ребят, хотя бы немного
в школе препод топит заданиями... а оценка в аттестат идет

yanna 06.05.2014 20:49

я уже и просто уравнения решала, и переводила на язык паскаль каждую переменную и в турбо паскале пыталась ввести, прочитала все советы в инете. но всё впустую, увы
как понять что такое оператор, и где составлять блок-схему?

AlexZir 07.05.2014 05:59

В общем так. Берете учебник по информатике, открываете раздел "Алгоритмизация и программирование" и читаете, читаете, читаете...
Потом загружаете Pascal и пишите, пишите, пишите...
Можно также воспользоваться справочными материалами среды разработки. Да и для того, чтобы
Цитата:

Сообщение от yanna (Сообщение 1030271)
прочитала все советы в инете

по этому языку программирования, нужно не меньше пары сотен лет, это как минимум. Думаю, у вас такого срока нет, поэтому рекомендую начать с прочтения этих материалов: http://www.tehnari.ru/531355-post1.html

Далее:
по первому алгоритму:
запрашиваете значение x, используете его для вычисления значения y. Затем с помощью вложенной структуры ветвления вычисляете значение F(y).

по второму алгоритму:
очевидно, что данный график задан тремя функциями
от минус бесконечности до -R функция y=0
от -R до +R функция окружности
+R до плюс бесконечности функция y=x-R
Программу пишите сами.

yanna 07.05.2014 16:24

Вложений: 1
вот, что у меня получилось.
ровным счетом - ничего

Vladimir_S 07.05.2014 16:43

Цитата:

Сообщение от yanna (Сообщение 1030437)
вот, что у меня получилось. ровным счетом - ничего

Ничего, не отчаивайтесь.
Прежде всего - просьба: сохраняйте программы в файлы и выкладывайте сюда через copy-paste в текстовом виде, а не в виде картинки, чтобы мы могли с этими листингами работать.
Теперь по самой программе.
Даже не вдаваясь в суть Ваших действий (а всегда ОЧЕНЬ желательно видеть, какую задачу решает выложенная программа), отмечу следующее. Обратите внимание на ПРАВИЛЬНОСТЬ РАССТАНОВКИ СКОБОК - у Вас с этим явные проблемы. Главный критерий: в каждом операторе число открывающих скобок должно в точности равняться числу закрывающих. А у Вас? В строке вычисления а 4 открывающих и 3 закрывающих, в строке вычисления y - 6 открывающих и 4 закрывающих! Кроме того, readkey - это команда модуля CRT, а где у Вас uses CRT? Нету.
В общем - программирование неряшливости и "коекакерства" не прощает.
Успехов!

yanna 07.05.2014 17:03

Вложений: 1
вот текст программы, скобки исправила. в общем, эта программа должна вычислить величины у(х) и F(у):

uses crt;
var
a, b, x, y: real;
begin
clrscr;
writeln('ўўҐ¤ЁвҐ §**зҐ*ЁҐ X');
readln(x);
writeln('ўўҐ¤ЁвҐ §**зҐ*ЁҐ A');
readln(a);
a:=exp(sin(x)/Abc(x)*Ln(2);
y:=sqrt(sqrt(8*exp(2*ln(x))-6*x+1))/arctan1/sqrt(2x+1);
writeln('§**зҐ*ЁҐ y'),y:3:3;
readkey;
end.

Vladimir_S 07.05.2014 17:27

Цитата:

Сообщение от yanna (Сообщение 1030445)
вот текст программы, скобки исправила.

Нет, не исправили. Считайте внимательно.
И не только скобки. Сравните.
У Вас:
a:=exp(sin(x)/Abc(x)*Ln(2);
А должно быть
a:=exp(sin(x)/Abs(x)*Ln(2));
Как говорится, выводы делайте сами.

yanna 07.05.2014 21:48

спасибо за то, что хотя бы откликнулись)
пожалуй, оставлю это дело.. раз даже учебники не помогают

Vladimir_S 08.05.2014 09:46

Цитата:

Сообщение от yanna (Сообщение 1030536)
пожалуй, оставлю это дело..

А вот это - зря! На самом деле, ничего сложного там нет. Просто много внимательности, немного усидчивости и малая толика базовых знаний - дальше всё как по маслу покатится!
Цитата:

Сообщение от yanna (Сообщение 1030536)
раз даже учебники не помогают

А, простите, как Вы их применяли? :)

poiu 08.05.2014 10:47

Цитата:

А, простите, как Вы их применяли? :)
методом втирания. два раза в день после еды :D


Часовой пояс GMT +4, время: 09:43.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.