| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
elrejsh
Silver Member
Зарегистрирован: Mar 01, 2009
Сообщения: 62
Откуда: Старый оскол
|
 Добавлено: Вс 29 Мар, 2009 15:42 Заголовок сообщения: срочно....!!! программирование Турбо Паскаль |
 |
|
ребята кто может помогите решить ,у нас не получается по программированию.(Турбо Паскаль)
Задача 1.
Ветвление. Составте программу ,проверяющую ,верно ли утверждение,что введенное число является четным.
Задача 2.
Строки. Вводится строка символов.Преобразуйте её следующим образом: каждый пробел замените символом с АSCII -кодом 249. |
|
| Вернуться к началу |
|
 |
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. |
|
| Вернуться к началу |
|
|
Nadezhda
Golg Member
Зарегистрирован: Dec 01, 2007
Сообщения: 168
Откуда: Пыть-Ях
|
| Добавлено: Пн 30 Мар, 2009 17:57 Заголовок сообщения: |
|
|
Админ у нас как всегда на высоте!!!  |
|
| Вернуться к началу |
|
|
elrejsh
Silver Member
Зарегистрирован: Mar 01, 2009
Сообщения: 62
Откуда: Старый оскол
|
| Добавлено: Пн 30 Мар, 2009 21:18 Заголовок сообщения: |
|
|
Спасибо!!!!!!
Саша , я опять с просьбой.извини.,помоги еще. А то устала от этих решений.,немогу помочь дочери.
1.Цикл с параметром. Даны натуральные числа от 35 до 87.Найти и напечатать те из них,которые при делении на 7 дают остаток 1, 2 или 5.
2. Решить задачу двумя спосабами, используя циклы с постусловием и предусловием.
Составить программу вычисления суммы 20 последовательных нечётных чисел натурального ряда, начиная с числа 7.
С большой благодарностью |
|
| Вернуться к началу |
|
|
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. |
|
| Вернуться к началу |
|
|
admin
Site Admin
Зарегистрирован: Jul 08, 2006
Сообщения: 500
Откуда: Белгород
|
| Добавлено: Пн 30 Мар, 2009 22:12 Заголовок сообщения: |
|
|
| Nadezhda писал(а): | | Админ у нас как всегда на высоте!!! |
Тут уж не совсем я, а моя дочка. |
|
| Вернуться к началу |
|
|
elrejsh
Silver Member
Зарегистрирован: Mar 01, 2009
Сообщения: 62
Откуда: Старый оскол
|
| Добавлено: Пн 30 Мар, 2009 22:28 Заголовок сообщения: спасибо |
|
|
| Спасибо тебе и конечно дочери! |
|
| Вернуться к началу |
|
|
|
FAQ
Поиск
Группы
Профиль
Вход
