Бакинский завод Искра    Главная
Начальная
страница
 ЧаВо
Вопросы
и ответы
 Разделы
Наши
темы
 Ссылки
Каталог
сайтов
 Файлы
Каталог
программ
 Форум
Наш
форум
  Логин: Пароль:

  Поиск:  
uckpa.net :: Просмотр темы - срочно....!!! программирование Турбо Паскаль
 FAQFAQ   ПоискПоиск   ГруппыГруппы   ПрофильПрофиль   ВходВход 

срочно....!!! программирование Турбо Паскаль

 
Начать новую тему   Ответить на тему    Список форумов uckpa.net -> Требуется помощь
Предыдущая тема :: Следующая тема  
Автор Сообщение
elrejsh
Silver Member
Silver Member


Зарегистрирован: Mar 01, 2009
Сообщения: 62
Откуда: Старый оскол

СообщениеДобавлено: Вс 29 Мар, 2009 15:42    Заголовок сообщения: срочно....!!! программирование Турбо Паскаль Ответить с цитатой

ребята кто может помогите решить ,у нас не получается по программированию.(Турбо Паскаль)

Задача 1.
Ветвление. Составте программу ,проверяющую ,верно ли утверждение,что введенное число является четным.
Задача 2.
Строки. Вводится строка символов.Преобразуйте её следующим образом: каждый пробел замените символом с АSCII -кодом 249.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение MSN Messenger
admin
Site Admin
Site Admin


Зарегистрирован: Jul 08, 2006
Сообщения: 500
Откуда: Белгород

СообщениеДобавлено: Пн 30 Мар, 2009 14:28    Заголовок сообщения: Re: срочно....!!! Ответить с цитатой

elrejsh писал(а):
Задача 1.
Ветвление. Составте программу ,проверяющую ,верно ли утверждение,что введенное число является четным.

program vetvlenie;
var a:integer;
begin
write('Vvedite chislo:');
readln(a);
if a mod 2=0 then
writeln('Utvergdenie verno')
else writeln('Utvergdenie neverno');
readln;
end.
elrejsh писал(а):
Задача 2.
Строки. Вводится строка символов.Преобразуйте её следующим образом: каждый пробел замените символом с АSCII -кодом 249.

program stroki;
var s:string;
i:byte;
begin
writeln('Vvedite stroku:');
readln(s);
for i:=ord(s[0]) downto 1 do
if s[i]=' ' then
s[i]:=chr(249);
writeln(s);
readln;
end.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора MSN Messenger
Nadezhda
Golg Member
Golg Member


Зарегистрирован: Dec 01, 2007
Сообщения: 168
Откуда: Пыть-Ях

СообщениеДобавлено: Пн 30 Мар, 2009 17:57    Заголовок сообщения: Ответить с цитатой

Админ у нас как всегда на высоте!!! Exclamation
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
elrejsh
Silver Member
Silver Member


Зарегистрирован: Mar 01, 2009
Сообщения: 62
Откуда: Старый оскол

СообщениеДобавлено: Пн 30 Мар, 2009 21:18    Заголовок сообщения: Ответить с цитатой

Спасибо!!!!!!
Саша , я опять с просьбой.извини.,помоги еще. А то устала от этих решений.,немогу помочь дочери.

1.Цикл с параметром. Даны натуральные числа от 35 до 87.Найти и напечатать те из них,которые при делении на 7 дают остаток 1, 2 или 5.

2. Решить задачу двумя спосабами, используя циклы с постусловием и предусловием.
Составить программу вычисления суммы 20 последовательных нечётных чисел натурального ряда, начиная с числа 7.

С большой благодарностью Exclamation
Вернуться к началу
Посмотреть профиль Отправить личное сообщение MSN Messenger
admin
Site Admin
Site Admin


Зарегистрирован: Jul 08, 2006
Сообщения: 500
Откуда: Белгород

СообщениеДобавлено: Пн 30 Мар, 2009 22:09    Заголовок сообщения: Ответить с цитатой

elrejsh писал(а):
1.Цикл с параметром. Даны натуральные числа от 35 до 87.Найти и напечатать те из них,которые при делении на 7 дают остаток 1, 2 или 5.

program CycleWithPar;
var i,r:integer;
begin
for i:=35 to 87 do
begin
r:=i mod 7;
if (r=1)or(r=2)or(r=5) then
write(i,' ');
end;
readln;
end.
elrejsh писал(а):
2. Решить задачу двумя спосабами, используя циклы с постусловием и предусловием.
Составить программу вычисления суммы 20 последовательных нечётных чисел натурального ряда, начиная с числа 7.

1 способ
program Cycles;
var i,sum:integer;
begin
i:=0;
sum:=0;
write('Cikl s predusloviem: ');
while i<20 do
begin
sum:=sum+7+2*i;
inc(i);
end;
writeln(sum);

2 способ
i:=0;
sum:=0;
write('Cikl s postusloviem: ');
repeat
sum:=sum+7+2*i;
inc(i);
until i=20;
writeln(sum);
readln;
end.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора MSN Messenger
admin
Site Admin
Site Admin


Зарегистрирован: Jul 08, 2006
Сообщения: 500
Откуда: Белгород

СообщениеДобавлено: Пн 30 Мар, 2009 22:12    Заголовок сообщения: Ответить с цитатой

Nadezhda писал(а):
Админ у нас как всегда на высоте!!! Exclamation
Тут уж не совсем я, а моя дочка.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора MSN Messenger
elrejsh
Silver Member
Silver Member


Зарегистрирован: Mar 01, 2009
Сообщения: 62
Откуда: Старый оскол

СообщениеДобавлено: Пн 30 Мар, 2009 22:28    Заголовок сообщения: спасибо Ответить с цитатой

Спасибо тебе и конечно дочери!
Вернуться к началу
Посмотреть профиль Отправить личное сообщение MSN Messenger
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов uckpa.net -> Требуется помощь Часовой пояс: GMT + 3
Страница 1 из 1

 
Перейти:  
Вы можете начинать темы
Вы можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Powered by phpBB © 2001 phpBB Group

Version 2.0.6 of PHP-Nuke Port by Tom Nitzschner © 2002 www.toms-home.com


Играй Бесплатно!!! - www.FreeLoto.ru


Forums ©

Архив статей  ::  Добавить новость ::  Контакт с автором ::  Рекомендовать Нас

RusNuke2003 theme by PHP-Nuke по-русски
© 2006 г. Сообщество бывших работников Бакинского Завода Искра http://uckpa.net
PHP-Nuke Copyright © 2006 by Francisco Burzi. This is free software, and you may redistribute it under the GPL. PHP-Nuke comes with absolutely no warranty, for details, see the license.
The Russian localization - project Rus-PhpNuke.com
Открытие страницы: 0.05 секунды

Получить WMR-бонус Balans.kz на свой кошелек!

Rambler's Top100       VIP каталог Рунета             Каталог Ресурсов Интернет