Помогите с Basic и Pascal - Железный Форум

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1
1

Помогите с Basic и Pascal (CРОЧНО! ГОС экзамен!)

Помогите с Basic и Pascal

Shaper

Date: Воскресенье, 2008-06-01, 3:26 PM | Message # 1

Группа: Удаленные

Буду бесконечно презнателен, кто поможет решить несколько примеров. 4-го июня ГОС по информатике, времени нед. Помогите решить, а лучше помочь разобрацо...
сори, что украинском языке... Очень надо, зарнее спс!

Скачать с dump.ru

Shaper

Date: Воскресенье, 2008-06-01, 3:27 PM | Message # 2

Группа: Удаленные

Если есть желание помочь, но проблема с украинским - переведу.

BoDVa

Date: Воскресенье, 2008-06-01, 3:28 PM | Message # 3

Полковник

Группа: Бывалый

Сообщений: 205

Статус: Offline

условия можно и сюда кинуть

Shaper

Date: Воскресенье, 2008-06-01, 3:36 PM | Message # 4

Группа: Удаленные

* Скласти програму в середовищі Basic обчислення функції у=|х|.
х , якщо х >0
Вказівка: |х|=
-х, якщо х<0

* Скласти програму в середовищі Basic знаходження площі прямокутника з заданими сторонами а,b. (Вказівка: s=a*b).

* Скласти програму в середовищі Pascal знаходження площі прямокутника з заданими сторонами а,b. (Вказівка: s=a*b)

* Скласти програму в середовищі Pascal обчислення функції у=|х|.
х , якщо х >0
Вказівка: |х|=
-х, якщо х<0

* Записати арифметичний вираз у математичному вигляді (sіn((х+1)+4*х^2))/(tаn(х)-2)^2.

* Скласти програму в середовищі Basic для знаходження периметру трикутника за умови, що сторони трикутника дорівнюють відповідно 3,4,5. (Вказівка: р= )

* Скласти програму в середовищі Pascal для знаходження периметру трикутника за умови, що сторони трикутника дорівнюють відповідно 3,4,5. (Вказівка: р= )

* Написати програму на мові програмування Pascal обчислення кореня квадратного з числа х. (Вказівка: квадратний корінь з числа існує, коли підкореневий вираз більше нуля)

* Оголошені змінні дійсного типу х,у,z, символьна змінна С23, змінна SDR, що належить раніше описаному типу Namber і змінна цілого типу Kol. Подати фрагмент програми на мові Pascal опису змінних та їх типів.

* Написати програму на мові програмування Basic обчислення кореня квадратного з числа х. (Вказівка: квадратний корінь з числа існує, коли підкореневий вираз більше нуля)

* Написати програму в середовищі Pascal обчислення значення у=(х+1)n , використовуючи оператор вибору.

Написати програму в середовищі Basic обчислення суми послідовності 1+22+32+…+n2 .

* Написати програму в середовищі Basic обчислення суми х3+х2+х+1, х=1,10.

* Написати програму в середовищі Basic обчислення суми всіх натуральних чисел починаючи з 1, але, щоб сума не перевищувала 100.

* Написати програму в середовищі Pascal знаходження залишку від ділення числа a на s.

* Написати програму в середовищі Pascal обчислення значення суми х+х2+…+хn

* Написати програму в середовищі Pascal виведення на екран повідомлення: «Сьогодні 03.05.2008, екзамен з практикуму»

* Написати програму в середовищі Pascal обчислення значення виразу (3,5+12+36-8 2)+35+п. (Вказівка: п=3,14)

* Написати програму в середовищі Basic обчислення значення виразу (3,5+12+36-8 2)+35+п . (Вказівка:п=3,14)

BoDVa

Date: Воскресенье, 2008-06-01, 5:28 PM | Message # 5

Полковник

Группа: Бывалый

Сообщений: 205

Статус: Offline

ну Бейсик не зная а с Паскалем попробую.
3.

Code

program p3;
var
a,b:longint;
begin
write('Введите сорону а ':); readln(a);
write('Введите сорону b ':); readln(b);
s:=a*b;
writeln('Площадь равна: ',s);
readln;

Добавлено (2008-06-01, 5:14 Pm)
---------------------------------------------
а, извини вконце допиши

Code

end.

Code

program e4;
var
x:longint;
begin
  write('Введите число: '); readln(x);
  if x>=0 then
   writeln('Модуль равен: ',x)
  else
   writeln('Модуль равен: ',-x);
  readln;
end.

или

Code

program e4;
var
x:longint;
begin
  write('Введите число: '); readln(x);
   writeln('Модуль равен: ',abs(x))
  readln;
end.

Добавлено (2008-06-01, 5:18 Pm)
---------------------------------------------

Quote (Shaper)

прикалывашься??? сложи три числа ггг...

Quote (Shaper)

Code

program e5;
{$apptype console}
var
x:longint;
begin
  write('Введите число: '); readln(x);
  if x>=0 then
   writeln('Корень равен: ',sqrt(x):2:4)
  else
   writeln('Корня не существует.');
  readln;
end.

Добавлено (2008-06-01, 5:20 Pm)
---------------------------------------------

Quote (Shaper)

Code

var
x,y,z:real;
c23:char;
SDR:Namber;
Kol:integer;

Добавлено (2008-06-01, 5:22 Pm)
---------------------------------------------

Quote (Shaper)

Написати програму в середовищі Pascal знаходження залишку від ділення числа a на s.

Code

program e6;
var
a,s,m:real;
begin
write('vvedite dva chisla:'); readln(a,s);
m:=a mod s;
writeln('ostatok=', m:2:4);
readln;
end.

Добавлено (2008-06-01, 5:26 Pm)
---------------------------------------------

Quote (Shaper)

* Написати програму в середовищі Pascal обчислення значення суми х+х2+…+хn

Code

program e5;
var
n,s,x,i:integer;
begin
s:=0;
write('vvedite n: ')readln(n);
for i=1 to n do
  begin
   write('vvedite x[',i,']: ');
   readln(x);
   s:=s+x;
  end;
writeln('summa ravna:'s);
readln;
end.

Добавлено (2008-06-01, 5:28 Pm)
---------------------------------------------

Quote (Shaper)

* Написати програму в середовищі Pascal виведення на екран повідомлення: «Сьогодні 03.05.2008, екзамен з практикуму»

тож прикол, просто врителн напиши и все.

Shaper

Date: Воскресенье, 2008-06-01, 6:17 PM | Message # 6

Группа: Удаленные

Велике дякую smile

BoDVa

Date: Воскресенье, 2008-06-01, 6:22 PM | Message # 7

Полковник

Группа: Бывалый

Сообщений: 205

Статус: Offline

Будь ласка.

VVValera

Date: Понедельник, 2009-01-26, 7:20 PM | Message # 8

Рядовой

Группа: Пользователи

Сообщений: 1

Статус: Offline

Буду очень признателен, если поможете решить 2 задачи в среде Pascal.
1) Знайти площута периметр трикутника якщо задано кординати вершин.
2) Знайти площу круга якщо задано радіус.
Пожалуста помогите решить.

Positivegirl

Date: Понедельник, 2009-09-07, 6:17 PM | Message # 9

Рядовой

Группа: Пользователи

Сообщений: 1

Статус: Offline

ПРИВЕТ)ПОМОГИТЕ...
Сложить програму для обчисления корня числа B!

BoDVa

Date: Вторник, 2009-09-08, 11:23 PM | Message # 10

Полковник

Группа: Бывалый

Сообщений: 205

Статус: Offline

Quote (Positivegirl)

Сложить програму для обчисления корня числа B!

если паскаль, то
это единственная функция

Code

sqrt(B);

Добавлено (2009-09-08, 11:23 Pm)
---------------------------------------------

Quote (VVValera)

Буду очень признателен, если поможете решить 2 задачи в среде Pascal. 1) Знайти площута периметр трикутника якщо задано кординати вершин. 2) Знайти площу круга якщо задано радіус. Пожалуста помогите решить.

самые элементарные задачи, просто на подстановку формул, не вижу смысла писать поробно

BitterSweet

Date: Воскресенье, 2010-01-10, 9:00 PM | Message # 11

Рядовой

Группа: Пользователи

Сообщений: 1

Статус: Offline

Может кто знает как решить такие задачки в Паскале:

1) Задача 1. Створити файл довільних символів(символи вводяться із клавіатури). Вивести в один файл цифри, що містяться у файлі, а в інший файл літери, дотримуючись первісного порядку. Вивести на екран вміст файлів. Передбачити в програмі вивід відповідного повідомлення, якщо потрібних символів у файлі не виявилося.

2) Задача 2. Складіть список учбової групи секції бальних танців, що містить N чоловік. Для кожного учасника секції вкажіть прізвище, ім’я, рік народження, ім’я напарника і види танців якими володіє. Для кожної танцювальної парив кажіть результати виступу на міжнародному конкурсі бальних танців по 10-ти бальній шкалі по наступних видах танців:
 вальс;
 танго;
 фокстрот;
 степ;
 рокенрол.
Інформацію, про кожного учасника секції опишіть в програмі у вигляді запису. Сукупність записів об’єднати у файл. Складіть програму, яка забезпечує введення одержаної інформації роздрук її у вигляді таблиці, а також роздрук по вибору користувача анкетних даних тих танцювальних пар, які перемогли на міжнародному конкурсі по всіх видах танців.

Помогите с Basic и Pascal (CРОЧНО! ГОС экзамен!)

Страница 1 из 1
1