|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
04.03.2017, 00:11 | #1 (permalink) |
Member
Регистрация: 17.02.2017
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Проектирование программ со структурой вложенных циклов
|
04.03.2017, 00:11 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Данные посты могут вам помочь т.к. имеют сходства с вашим Проектирование программ циклической структуры Canon A1100 IS: куча вложенных папок на карте памяти образовалось |
06.03.2017, 09:45 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Код:
Var x:byte; Function Fact(z:byte):Integer; var n:byte; Fct:Integer; begin Fct:=1; for n:=1 to z do Fct:=Fct*n; Fact:=Fct; end; Begin for x:=0 to 6 do writeln('x = ',x,' F = ',Exp(-x)-Fact(x):10:5); Readln End. |
10.03.2017, 09:41 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
М-да. Совсем, значит, учиться не хотите... Уважаемый Порфирий, сейчас Вам, вероятно, кажется, что Вы ужас до чего ловкий и хитрый: дали задание - скинул на форумы - скатал - сдал. Ай я молодца! Только вот уж поверьте - кончится это полным крахом: задания будут усложняться, форумчане не пожелают тратить кучу времени на создание программ, с Вашей стороны неизбежно последуют вопли-сопли типа "спасите-помогите-отчисляют!!!", ну и закономерный конец. Проходили, и не раз. А потому мой Вам совет - срочно беритесь за ум! Сейчас еще начало марта, время есть - в мае поздно будет!
Но, впрочем, Вы - взрослый человек, Вам жить. Код:
Var x:byte; Function Fact(z:byte):Integer; var n:byte; Fct:Integer; begin Fct:=1; for n:=1 to z do Fct:=Fct*n; Fact:=Fct; end; Begin x:=0; repeat writeln('x = ',x,' F = ',Exp(-x)-Fact(x):10:5); x:=x+1; until x=7; Readln End. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
12.03.2017, 12:11 | #6 (permalink) |
Member
Регистрация: 17.02.2017
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Я наоборот, вам очень благодарен. И благодаря вам, учусь, смотрю и делаю программы. Наоборот, я не хочу просто так тупо списывать все с форума, а целенаправленно учусь, занимаюсь программированием и в этом мне оказываете большую помощь вы)
И да, мне 25 лет. И я давно закончил ВУЗ) Решил пройти курс обучения по информатике. |
12.03.2017, 14:37 | #7 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|