Задачи по Turbo Pascal - Форум
Пятница, 09.12.2016, 10:40
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Задачи по Turbo Pascal (Помогите умоляю!!!)
Задачи по Turbo Pascal
EjekДата: Понедельник, 27.06.2011, 14:36 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
Помогите с парой задач на Turbo Pascal. 29 числа лабораторные работы сдавать, а я ничего не успеваю.
1)Написать программу для нахождения суммы максимального и минимального из 3 введенных с клавиатуры чисел.
2)Вычислить значение функции: F(x)=x*ln(x) x пренадлежит [a;b], шаг h
3)Дан одномерный массив. Найти все положительные элементы. Составить из их индексов массив.
4)Определить, является ли введенное с клавиатуры слово палиндромом.
5)Построить строку следующего вида: ABBCCCDDDD...Z...
 
KOT_B_MEIIIKEДата: Понедельник, 27.06.2011, 19:37 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
Пятая.
Code
program bukafki;
var t:char; i:integer;
begin
for t:='A' to 'Z' do
         for i:=1 to ord(t) - ord('A')+1 do
             write(t);
end.

третья
Code
program massiv;
const n=25;
var t,p:array [1..n] of integer;i,j:integer;
begin
j:=1;
for i:=1 to n do
         begin
         t[i]:=random(101)-50;
         if  t[i]>0 then
             begin
             p[j]:=i;
             inc(j)
             end;
         write(t[i]:4);
         end;
writeln;
for i:=1 to j do
         write (p[i]:3);
writeln;writeln;
end.

адын
Code
program chiselkivkolichestve3;
var x,y,z:integer;s:real;
begin
writeln('Vvedite 3 chisla:_');
read(x,y,z);
if (x>y) then
       if (y>z) then s:=(x+z)/2[code]
                else if x<z then s:=(y+z)
                            else s:=(x+y)
             else
       if (y<z) then s:=(z+x)/2
                else if (x<z) then s:=(y+x)
                    else s:=(y+z);
writeln(s);
end.

вторая. Свои a,b,h подставь в константы тока)
Code
program znach;
const h=0.1 ;a=1 ;b=5 ;
var y,x:real;
begin
x:=a;
while x<=b do
         begin
         y:=x*ln(X);
         writeln(y:2:2);
         x:=x+h;
         end;
writeln
end.

Чатыре
Code
program palindromslovo;
var s:string;i,l:integer;ravno:boolean;
begin
writeln('Vvedite slovo:');
read(s);
i:=1;l:=length(s);
ravno:=true;
while (l>i) and ravno do
      begin
      if s[i]<>s[l] then ravno:=false;
      inc(i);dec(l);
      end;
write('Eto slovo ');
if not ravno then write ('ne ');
write('palindrom');
end.
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Задачи по Turbo Pascal (Помогите умоляю!!!)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016