Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 17.06.2013, 19:56   #1 (permalink)
VLAD!@$@$%$%
Новичок
 
Регистрация: 17.06.2013
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите решить задачи в Паскале

1)Решить уровнение виду АХ=В ПРИ етом расмотреть случаи А=0 и А<>0
2)Составить программу вичисления сумми всех парних чисел от 1 до 50 (без масивов, через цикл "while")
VLAD!@$@$%$% вне форума   Ответить с цитированием

Старый 17.06.2013, 19:56
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Поищите решение проблемы в аналогичных обсуждениях

Помогите решить задачи на Паскале
Помогите решить задачи на Турбо Паскале
Помогите решить задачи в Паскале
Помогите, пожалуйста, решить задачи в Паскале
Помогите решить две задачи на Паскале
Помогите решить задачи в Паскале, пожалуйста

Старый 17.06.2013, 20:05   #2 (permalink)
VLAD!@$@$%$%
Новичок
 
Регистрация: 17.06.2013
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

знаю что задачек легче нет но я в информатике и тем более в програмировании нечего почти не знаю
VLAD!@$@$%$% вне форума   Ответить с цитированием
Старый 17.06.2013, 20:10   #3 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,282
Сказал(а) спасибо: 290
Поблагодарили 508 раз(а) в 166 сообщениях
Репутация: 92003
По умолчанию

А что такое "парные числа"?
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Старый 18.06.2013, 13:58   #4 (permalink)
VLAD!@$@$%$%
Новичок
 
Регистрация: 17.06.2013
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Четние числа
VLAD!@$@$%$% вне форума   Ответить с цитированием
Старый 18.06.2013, 14:15   #5 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,282
Сказал(а) спасибо: 290
Поблагодарили 508 раз(а) в 166 сообщениях
Репутация: 92003
По умолчанию

Цитата:
Сообщение от VLAD!@$@$%$% Посмотреть сообщение
Четние числа
Ну тогда-то что!
Цитата:
Сообщение от VLAD!@$@$%$% Посмотреть сообщение
1)Решить уровнение виду АХ=В ПРИ етом расмотреть случаи А=0 и А<>0
Код:
Var
 A,B,X:real;
Begin
 Write('A= ');
 Readln(A);
 Write('B= ');
 Readln(B);
 Writeln('Result:');
 If (A=0) and (B=0) then Writeln('Any value')
 else
 If (A=0) and (B<>0) then Writeln('No solution')
 else Write ('X= ',B/A:0:5);
 Readln
End.
Цитата:
Сообщение от VLAD!@$@$%$% Посмотреть сообщение
2)Составить программу вичисления сумми всех парних чисел от 1 до 50
Код:
Var
 i:Byte;
 Sum:Word;
Begin
 Sum:=0;
 For i:=1 to 25 do
  Sum:=Sum+2*i;
 Writeln('Sum= ',Sum);
 Readln
End.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 18.06.2013, 14:43   #6 (permalink)
VLAD!@$@$%$%
Новичок
 
Регистрация: 17.06.2013
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

а 2 програму можно через цикл While без масивов ми их както еще не учили и ето будет не много подозрительно
VLAD!@$@$%$% вне форума   Ответить с цитированием
Старый 18.06.2013, 14:49   #7 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,282
Сказал(а) спасибо: 290
Поблагодарили 508 раз(а) в 166 сообщениях
Репутация: 92003
По умолчанию

Цитата:
Сообщение от VLAD!@$@$%$% Посмотреть сообщение
а 2 програму можно через цикл While без масивов ми их както еще не учили и ето будет не много подозрительно
А где Вы там массивы узрели? Ладно, через While, так через While:
Код:
Var
 i:Byte;
 Sum:Word;
Begin
 Sum:=0;
 i:=0;
 While i<50 do
  begin
   i:=i+2;
   Sum:=Sum+i;
  end;
 Writeln('Sum= ',Sum);
 Readln
End.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Старый 18.06.2013, 18:26   #8 (permalink)
VLAD!@$@$%$%
Новичок
 
Регистрация: 17.06.2013
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

а можете еще написать что каждая строчка означает только в 2 программе
VLAD!@$@$%$% вне форума   Ответить с цитированием
Старый 18.06.2013, 19:10   #9 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,282
Сказал(а) спасибо: 290
Поблагодарили 508 раз(а) в 166 сообщениях
Репутация: 92003
По умолчанию

Цитата:
Сообщение от VLAD!@$@$%$% Посмотреть сообщение
а можете еще написать что каждая строчка означает только в 2 программе
Извольте:

Код:
Var {заголовок раздела объявления переменных}
 i:Byte; {счетчик цикла}     
 Sum:Word; {искомая сумма}
Begin {начало тела программы}
 Sum:=0; {задание исходного нулевого значения сумме}
 i:=0; {задание исходного нулевого значения счетчику}
 While i<50 do {объявление цикла; он прервется, когда значение счетчика станет равным 50}
  begin {начало цикла}
   i:=i+2; {увеличение значение счетчика на 2; таким образом, i последовательно принимает значения 0, 2, 4, 6, 8 и т.д. до 50}
   Sum:=Sum+i; {к сумме прибавляются вышеуказанные значения счетчика}
  end; {конец цикла}
 Writeln('Sum= ',Sum); {вывод результата (значения суммы) на экран}
 Readln {приостановка работы программы, чтобы можно было полученный результат рассмотреть}
End. {конец тела программы}
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Старый 19.06.2013, 17:30   #10 (permalink)
VLAD!@$@$%$%
Новичок
 
Регистрация: 17.06.2013
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

а поч в строчках
i:Byte;
Sum:Word;
нета там типа real или integer а именно byte и word?
VLAD!@$@$%$% вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




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

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.