сервис вопросов и ответовпомогите пожалуйста справиться с этим заданием, мне ОЧЕНЬ срочно нужно, завтра сдавать. Не понимаю как делать это вообще...
10-11 класс|
|
Буду очень благодарен тем кто поможет, заранее спасибо)))
Прикрепленные изображения
Magomedgadzhie
15 янв. 2017 г., 22:16:53 (7 лет назад)
Eskooo
16 янв. 2017 г., 0:08:10 (7 лет назад)
Извиняйте, ради Вашей задачи я не могу себе позволить скачивать и ставить на компьютер fpc. Сделано в Pascal.ABC - это тот же язык Object Pascal, так что должно работать, может только какие опции потребует fpc воткнуть.
var
nt, ns, nb, i, j: integer;
begin
repeat
Write('Укажите число строк в треугольнике (максимум 40, 0 - отказ): ');
Readln(nt);
nt := Abs(nt) {защита от дурака}
until nt <= 40;
if nt > 0 then begin
repeat
Write('Укажите число строк в квадрате (максимум ', ns, ', 0 - отказ): ');
Readln(ns);
ns := Abs(ns) {защита от дурака}
until ns <= 2*nt-1;
if ns > 0 then begin
for i := 1 to nt do
begin
for j := 1 to nt - i do Write(' ');
for j := 1 to 2 * i - 1 do Write('*');
Writeln
end;
nb := (2 * nt - 1 - ns) div 2;
for i := 1 to ns do
begin
for j := 1 to nb do Write(' ');
for j := 1 to ns do Write('*');
Writeln
end
end
end
end.
Тестовое решение:
Укажите число строк в треугольнике (максимум 40, 0 - отказ): 8
Укажите число строк в квадрате (максимум 0, 0 - отказ): 3
*
***
*****
*******
*********
***********
*************
***************
***
***
***
Укажите число строк в треугольнике (максимум 40, 0 - отказ): 3
Укажите число строк в квадрате (максимум 0, 0 - отказ): 5
*
***
*****
*****
*****
*****
*****
*****
Rocco
16 янв. 2017 г., 2:21:51 (7 лет назад)
У меня тут тест по линуксу, теория и тд, ты сможешь с теорией помочь?
Ответить
Другие вопросы из категории
Завтра нужно сдавать, помогите решить 2 вариант (ИН00102), пожалуйста
Нужно именно решение каждого номера, а не ответы. Ответы у меня есть ,училка сказала нужно решение, выручите плиз
Читайте также
СРОЧНО!!! Помогите пожалуйста с турбо паскаль, задание на тему циклы....
Как мне препод объясняла там должно быть for i:=1 to N do begin
P:P*(2*i)/(2*i+1)
end;
Вот часть которую нужно как то применить к этому заданию...
Как будет выглядеть весь код?)))
Помогите пожалуйста исправить ошибку "неверная вещественная операция (7.PAS, строка 9)" уже не знаю как исправить задание: для
натурального n и действительного x подсчитать сумму S=-1/2 + 1/2^2 - 1/2^3 +...+(-1)^n / 2^n
program summa;
uses crt;
var n,i:integer; s:real;
begin clrscr;
writeln ('vvedite n');
readln (n);
s:=0;
for i:=1 to n do
s:=s+exp(ln(-1)*i)/exp(ln(2)*i);
writeln ('s=', s);
readln
end.
ПОМОГИТЕ, ПОЖАЛУЙСТА, ПРОСТО РАЗЪЯСНИВ ЗАДАНИЕ. ПЖЛ)))
.................................................................................................................................
Возьмите прайс лист любого компьютерного магазина или скачайте в интернете;
Составьте конфигурацию компьютера для специалиста вашей профессии;
Подберите программное обеспечение, поясните, для каких целей будут служить данные программы;
Посчитайте общую стоимость данной конфигурации по прайс листу
....................................................................................................................................
Учусь я на бухгалтера-экономиста.
Давайте думать вместе) Допустим, "специалист вашей профессии" - это бухгалтер. Я беру прайс лист (т.е. лист, где написаны наименования и цены всех товаров). Что такое конфигурация? Как её составить по этому прайс листу, если там и так всего цена и наименования известны...?)))) ПО подобрать, допустим, это будет ;MS Office Excel; для создания таблиц, а для данной задачи для подсчёта общей стоимости конфигурации; и ;MS Office World; для писания отчётов. Что же такое эти "конфигурации"?)))
Помогите, пожалуйста) не пропускайте вопрос)
Задания за 9 класс. Ребят, помогите, пожалуйста. С Exel работать надо, на компьютере его нет (на windows 8 перешла), к тому же, честно говоря, не умею им
пользоваться. Добрые люди, пожалуйста, помогите :с Завтра сдавать :с
помогите пожалуйста с информатикой!легкие задания,но не была на этой теме.
особенно обязательно вторые два задания.
Вы находитесь на странице вопроса "помогите пожалуйста справиться с этим заданием, мне ОЧЕНЬ срочно нужно, завтра сдавать. Не понимаю как делать это вообще...", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.