|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
06.12.2011, 22:36 | #1 |
Пользователь
Регистрация: 24.10.2011
Сообщений: 21
|
Pascal,Цикл
всем доброй ночи,помоги чем сможете я написал программу для цикла,и немогу вставить в нее запрос на повторение
вот сама программа: var n,i,Err:Integer; Ch:Char; f:Real Begin Repeat {$I-} WriteLn('Введите n'); ReadLn(n); {$I+}; Err:IOResult; If Err<>0 Then Writeln('Ошибка ввода'); Until Err=0; i:=1; For i:=1 to n Do begin f:=1/Sqr(i)+1; WrteLn('Член прогрессии #',i,'=',f:5:2); end; WriteLn('Хотите повторить? 1-да 2-нет'); ReadLn(Ch); Until Ch<>'1'; end; ReadLn; End. |
07.12.2011, 01:41 | #2 |
Форумчанин
Регистрация: 26.07.2011
Сообщений: 376
|
Не знаю, как ты это писал, но там типичных ошибок было достаточно.
Ты хоть его компилил?) Ну пошол по твоему принципу решения, не вникал. Когда запросит ( для повторения ) введи большую "Y". Во общем я тебе код просто, как-то к виду привёл. Ты бы хоть условие задания кинул... Код:
Люблю на ты.Я человек простой
|
08.12.2011, 10:20 | #3 |
Регистрация: 07.12.2011
Сообщений: 7
|
№1)Даны два целых числа. Найти их среднее геометрическое?
№2)Составить программу для вычисление значение функции -1,если х<-1 y=x, если x>-1 1, если x=-1 вот помогите , блог схемы ,,, и сами программы ПОЖАЛУЙСТА ПОМОГИТЕ ДЛЯ ЗАЧЕТА |
08.12.2011, 10:39 | #4 |
Форумчанин
Регистрация: 05.09.2011
Сообщений: 869
|
Ну, че ты постишь в чужие темы второй раз подряд??
ДА Я БУДУ РАД ЕСЛИ ТЫ ЗАВАЛИШЬ ЗАЧЕТ. Пойдешь сортиры мыть, одним "программистом" меньше будет, и меньше будет глючного софта.. Зачем нам себе вредить?? "блог схему" ему.. жуть..
Предпочитаю на "ты".
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Pascal цикл for | Dimmy | Помощь студентам | 9 | 06.01.2010 19:55 |
Pascal.Цикл While | SeraOK | Помощь студентам | 2 | 19.12.2009 20:07 |
Цикл с предусловием. ( цикл while) Цикл с постусловием. (цикл repeat ... until) | Mr.User | Помощь студентам | 9 | 23.11.2007 01:34 |